同じコマンドボタンからマウスカーソルがはなれたら

質問

フォーム上のコマンドボタンにマウスカーソルが触れたら色を付ける、
同じコマンドボタンからマウスカーソルがはなれたら 、また色を変える、
という動きをｖｂａで行いたいのですが、

Private Sub cmd_test_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As

Single, ByVal Y As Single)
Me.cmd_test.BackColor = RGB(255, 180, 200)
End Sub
で、マウスカーソルが触れたら色を付けることはできたのですが、
マウスカーソルがそのコマンドボタンから離れたら色を変えるという動きができません。

Private Sub cmd_test_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Me.cmd_test.BackColor = RGB(255, 255, 255)
End Sub

Private Sub cmd_test_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.cmd_test.BackColor = RGB(255, 255, 255)
End Sub

Private Sub cmd_test_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As

Single, ByVal Y As Single)
Me.cmd_test.BackColor = RGB(255, 255, 255)
End Sub

をしても、マウスカーソルが離れても色が白になりませんでした。

回答No.1

watabe007 · ベストアンサー

Private Sub cmd_test_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
　　　　Me.cmd_test.BackColor = RGB(255, 180, 200)
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
　　　　Me.cmd_test.BackColor = RGB(255, 255, 255)
End Sub
では？

お礼

ありがとうございました。