[VB_Coder]

السلام عليكم

كود :

Private Sub Timer1_Timer()

Static Direction  As String

If Direction = "" Then Direction = "Down"

If Picture1.Top <= 360 Then
   Direction = "Down"
ElseIf Picture1.Top + Picture1.Height >= 3060 Then
   Direction = "Up"
End If

If Direction = "Down" Then
   Picture1.Top = Picture1.Top + 50
ElseIf Direction = "Up" Then
   Picture1.Top = Picture1.Top - 50
End If

End Sub

- تحياتي .