Abraham Valencia respondió:
[Hola Mira esto, del conocido Hector Miguel: Private Sub CommandButton1_MouseMove( _ ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) With CommandButton1 If (X >= 5 And Y >= 5) And _ (X <= .Width - 5 And Y <=...