Attribute VB_Name = "VGHD_Player"
Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long


Public MsgText
Public VGHDusername, VGHDkey
Public Temp$, Temp1, Temp2, Temp3, Temp4, Temp5, Temp6, CT
Public MyName, MyPath, MyVersion, MyCaption
Public ShowLevel
Public ModelNumber
Public ModelName
Public CurrentValue
Public Card(10000), CName(10000), CJpeg(10000)
Public DataPath
Public ModelsPath
Public AllClean
Public NoNudity
Public Topless
Public FullNudity
Public Explicit
Public XRated
Public Standing0, Sitting1, ClimbUp2, DuoSitStand3, Pole4
Public PropWalkOut32, SittingProp33, ClimbUpProp34, PoleProp36
Public WalkOut64, ClimbUp66, Pole68
Public WalkOutProp96, ClimbUpProp98
Public PoleProp100, WithSign82
Public Cage512, CageProp546
Public Nudity(6)
Public VGHDClip
Public VGHDCard
Public VGHDName
Public VGHDOutfit
Public VGHDDate
Public VGHDFileName
Public VGHDStyle '0, 1, 2, 3, 4, 32, 33, 34, 36, 64, 66, 68, 82, 96, 98, 100, 512, 546
Public VGHDLevel '0 , 1 , 2, 3, 4, 5
Public VGHDCardCount
Public VGHDbyDate(10000, 2)
Public VGHDDateAdded(10000)
Public VGHDClips(300000) '10000 x 30
Public VGHDNumberOfClips
Public VGHDOK, VGHDPLAYMODE, VGHDNOTOK, VGHDSideOK
Public ClipCode, NudityCode
Public LD, ClipName, LCN
Public Ret, repl
Public VGHDSFileName, VGHDLFileName
Public VGHDSFullName, VGHDLFullName
Public NameofCliptoPlay
Public L1C(8)
Public VGHDULCOUNTER
Public VGHDMH, VGHDMW
Public StartClip, EndClip
Public FilterMatch1, FilterMatch2, FilterMatch3
Public RegWindowPlayerAnimations, RegScreenSaver, RegAnimations, RegSide
Public VGHDMFormLoaded
Public Debug1, Debug2, Debug3, Debug4, Debug5, Debug6
Public FilterChanged
Public ST, et, MySize
Public Paused
Public FoundCheckedClip
Public FreeIn1, FreeOut1, MyErr
Public SL 'Showlevel test variable
Public ML1C As Boolean, NFLC As Boolean
Public VGHDVersion
Public VGHDTotalCards, NClips, CardCount
Public DD, MM, YYYY, OC, VGHDLetter
Public cletterOValue, cletterCValue, cletterOKtoClick
Public FileMask, FileMaskType, FileMaskLevel, FullDemoCheck
Public FilterTemp1, FilterTemp2, FilterTemp3, FilterTemp4, FilterTemp5
Public SPTemp1, SPTemp2, SPTemp3, SPTemp4, SPTemp5
Public ClickOK
Public RandomCliptoPlay
Public DDtemp1, DDtemp2


