Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
ccd.New1
Form1.Show
End Sub
Sub Button1_Click
Dim img
'img = ccd.GetImage(640, 480, 0, "Form1", "Camera")
img = ccd.GetImage2(640, 480, 0, "Form1", "Camera", "\My Documents", "TestImage")
Msgbox(img)
If img <> "" Then form1.Image = img
End Sub
Sub Button2_Click
'Msgbox(ccd.GetVideo(640, 480, 65535, "Form1", "Camera"))
Msgbox(ccd.GetVideo2(640, 480, 65535, "Form1", "Camera", "\My Documents", "TestVideo"))
End Sub