Mover un control shape

El codigo es el siguiente:
Dim flag As Byte
Private Sub Form_Activate()
flag = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X > Shape1.Left) And (X < Shape1.Left + Shape1.Width) Then
Screen.MousePointer = vbCrosshair
flag = 1
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = X & " , " & Y
If flag = 1 Then
Shape1.Move X, Y
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
flag = 0
Screen.MousePointer = vbDefault
End Sub