Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
'Try
' If _Showing.Count < _textToDisplay.Count And _Showing.Count > 0 Then
' _Showing = _textToDisplay.Substring(0, _Showing.Length + 1)
' ElseIf _Showing.Count < _textToDisplay.Count And _Showing.Count = 0 Then
' _Showing = _textToDisplay.Substring(0, 1)
' ElseIf _Showing.Count < _avrchar Then
' _Showing = " " + _Showing
' Else
' _Showing = ""
' End If
' LblHekmah.Text = _Showing
'Catch ex As Exception
' MsgBox(ex.ToString)
'End Try
LblHekmah.Left = LblHekmah.Left + 1
If LblHekmah.Right = 0 Then
LblHekmah.Left = Me.Width + 1
End If
If LblHekmah.Left = Me.Width Then
LblHekmah.Left = -150
End If
If Me.WindowState = FormWindowState.Minimized Then
LblHekmah.Left = -150
End If
End Sub