Public Class Form1
...
    Public Event BtnClick()

  Private Sub Btn1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1Click.Click
        RaiseEvent BtnClick()
    End Sub
...
End Class