Thêm xóa table (MSFlexGrid) trong VB6

' Học thêm tại http://my.opera.com/levanduyet/blog/show.dml/2149802

Dim id As Integer
Private Sub cmdLogin_Click()
    id = id + 1
    With testMSFlexGrid3
        .Rows = .Rows + 1
        .TextMatrix(id, 0) = id
        .TextMatrix(id, 1) = tbUsername.Text
        .TextMatrix(id, 2) = tbPassword.Text
    End With
    tbUsername.Text = ""
    tbPassword.Text = ""
End Sub

Private Sub cmdRemove_Click()
    If id > 0 Then
        id = id - 1
        With testMSFlexGrid3
            .Rows = .Rows - 1
        End With
    End If
End Sub

Private Sub Form_Load()
   id = 0
   With testMSFlexGrid3
        .Rows = 1
        .Cols = 3
        .TextMatrix(0, 0) = "ID"
        .TextMatrix(0, 1) = "Username"
        .TextMatrix(0, 2) = "Password"
   End With
End Sub