Option Explicit
 
Const AW_HIDE = &H10000 'Hides the window. By default, the window is shown.
Const AW_BLEND = &H80000 'Uses a fade effect. This flag can be used only if 
' hwnd is a top-level window.
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal _
  dwTime As Long, ByVal dwFlags As Long) As Boolean
 
Dim Video_Handle As Long
 
Private Sub Form_Unload(Cancel As Integer)
AnimateWindow Me.hwnd, 500, AW_HIDE Or AW_BLEND
frmEnd.show
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\VB6\Webcam_Bilder\Test.bmp"
 
End Sub
 
 
Private Sub Beenden_Click()
Unload Me
End Sub

Private Sub tmrEnd_Timer()
Unload me
End sub