Option Explicit
 
 
Dim Video_Handle As Long
 
Private Sub Form_Unload(Cancel As Integer)
    Disconnect Video_Handle
End Sub
 
Private Sub Form_Load()
    Picture1.Visible = False
    Video_Handle = CreateCaptureWindow(Me.hwnd)
End Sub
 
Private Sub Save_Click()
    CapturePicture Video_Handle, Picture1
    SavePicture Picture1.Picture, _
      "Z:\Praktikanten\Phasue\Webcam_Bilder\Test.bmp"
 
End Sub
 
 
Private Sub Beenden_Click()
    Unload Me
End Sub