Public Sub PanelWechsel(ByVal Fenster As Form)
        pMain.Controls.Clear()
        Fenster.TopLevel = False
        Fenster.Dock = DockStyle.Fill
        pMain.Controls.Add(Fenster)
        Fenster.Show()
        pMain.Refresh()
 
    End Sub

Public PasswortFenster As Passwort
 
        Dim PasswortFenster As New Passwort
 
        MMI.PanelWechsel(PasswortFenster)

mfg
rt