Public Event P_Changed(ByVal TableName As String)

Protected Overrides Sub OnMouseDown(ByVal e As _
  System.Windows.Forms.MouseEventArgs)
...
RaiseEvent P_Changed(knoten)
...

ShowDetails.Init(TableName, ID)

Public Class ShowDetails
    Inherits Windows.Forms.Panel
 
    Public Function Init(ByVal knoten As String) As Boolean
        If knoten = "Ordner erstellen" Then
            Dim objShowDetail_Table_One As frm_suchen_datord = New _
              frm_suchen_datord(w) ' das ist ein fertiges formular
            objShowDetail_Table_One.TopMost = False
            objShowDetail_Table_One.Dock = DockStyle.Fill
            Me.Controls.Add(objShowDetail_Table_One)
        End If
    End Function
End Class