Switchboard Image

[Sukh]

Dear All,

I ahve an issue with an image that i am trying to diplay on my switchboard.
Currently I have a switchboard with eight options on it, when the mouse if
over an option that option goes bold, and returns to normal when the mouse is
not over the text.

What I wanted to do is display an image when the text goes bold and hide it
when another option is selected, i think i need to amend the code below, but
not too sure how;

Private Function HandleFocus(intBtn As Integer)
' This function is called when a menu option recieves the Focus
' intBtn indicates which button was Clicked

Dim intOption As Integer

On Error GoTo HandleMouseOver_Err

For intOption = 1 To conNumButtons
'Show that this menu option has the focus
If intOption = intBtn Then
Me("Option" & intOption).Visible = True
Me("OptionLabel" & intOption).FontWeight = conFontWeightBold
Me("Command" & intBtn).SetFocus
' and turn off the other options
Else
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).FontWeight = conFontWeightNormal
End If
Next intOption

HandleMouseOver_Exit:
Exit Function

HandleMouseOver_Err:
MsgBox "There Was an Error Execurting The Command", vbCritical
Resume HandleMouseOver_Exit

End Function

Thanks