Private Sub SaveUs(Filename As String) capture.StartCapture (ltmmCapture_Mode_Still) capture.SaveStillDIB "c:\\dib.bmp", -1 capture.StopCapture End Sub