night_secret
دوشنبه 04 مرداد 1389, 16:24 عصر
این کدهایی که در timer به کار میهد امیدوارم کمک کرده باشم با تشکر!
Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 1
Timer2.Interval = 1
End Sub
Private Sub Timer1_Timer()
Timer2.Enabled = False
If Form3.Left < Screen.Width - Form3.Width Then
Form3.Left = Form3.Left + 150
Else
Timer2.Enabled = True
Form4.Show
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
If Form3.Left > 0 Then
Form3.Left = Form3.Left - 150
Else
Timer1.Enabled = True
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 1
Timer2.Interval = 1
End Sub
Private Sub Timer1_Timer()
Timer2.Enabled = False
If Form3.Left < Screen.Width - Form3.Width Then
Form3.Left = Form3.Left + 150
Else
Timer2.Enabled = True
Form4.Show
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
If Form3.Left > 0 Then
Form3.Left = Form3.Left - 150
Else
Timer1.Enabled = True
End If
End Sub