afterload事件
e.Form.TimerInterval = 1000e.Form.TimerEnabled = True
timertick事件
Dim t As Table = e.form.controls("table1").TableIf t.BottomVisibleRow = t.Rows.Count - 1 Then t.TopVisibleRow = 0Else t.TopVisibleRow += 1End If