Private snCoord(2) As Single

Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  snCoord(1) = X
  snCoord(2) = Y
End Sub

Private Sub lblTitle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    Call Move((Left - snCoord(1)) + X, (Top - snCoord(2)) + Y)
  End If
End Sub