| 投稿日 | ： 2005/11/25(Fri) 17:44 |
| 投稿者 | ： つぼちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: 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
>
> ではダメですか？
いやいや、全然OKです。ありがとうございます。
こんなに簡単にできるなんて．．．