Sub Process_Globals
Private tv1 As TableView
Private TimerRefresh As Timer
End Sub
Sub AppStart (Form1 As Form, Args() As String)
TimerRefresh.Initialize("TimerRefresh", 1)
End Sub
Sub tv1StartRefresh
For i = 0 To tv1.ColumnsCount -1
tv1.SetColumnVisible(i, False)
Next
TimerRefresh.Enabled = True
End Sub
Sub TimerRefresh_Tick
For i = 0 To tv1.ColumnsCount -1
tv1.SetColumnVisible(i, True)
Next
TimerRefresh.Enabled = False
End Sub