Option Explicit
 
Private Sub Form_Load()
    Dim i As Integer, j As Integer
    Dim RowText As String
 
    'ToolTip-Bug:
    sevGrid1.BalloonTip = True
    sevGrid1.ToolTipText = "Text"
    sevGrid1.ToolTipTitle = "Titel"
    With sevGrid1
        'Grid Eigenschaften setzen
        .ScrollBars = SB_AUTO
        .DataMode = Mode_List
        'Spalten hinzufügen
        .ColumnAdd "Spalte1", "Spalte1", 500, , , , , , SORT_NUMERIC
        .ColumnAdd "Spalte2", "Spalte2", 5000
        'Zeilen füllen
        For i = 1 To 20
            'Erzeuge 75 zufällige Zeichen
            For j = 1 To 75
                RowText = RowText & Chr(Int(Rnd() * 26) + 65)
            Next j
            'Setze die Zeilennr davor
            RowText = CStr(i) & vbTab & RowText
            'Und füge die Zeile dem Grid hinzu
            .AddItem RowText
            RowText = ""
        Next i
    End With
End Sub
 
Private Sub Form_Resize()
    Dim NewWidth As Long
    Dim NewHeight As Long
 
    'Bestimme neue Breite / Höhe
    NewWidth = Me.ScaleWidth - 2 * sevGrid1.Left
    NewHeight = Me.ScaleHeight - 2 * sevGrid1.Top
    'Fehler vermeiden
    If NewWidth <= 0 Or NewHeight <= 0 Then
        Exit Sub
    End If
    'Setze das Grid auf die neuen Werte
    sevGrid1.Width = NewWidth
    sevGrid1.Height = NewHeight
    'Und aktualisiere die Darstellung
    sevGrid1.RefreshEx
End Sub
 
 
Private Sub sevGrid1_Click(Button As Integer, Shift As Integer)
    sevGrid1.BalloonTip = True
    sevGrid1.ToolTipText = "Text"
    sevGrid1.ToolTipTitle = "Titel"
End Sub

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...