Dim
OldX
As
Integer
Dim OldY As Integer
Enum mPosition Enum mPosition
left
right
top
bottom
End Enum
Dim Adjust As mPosition
Private Sub Label1_MouseDown()
Dim OldY As Integer
Enum mPosition Enum mPosition
left
right
top
bottom
End Enum
Dim Adjust As mPosition
Private Sub Label1_MouseDown()