Status Label

#Region "Status"
 
	Private WithEvents StatusTimer As New Timer()
 
 
	Public Sub SetStatusText(ByVal value As String)
		lblStatus.Text = value
	End Sub
 
	''' <summary>Set status text and auto-clear after fixed number seconds</summary>
	''' <param name="value">Text to display on status bar</param>
	''' <param name="interval">Seconds to wait before clearing the status</param>
	Public Sub SetStatusText(ByVal value As String, ByVal interval As Int32)
		statusTimer.Interval = interval * 1000
		statusTimer.Start()
 
		SetStatusText(value)
	End Sub
 
	Public Sub ClearStatusText()
		lblStatus.Text = ""
	End Sub
 
	''' <summary>Clear StatusBar</summary>
	Private Sub ClearStatusText(ByVal sender As Object, ByVal e As EventArgs) Handles statusTimer.Tick
		lblStatus.Text = ""
		statusTimer.Stop()
	End Sub
 
#End Region