ShowDetails.Init(TableName, ID)

Public Function Init(BaVal TableName as string, ByVal ID as Integer) as Boolean
if TableName = "1. Tabelle" then
    Dim objShowDetail_Table_One as ShowDetail_Table_One = New _
      ShowDetail_Table_One(ID) ' das ist ein fertiges formular
    objShowDetail_Table_One.TopMost = False
    objShowDetail_Table_One.Dock = DockStyle.Fill
    me.Controls.Add(objShowDetail_Table_One)
elseif .....