Frame_oben.Left = 100
Frame_oben.Width = Me.Width - 300
Frame_oben.Top = 100
 
TAB_Haupt.Top = Frame_oben.Height + 200
TAB_Haupt.Height = Me.Height - (Frame_oben.Height + Frame_unten.Height + 900)
TAB_Haupt.Left = 100
TAB_Haupt.Width = Me.Width - (300)
 
Grid_Main.Top = 380
Grid_Main.Height = TAB_Haupt.Height - 400
Grid_Main.Left = 15
Grid_Main.Width = TAB_Haupt.Width - 70
Grid_Main.Refresh
DoEvents
 
txt_sql.Top = 400
txt_sql.Height = TAB_Haupt.Height - 500
txt_sql.Left = 50
txt_sql.Width = TAB_Haupt.Width - 110
txt_sql.Refresh
DoEvents
 
Frame_unten.Top = Me.Height - (Frame_unten.Height + 600)
Frame_unten.Left = 100
Frame_unten.Width = Me.Width - (300)
 
DoEvents

Private Sub TAB_Haupt_SelectChanged(TItem As sevTab.Tab)
 
Select Case TItem.Index
    Case 1
 
    Case 2
        If Editor_laden = True Then Editor_anzeigen
         DoEvents
End Select
End Sub