主题：鼠标移动到滚动表时，暂停滚动表，移开时又滚动

Dim t As Table = e.Form.Controls("Table1").Table

If t.Position < t.Rows.Count - 1 Then

    t.Position += 1

Else

    t.Position = 1

End If