nRecordingType is int

// Let the user choose the type of capture
IF Dialog("Do you want to save an image or a video?", ["An image", ...
"A video"], 1, 2, dlgIconQuestion) = 1 THEN
nRecordingType = viPictureCapture
ELSE
nRecordingType = viVideoCapture
END

// Starts the application
VideoStartApp(nRecordingType, CB_VideoStartApp)

INTERNAL Procedure CB_VideoStartApp(sPath is string)

// If the return is an empty string vide (""), an error occurred
IF sPath ~= "" THEN
Error(ErrorInfo())
RETURN
END

// Message for end of recording
Info("The file was saved here: " + sPath)