[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 في المرة الرابعة