Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
Label1.Left = Label1.Left + Screen.TwipsPerPixelX
Label1.Top = Label1.Top + Screen.TwipsPerPixelY
End Sub
 
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
Label1.Left = Label1.Left - Screen.TwipsPerPixelX
Label1.Top = Label1.Top - Screen.TwipsPerPixelY
End Sub