Click(Index As Integer)
   MsgBox "Visual Basic Help Menu Fired for Index:" &amp; Index, vbInformation
End Sub

Private Sub optButtonSelect_Click(Index As Integer)
   Select Case True
   Case optButtonSelect(0).Value
      cIM.HighlightStyle = ECPHighlightStyleStandard
   Case optButtonSelect(1).Value
      cIM.HighlightStyle = ECPHighlightStyleGradient
   Case optButtonSelect(2).Value
      cIM.HighlightStyle = ECPHighlightStyleButton
   End Select
End Sub

Private Sub picIcon_Click()
Dim i As Long
Dim lIn