MouseMoveイベントを利用して、マウスポインタが移動した先のラベルを浮かび上がらせて、マウスポインタが離れると元に戻すように設定することができます。
まず、ラベルのMouseMoveイベントで、オブジェクトの表示スタイルを設定するSpecialEffectプロパティを使って、ラベルの上辺と左辺が強調表示され、下辺と右辺に影が付けられるように設定します。
フォームのMouseMoveイベントでは、SpecialEffectプロパティを使ってラベルが平面的に表示されるように設定します。
フォームにラベル「Label1」を配置して、次のイベントプロシージャを作成してください。
Private Sub Label1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Label1.SpecialEffect = 1
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Label1.SpecialEffect = 0
End Sub
