Source Code:
Option Explicit
Dim StrHeight As Integer
Dim StrWidth As Integer
Dim FormHeight As Integer
Dim FormWidth As Integer
Private Sub Form_Load()
StrHeight = Label1.Height
StrWidth = Label1.Width
FormHeight = Form1.ScaleHeight
FormWidth = Form1.ScaleWidth
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 50
Timer2.Interval = 50
Call ResetStr
End Sub
Private Sub ResetStr()
Label1.Top = 0
Label1.Left = 0
End Sub
Private Sub Timer1_Timer()
If Label1.Left <= (FormWidth - StrWidth) Then
Label1.Left = Label1.Left + 100
Else
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
If Label1.Top <= (FormHeight - StrHeight) Then
Label1.Top = Label1.Top + 50
Else
Timer2.Enabled = False
'Timer3.Enabled = True
End If
End Sub
--------------------------------------
Objective:
Append the program and add the functionality to complete the cycle of the moving label. Make sure that the label will keep on rotating until such time the user interferes and stop the program.
