' Roll down a form using a timer control
' All you need is a form and a timer control nameed timer1.
' you need to put 2 listboxes on a form
' name them list1 and list2
' a drivelistbox,filelistbox,dirlistbox
' a combobox called combo1
' a commandbutton command1

Dim k as integer

Private Sub Form_Load()

 Form1.Height = 5
 Timer1.Interval=100
 Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer()

 k = k + 200
 Form1.Height = k

  If Form1.Height > 6675 Then
    Form1.Height = 6675
    Timer1.Enabled = False
  End If

End Sub