[asto]

السلام عليكم

اريد كود تحريك ل 3 مرات فقط

نضع هذا :

كود :

x=0
Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

x=x+1
if x>3 then
End Sub

فما هو الكود الذي يكتب بعد ال then كي لا يسمح بتحريك التكست 1 في المرة الرابعة

[ناجي إبراهيم]

السلام عليكم...

If x > 3 Then Exit Sub

أو:

If x < 4 Then
' اكتب كود التحريك هنا
End If

نرجو الاستفادة و السلام.