VB6です。
Label上にマウスのカーソルが来たときに下線を引き、
Label上からマウスのカーソルが離れたときに下線をなくしたいのですが、
前者はMouseMoveイベントでできるのですが、後者ができません。
VB.NetではMouseLeaveイベントでできるようですが。
ちなみに、以下のようにコードを書いたのですが、カーソルをLabel上から
遠ざける方向によって下線が消えなかったり、
近づける方向によって下線が惹かれなかったりします。

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If X >= Label1.Left And X <= Label1.Left + Label1.Width And _
       Y <= Label1.Top And Y >= Label1.Top - Label1.Height Then
        Label1.FontUnderline = True
    Else
        Label1.FontUnderline = False
    End If
End Sub

このような処理をVB6でやるにはどうするのがいいのでしょうか？

> VB.NetではMouseLeaveイベントでできるようですが。
そうなんですか。当然そういうイベントを付けるべきですよね。

VB6ではSetCaptureとReleaseCaptureを使えばよいです。結構Webにサンプルが見られます。

(参考例)
Public Function MouseMove(CNT As MSForms.CommandButton, ByVal X As Single, ByVal Y As
Single)

With CNT
    If X >= 0 And X < .Width And Y >= 0 And Y < .Height Then
        .BackColor = vbYellow Or &HC0C0C0
        SetCapture .hWnd
    Else
        .BackColor = &H8000000F
        ReleaseCapture
    End If
End With
End Function

ありがとうございます。
LabelはhWndプロパティがないようなので、テキストボックスでやります。


> > VB.NetではMouseLeaveイベントでできるようですが。
> そうなんですか。当然そういうイベントを付けるべきですよね。
>
> VB6ではSetCaptureとReleaseCaptureを使えばよいです。結構Webにサンプルが見られます。
>
> (参考例)
> Public Function MouseMove(CNT As MSForms.CommandButton, ByVal X As Single, ByVal Y As
> Single)
>
> With CNT
>     If X >= 0 And X < .Width And Y >= 0 And Y < .Height Then
>         .BackColor = vbYellow Or &HC0C0C0
>         SetCapture .hWnd
>     Else
>         .BackColor = &H8000000F
>         ReleaseCapture
>     End If
> End With
> End Function

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

ではダメですか？

> ではダメですか？

マウスの分解能にもよりますが、ポインタを高速で動かされると、
対応できない可能性が出てきますね。

> 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です。ありがとうございます。
こんなに簡単にできるなんて．．．