Private Sub TAB_Haupt_SelectChanged(TItem As sevTab.Tab)
 
   Select Case TItem.Index
 
       Case 1
           txt_sql.Visible = False
           Grid_Main.Visible = True
           DoEvents
 
      Case 2
           Grid_Main.Visible = False
           txt_sql.Visible = True
           DoEvents
  End Select
 
End Sub