'Sample contributed by Hiroshi Takishita
'Requires MSComm control.

Sub main
	Form1_Show 'Default Form
End Sub

Sub ComExec_Click
   
    Progressbar1.Scrolling = 1
    Progressbar1.Max = 50
    Progressbar1.Min = 0
    Progressbar1.Value = 0

    frame1.Visible=True
      UpdateScreen

      For i=1 To 50
               
         Progressbar1.Value = i
         Sleep 100
                     
      Next
      
      Sleep 400

      frame1.Visible=False
        
      DoEvents
      UpdateScreen

End Sub

Sub EndJob_Click
      Bye
End Sub