Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Me.CommandButton1
.ForeColor = 255
.Caption = 'Mon beau' & vbCrLf & 'commandButton'
With .Font
.Bold = True
.Size = 12
.Underline = True
End With
End With
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Me.CommandButton1
.ForeColor = 0
.Caption = 'CommnadButton1'
With .Font
.Bold = False
.Size = 10
.Underline = False
End With
End With
End Sub