Option Explicit
Dim WithEvents GridX As sevDataGrid2.sevGrid
Attribute GridX.VB_VarHelpID = -1
 
Private Sub Form_Load()
    Dim oItem As sevDataGrid2.ListItem
    On Error Resume Next
    SetGrid0
    Set oItem = Grid0.AddItem("Das ist Grid0")
 
    Set GridX = Grid0
End Sub
Private Sub cmdNew_Click()
    Dim oItem As sevDataGrid2.ListItem
    Set GridX = Controls.Add("sevDataGrid2.sevGrid", "GridX" & sst1.Tabs)
    sst1.Tabs = sst1.Tabs + 1
    sst1.Tab = sst1.Tabs - 1
 
    Set GridX.Container = sst1
    SetGridX
 
    Set oItem = GridX.AddItem("Das ist GridX" & sst1.Tab)
End Sub
Private Sub cmdClear_Click()
    Dim x As Integer
    sst1.Tab = sst1.Tabs - 1
    For x = sst1.Tabs To 2 Step -1
        Controls.Remove GridX
        sst1.Tabs = sst1.Tabs - 1
        sst1.Tab = sst1.Tabs - 1
    Next
End Sub
 
Private Sub Grid0_Click(Button As Integer, Shift As Integer)
    lbl1 = Grid0.Name
End Sub
Private Sub GridX_Click(Button As Integer, Shift As Integer)
    lbl1 = GridX.Name
End Sub
 
Private Sub sst1_Click(PreviousTab As Integer)
    If sst1.Tab > 0 Then
        Set GridX = Controls("GridX" & sst1.Tab)
    End If
End Sub
Private Sub SetGrid0()
    With Grid0
        .LockUpdate True
        .ColumnAdd "S1", "Spalte1", 2000
        .ColumnAdd "S2", "Spalte2", 700
        .ColumnAdd "S3", "Spalte3", 700
        .LockUpdate False
    End With
End Sub
Private Sub SetGridX()
    With GridX
        .LockUpdate True
        .Top = 50
        .Left = 50
        .Height = sst1.Height - sst1.TabHeight - 100
        .Width = sst1.Width - 100
        .DataMode = Mode_List
 
        .ColumnAdd "S1", "Spalte1", 1200
        .ColumnAdd "S2", "Spalte2", 1000
        .ColumnAdd "S3", "Spalte3", 1000
        .ColumnAdd "S4", "Spalte4", 1000
        .Visible = True
        .LockUpdate False
    End With
End Sub