Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Top = Y + Command1.Top
Label1.Left = X + Command1.Left
Label1.Caption = X & ", " & Y
End Sub

E' QUESTO CHE INTENDI?

purtroppo la label sparisce sempre dietro il command button...
devi provare con altri oggetti. ciao