vb Code:
Public Class Form1
Private Sub btnGo_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnGo.Click
ProgressBar1.Step = 10
ProgressBar1.Value = 0
TimerProgreesBar.Enabled = True
'~~> Haven't tried this part
mycam.startCam (PictureBox1.Handle.ToInt32)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.PerformStep()
If ProgressBar1.Value >= ProgressBar1.Maximum Then
TimerProgreesBar.Enabled = False
End If
End Sub
End Class