'Einen Screenshot vom Kameralivebild als test.bmp speichern
 
Private Sub cmdSaveBitmap_Click()
    On Error GoTo cmdSaveBitmap_Click
 
     If VideoHasStarted = True Then
        If VideoHasStopped = False Then
 
            ICImagingControl1.MemorySnapImage
        End If
 
        With CommonDialog1
           .Filter = "Bitmap (*.bmp)|*.bmp|"
           ICImagingControl1.MemorySaveImage ("test.bmp")
        End With
    'Wenn Livebild nicht gestartet wurde, dann MessageBox
    Else
        MsgBox "Bitte zuerst den Start Button klicken!"
    End If
 
    Exit Sub
 
cmdSaveBitmap_Click:
    If Err <> cdlCancel Then MsgBox Err.Description
End Sub