Public Class eQM_Cls_ComboBox_Event
 
    Public Event eQM_CBox_Event() ' Declare an event.
 
    Public Sub eQM_CBoxEvent()
        RaiseEvent eQM_CBox_Event()            ' Raise an event.
    End Sub
 
End Class

Imports System.ComponentModel
Public Class eQM_UC_ComboBox
    Inherits System.Windows.Forms.UserControl
 
    Private gbl_shr_ComboBoxEvent As New eQM_ComboBox.eQM_Cls_ComboBox_Event()
 
...
 
    Private Sub eQM_UC_ComboBox_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler gbl_shr_ComboBoxEvent.eQM_CBox_Event, AddressOf _
        eQM_CBox_Event_Handler
    End Sub
 
    Public Sub eQM_CBox_Event_Handler()
        Try
 
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub
End Class

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)