Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then MsgBox "X:" & Str(X) + vbCrLf & "Y:" & Str(Y) End If End Sub Espero sea esto lo que solicitastes sino explicate mejor talves podamos ayudarte