Public Class Form1 Private myCam As iCam Private Sub tmrUpdate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrUpdate.Tick ToolStripStatusLabel1.Text = ("FPS = " & myCam.FPS & " " & "Running = " & myCam.iRunning) End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 'Me.picOutput.SizeMode = PictureBoxSizeMode.StretchImage myCam = New iCam myCam.setFrameRate(25) myCam.initCam(Me.picOutput.Handle.ToInt32) End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click myCam.closeCam() End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click myCam.initCam(Me.picOutput.Handle.ToInt32) End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click myCam.resetCam() End Sub End Class