Public Class Form1
    Private MyFormsKlasse As FormsKlasse
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MyFormsKlasse = New FormsKlasse(Me)
    End Sub
 
End Class
 
Public Class Form2
    Private MyFormsKlasse As FormsKlasse
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MyFormsKlasse = New FormsKlasse(Me)
    End Sub
 
End Class
 
Friend Class FormsKlasse
    Private WithEvents MyForm As Form
 
    Friend Sub New(f As Form)
        MyForm = f
    End Sub
 
    Private Sub MyForm_Click(sender As Object, e As EventArgs) Handles _
      MyForm.Click
        MsgBox("click")
    End Sub
 
    Private Sub MyForm_Closing(sender As Object, e As CancelEventArgs) Handles _
      MyForm.Closing
        MsgBox("Closing")
    End Sub
 
    Private Sub MyForm_KeyPress(sender As Object, e As KeyPressEventArgs) _
      Handles MyForm.KeyPress
        MsgBox("keyPress")
    End Sub
End Class