Private Sub btAddItem_Click()
    FG1.AddItem "A", FG1.Rows
    FG1.TextMatrix(FG1.Rows - 1, 0) = ""
End Sub
 
Private Sub btDelItem_Click()
    If FG1.Rows = 2 Then
        MsgBox "Es muß mindestens eine Zeile stehen bleiben." & Chr(13), _
          vbCritical
    Else
        If MsgBox("Zeile " & "'" & FG1.TextMatrix(FG1.Row, 0) & "'" & "" & _
          "löschen?" & _
                 Chr(13), vbYesNo + vbQuestion, "Zeile löschen") = vbYes Then
            FG1.RemoveItem (FG1.Row)
        End If
    End If
End Sub