Attribute VB_Name = "Module1"
'Public Const WM_USER As Long = &H400
'Public Const WM_CAP_START As Long = WM_USER

'Public Const WM_CAP_GRAB_FRAME_NOSTOP As Long = WM_CAP_START + 61


'Public Property Get capwnd() As Long
'    capwnd = hCapWnd
'End Property

'Function capGrabFrameNoStop(ByVal hCapWnd As Long) As Boolean
'   capGrabFrameNoStop = SendMessage(hCapWnd, WM_CAP_GRAB_FRAME_NOSTOP, 0&, 0&)
'End Function

'Function capFileSaveDIB(ByVal hCapWnd As Long, ByVal FilePath As String) As Boolean
'   capFileSaveDIB = SendMessageAsString(hCapWnd, WM_CAP_FILE_SAVEDIB, 0&, FilePath)
'End Function
