Public Class frmAssetUebersicht
 
    Friend WithEvents TestEvent As frmZugangBuchen
 
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles ToolStripButton1.Click
        Dim Zugang As New frmZugangBuchen
 
        Zugang.Show()
 
    End Sub
    Private Sub TEst() Handles TestEvent.Tabelle
 
        MsgBox("Test")
 
    End Sub
End Class

Public Class frmZugangBuchen
 
 
  Public Event Tabelle()
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        RaiseEvent Tabelle()
    End Sub
End Class