ایجاد command جابه جا شونده در vb

[mohammadsezar]

سلام
من نیاز به سورسی دارم که وقتی موس روی command رفت ..جابه جا بشه ؟؟؟؟؟ مثل فایل زیر :

[R2du-soft]

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error Resume Next


If Command1.Top = 75 Then
Command1.Top = 3000
ElseIf Command1.Top = 3000 Then
Command1.Top = 75
End If


End Sub





باشد که رستگار شویم! :لبخند:



{ویرایش:}
پروژه برنامه نیز اضافه شد.
120722

[sa1378]

اینکه خیلی ساده هست
فکر کنم منظورشون اینه که مکانش متغیر باشه

[mohammadsezar]

اتفاقا منظورم همین بود
همه که مثل شما حرفه ای نیستن