'neues Bild machen
        SendMessage CapHWnd, WM_CAP_GRAB_FRAME, 0, ByVal 0&
        'Text hinzufügen
        Picture1.Picture = Picture1.Image
        Picture1.Print "Date: " & Date & " Time: " & Time()
        Picture1.CurrentX = Picture1.ScaleWidth - 1500
        Picture1.CurrentY = Picture1.ScaleHeight - 300
        Picture1.Print "by toflo Server"
        SavePicture Picture1.Image, txtPfad.Text & "\" & Replace(Time(), ":", _
          "") & ".jpg"