The Question of this month.....

[cuok]

Hi friends,

Are there any way to get the caption of the option of the "Option Group" when the mouse moves over the option using the event "On mouse Move" ?

thanks

 

[ttmac]

The following code will assign the name of the active control (in this case "ComboBox1&quot to the variable optionname.

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
optionname = Me.ActiveControl.Name
End Sub

Hope this helps,

Tom.