Private Sub Form_Load()
Timer1.Interval = 25
End Sub
Private Sub Timer1_Timer()
If Kayma < 490 Then
Picture2.Top = Picture2.Top + 5
Kayma = Kayma + 1
Else
If Picture2.Top > 990 Then
Picture2.Top = Picture2.Top - 5
Else
Kayma = 0
End If
End If
End Sub
Timer1.Interval = 25
End Sub
Private Sub Timer1_Timer()
If Kayma < 490 Then
Picture2.Top = Picture2.Top + 5
Kayma = Kayma + 1
Else
If Picture2.Top > 990 Then
Picture2.Top = Picture2.Top - 5
Else
Kayma = 0
End If
End If
End Sub
