| 投稿日 | ： 2005/11/25(Fri) 14:25 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: Label上にマウスのカーソルが来たときに下線を引きたい |
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = False
End Sub
ではダメですか？