UserControl Event Problem

[Adept Developer]

I have some code here for a UserControl that uses a ComboBox in it. My code works, but I want to be able to use the normal events of the ComboBox from the code that calls my UserControl. The name of the UserContrl is 'SelectBox', so I would really like to say:

Private Sub SelectBox1_Click()
  'Code Block
End Sub

If anyone could help, I'd appreciate it.

-Steve

Public Sub AddItemValue(ByVal strText As String, strValue As String)
  Combo1.AddItem strText
  Dim m_strKeys() As String
  ReDim Preserve m_strKeys(Combo1.ListCount)
  m_strKeys(Combo1.ListCount - 1) = strValue
End Sub

Public Function GetValue(iIndex As Integer) As String
  GetValue = m_strKeys(iIndex)
End Function

[chrisf]

In the (General) section of your usercontrol code:-

Event Click()

Private Sub Combo_Click()

RaiseEvent Click

End Sub

Now,

Private Sub SelectBox1_Click()
'Code Block
End Sub

will be called when the combobox is clicked.