[ALBRNS]

السلام عليكم

تفضل

PHP كود :

Dim SSX As Integer
Dim SSY As Integer

Private Sub SSTab1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SSX = X
SSY = Y
End Sub

Private Sub SSTab1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
SSTab1.Left = SSTab1.Left + X - SSX
SSTab1.Top = SSTab1.Top + Y - SSY
End If
End Sub 


بالتوفيق .