マウスが触れるとテキストを表示し離れる非表示にする

質問

アクセスです。

フォームにラベルを設置して、
そのラベルにマウスが触れたらテキストボックスを表示させたいのです。

フォームのオープンイベントは
Private Sub Form_Open(Cancel As Integer)
Me.テキスト2.Visible = False
End Sub
になっています。

ラベルのマウスボタン解放時イベントで
Private Sub ラベル0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.テキスト2.Visible = True
End Sub
にして、ラベルをクリックするとテキストボックスが表示されます。

マウスボタン移動時イベントで
Private Sub ラベル0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.テキスト2.Visible = True
End Sub
にすると、理想通りラベルからマウスが触れたらテキストボックスが表示されます。

ここまではいいのですが
マウスのカーソルが離れたら
またテキストボックスを非表示にしたいのですがどうすればいいですか？

回答No.1

tsubuyuki · ベストアンサー

詳細セクションのマウス移動時イベントで
「非表示にする」ようにしたらいかがでしょう？

Private Sub 詳細_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.テキスト2.Visible = False
End Sub

くらいでしょうか。

お礼

理想通りになりました！ありがとうございました。