تحريكImageبواسطةTimer

HI ABODAH

السلام عليكم :rolleyes:

في البدايه اختر الصوره

وأضف الTIMER وحدد ال INTEREVAL = 100

ثم قم بعملCOPY & PASTE في ال CODING

اليك البرنامج

Dim X, Y, Y1, X1 As Integer

Private Sub Form_Load()

X = 100

Y = 100

X1 = 100

Y1 = 3000

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()

X = X + 100

X1 = X1 + 100

Image1.Move X1, Y1

If X1 = 8000 Then

X1 = 100

End If

Image1.Move X1, Y1

End Sub

جرب وردلي الخبر أوكيك

باي باي