Try this:

Code:
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print X & ", " & Y
Combo1.Move X + 800, Y + 800
End Sub