Private Function GetObjekt(ObjektType As ObjekttypeEnum) as type
		Select Case ObjektType
			Case ObjekttypeEnum.Type1 : Return  gettype(Objekt1)
                        ...
			case else: return nothing
		End Select
	End Function

        Public Sub ShowPanel(ContainerPanel as Panel, ShowPanelType As _
          paneltypes)
		Dim Pan As Panel
		Dim Frm As PanelManager.IMainPanelform=Nothing
		frm=activator.CreateInstance(GetForm(paneltypes.DBManagement))
		If frm Is Nothing Then
			containerpanel.Controls.Clear
		else
			pan=frm.getmainpanel
			pan.Parent=containerpanel
		End If
	End Sub