''' Formular : frmMain (MDI-Parent-Form)
Private Sub UltraToolbarsManager1_ToolClick(ByVal sender As Object, ByVal e As _
  Infragistics.Win.UltraWinToolbars.ToolClickEventArgs) Handles _
  UltraToolbarsManager1.ToolClick
        If e.Tool.Key = "Benutzer" Then
            Dim frm As New System.Windows.Forms.Form
            frm = New cup_Module.frmBenutzerverwaltung
            frm.Name = frm.Name & iTestFormIndex.ToString
            frm.MdiParent = Me
            frm.Show()
            iTestFormIndex = iTestFormIndex + 1
        End If
end sub
 
 
''' Steuerelement (TextBox)
    Public Sub SetModus(ByVal Formular As System.Windows.Forms.Form, ByVal _
      Modus As String, ByVal Activate_Modushandling As Boolean) ', ByVal 
    ' current_UC As Object)
        Dim iDataView As New DataView
        Dim MyForm As New System.Windows.Forms.Form
        Dim CurrentStateSichtbar As Boolean = False
        Dim CurrentStateAenderbar As Boolean = False
        Dim i As Integer = 1
        ' nur wenn Modus-Handling-Prop True ist. 
        If Activate_Modushandling = True Then
            MyForm = Me.FindForm
            'Wenn das übergebene Formular mit dem des Steuerelements 
            ' übereinstimmt.
            If Formular.Handle = MyForm.Handle Then
                Try...
 
end sub