Attribute VB_Name = "VBCap"
Global nDirty As Integer
Global Filename As String
Global gCaptureType As Integer
Global gQuit As Boolean

Global Const TYPE_FULLSCREEN = 1
Global Const TYPE_WALLPAPER = 2
Global Const TYPE_ACTIVEWINDOW = 3
Global Const TYPE_ACTIVECLIENT = 4

Global Const TYPE_OBJECT = 5
Global Const TYPE_MENUUNDERCURSOR = 6
Global Const TYPE_MOUSECURSOR = 7
Global Const TYPE_WINDOWUNDERCURSOR = 8

Global Const TYPE_AREA = 9
Global Const TYPE_EXE = 10