Public Class UserControl1
 
    Dim WithEvents MyUCButton As New Button With {.Parent = Me, .Top = 10, _
      .Left = 10, .Text = "Demo"}
 
    Public Event UCButtonClicked(sender As Object, e As EventArgs)
 
    Private Sub MyUCButton_Click(sender As Object, e As EventArgs) Handles _
      MyUCButton.Click
        RaiseEvent UCButtonClicked(Me, EventArgs.Empty)
    End Sub
 
    Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
    End Sub
End Class

Public Class frmUCEventDemo
 
    Dim WithEvents uc1 As New UserControl1 With {.Parent = Me}
 
    Private Sub uc1_UCButtonClicked(sender As Object, e As EventArgs) Handles _
      uc1.UCButtonClicked
        MsgBox("UC-Button ist gedrückt worden")
    End Sub
 
End Class