请问：使用MSFlexGrid的ADDITEM加入内容，怎样使新增的内容始终被显示出来，即滚动条始终停在最下方？

Question

'    Purpose:
'     Author:吴文智
'       Date:2001-11-12
'Description:要试用本例请在窗体中填加一个MSFlexGrid和一个按钮
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Command1_Click()
    With MSFlexGrid1
        .AddItem vbTab & cstr(.Rows - 1)
        
        .Row = .Rows - 1
        If .RowIsVisible(.Rows - 1) Then
            '最后一行可见,do nothing
        Else
            '最后一行不可见,滚动
            .TopRow = .Rows - 1
        End If
    End With
End Sub