Private Sub Form_Resize()
    If Not Plus.LockFormUpdate Then
        Plus.LockFormUpdate = True
        Plus.Adept aLeft, CoolbarNode, 0, 0, 0, 1
        Plus.Adept aLeft, NodeTree, 0, 0, 0.25, -LabelNode.Height, CoolbarNode
        Plus.Adept aTop, LabelNode, 0, 0, 0, 1, NodeTree
        Plus.Adept aLeft, CoolbarData, 0, 0, 30, 1, NodeTree
        Plus.Adept aLeft, DataGrid, 0, 0, 1, -LabelData.Height, CoolbarData
        Plus.Adept aTop, LabelData, 0, 0, 0, 1, DataGrid
        DataGrid.RefreshEx
        DataGrid.Columns("Value").AdjustWidthToGridSize
    End If
End Sub

    ' Positionierung von Controls
'
Public Sub Adept(mAli As Alignment, c As Control, Optional mLeft As Variant = _
  0, Optional mTop As Variant = 0, Optional mWidth As Variant = 0, Optional _
  mHeight As Variant = 0, Optional C2 As Control = Nothing)
 
   Dim m As LTWHType
   CalcInside
   m = CoordRec(mLeft, mTop, mWidth, mHeight)
 
    If Not (C2 Is Nothing) Then
        With BackTransform(C2)
            If mAli = aLeft Then
                m.Left = .Left + .Width + m.Left
                m.Top = .Top + m.Top
            ElseIf mAli = aTop Then
                m.Left = .Left + m.Left
                m.Top = .Top + .Height + m.Top
             End If
            If m.Width = 0 Then m.Width = .Width
            If m.Width < 0 Then m.Width = inside.Width - m.Left + m.Width
 
            If m.Height = 0 Then m.Height = .Height
            If m.Height < 0 Then m.Height = inside.Height - m.Top + m.Height
        End With
    End If
 
 
    With ForwardTransform(m)
       c.Move .Left, .Top, .Width, .Height
    End With
End Sub