I
I H Naqvi
Hi,
I want to change the mouse pointer into a Hand when it goes over a
control. I tried to used "MouseCursor (IDC_HAND)" in mouse move event which
already has following code but error of "fuction or sub function not define"
comes. Control has also code on "On Click" event. I donot want to use a dummy
hiperlink. Can any body tell me comprehensively what to do.
private sub L1_mousemove ( Standered Arguments)
If Me.L1.ForeColor <> vbRed Then
MouseCursor (IDC_HAND)
Me.L1.ForeColor = vbRed
Me.L1.BackColor = vbWhite
Me.L1.BorderStyle = 1
Me.L1.FontSize = 9
Me.L2.ForeColor = 65535
Me.L2.BackColor = vbBlack
Me.L2.BorderStyle = 0
Me.L2.FontSize = 8
Me.L3.ForeColor = 65535
Me.L3.BackColor = 0
Me.L3.BorderStyle = 0
Me.L3.FontSize = 8
End If
End if
I want to change the mouse pointer into a Hand when it goes over a
control. I tried to used "MouseCursor (IDC_HAND)" in mouse move event which
already has following code but error of "fuction or sub function not define"
comes. Control has also code on "On Click" event. I donot want to use a dummy
hiperlink. Can any body tell me comprehensively what to do.
private sub L1_mousemove ( Standered Arguments)
If Me.L1.ForeColor <> vbRed Then
MouseCursor (IDC_HAND)
Me.L1.ForeColor = vbRed
Me.L1.BackColor = vbWhite
Me.L1.BorderStyle = 1
Me.L1.FontSize = 9
Me.L2.ForeColor = 65535
Me.L2.BackColor = vbBlack
Me.L2.BorderStyle = 0
Me.L2.FontSize = 8
Me.L3.ForeColor = 65535
Me.L3.BackColor = 0
Me.L3.BorderStyle = 0
Me.L3.FontSize = 8
End If
End if