Mav-Spy 4

Public Function Check_Function()
  GetWindowPlacement(%x1 = Me.Caption, 5)
  If esi <> 0 Then GoTo loc_0040FC40
  Text1.Text = vbNullString
  var_40 = "Code cannot be created for this."
  Exit Sub
End Function

Public Function ColorToHTML(clr)
  call __vbaCopyBytes(&h00000004, var_20, var_20, edi, esi, ebx)
  var_3C = var_20
  var_2C = Trim$(Hex$(var_20))
  If Len(var_2C) <> 1 Then GoTo loc_00412FF0
  var_2C = var_004078A8 & var_2C
  var_3C = var_1F
  var_18 = Trim$(Hex$(var_1F))
  If Len(var_18) <> 1 Then GoTo loc_00413042
  var_18 = var_004078A8 & var_18
  var_3C = var_1E
  var_28 = Trim$(Hex$(var_1E))
  If Len(var_28) <> 1 Then GoTo loc_00413098
  var_28 = var_004078A8 & var_28
  GoTo loc_0041309E
  var_1C = var_004078B0 & var_2C & var_18 & var_28
  GoTo loc_00413109
  If var_4 = 0 Then GoTo loc_004130F5
  Exit Sub
End Function

Private Sub Command1_Click()
  var_eax = Me.Hide
End Sub

Private Sub Command2_Click()
  Dim var_24 As TextBox
  Dim var_34 As TextBox
  Dim var_20 As TextBox
  var_34 = var_24
  var_18 = Text3.Text
  var_28 = CLng(Val(var_18))
  var_1C = call GetClass(var_28, var_20, var_24)
  Text3.Text = var_1C
  var_34 = var_20
  var_18 = Text3.Text
  var_28 = CLng(Val(var_18))
  var_1C = call GetCaption(var_28, var_20, Me)
  Text3.Text = var_1C
  var_18 = Text3.Text
  GetParent(CLng(Val(var_18)))
  var_1C = CStr(GetParent(CLng(Val(var_18))))
  Text3.Text = var_1C
  Exit Sub
End Sub

Private Sub Command3_Click()
  var_18 = Text3.Text
  call Proc_3_8_415E30(var_20, FFFFFFFFh, CLng(Val(var_18)))
  Exit Sub
End Sub

Private Sub Command4_Click()
  var_eax = APIcalls.Show var_18
End Sub

Private Sub Command5_Click()
  var_eax = Basic.Show var_18
End Sub

Private Sub Command6_Click()
  Timer1.Enabled = True
  Exit Sub
End Sub

Private Sub Command7_Click()
  var_eax = Options.Show var_18
End Sub

Private Sub Dir1_Change()
  var_18 = Dir1.Path
  Dir1.Path = var_18
  Exit Sub
End Sub

Private Sub Drive1_Change()
  On Error Resume Next
  var_20 = Drive1.Drive
  Drive1.Drive = var_20
  GoTo loc_00422138
  Exit Sub
  Exit Sub
End Sub

Private Sub File1_DblClick()
  Dim var_F0 As Variant
  Dim var_F8 As FileListBox
  var_38 = Dir1.Path
  var_F4 = var_38
  var_3C = File1.FileName
  var_FC = var_3C
  var_30 = var_38 & var_00407AB0 & var_3C
  On Error Resume Next
  Open var_30 For Input As #1 Len = -1
  var_28 = Input(LOF(1), 1)
  Close #1
  var_B0 = var_28
  var_58 = LCase(var_28)
  var_68 = "VB_atribute"
  var_78 = LCase(var_68)
  call InStr(var_88, &h00000000, var_78, var_58, &h00000001, FFFFFFFFh, esi, ebx)
  call Not(var_98, InStr(var_88, &h00000000, var_78, var_58, &h00000001, FFFFFFFFh, esi, ebx))
  var_F0 = CBool(Not(var_98, InStr(var_88, &h00000000, var_78, var_58, &h00000001, FFFFFFFFh, esi, ebx)))
  If var_F0 = 0 Then GoTo loc_00422A6A
  var_34 = MsgBox("This does not appear to be a valid .bas file, would you like to load it anyways?", 4, var_68, 10, var_88)
  If var_34 <> 7 Then GoTo loc_0042252F
  GoTo loc_00422A6A
  var_B0 = var_28
  var_58 = LCase(var_28)
  var_78 = LCase("sub")
  call InStr(var_88, &h00000000, var_78, var_58, &h00000001)
  var_F0 = Not ((InStr(var_88, &h00000000, var_78, var_58, &h00000001) = 0))
  If var_F0 = 0 Then GoTo loc_004229BE
  var_B0 = var_28
  var_58 = LCase(var_28)
  var_78 = LCase("End Sub

Private Sub Form_Load()
  call __vbaCastObj(Me, var_00407424, __vbaCastObj, Me, ebx)
  call Proc_3_0_414910(var_18, var_18, __vbaCastObj(Me, var_00407424, __vbaCastObj, Me, ebx))
  call __vbaCastObj(Me, var_00407424)
  call Proc_4151D0(var_18, var_18, __vbaCastObj(Me, var_00407424))
  Exit Sub
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  call __vbaCastObj(Me, var_00407424, edi, Me, ebx)
  call GetListText(var_18, var_18, __vbaCastObj(Me, var_00407424, edi, Me, ebx))
  Exit Sub
End Sub

Private Sub Form_Resize()
  var_18 = Me.WindowState
  If var_18 <> 2 Then GoTo loc_0040EC72
  Me.WindowState = 0
  If var_18 >= 0 Then GoTo loc_0040ECDE
  GoTo loc_0040ECD5
  var_18 = Me.WindowState
  If var_18 = 1 Then GoTo loc_0040ECDE
  Me.Width = var_45AD7000
  Me.Height = var_45870000
  If var_18 >= 0 Then GoTo loc_0040ECDE
End Sub

Private Sub Form_Terminate()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Dim var_40 As Timer
  var_40 = "                         Leaving already?"
  If MsgBox(var_40, 4, var_50, var_60, var_70) <> 0 Then GoTo loc_0040EFC1
  Timer1.Enabled = ebx
  Timer2.Enabled = ebx
  End
  Set var_30 = Me
  var_eax = Global.Unload var_30
  call __vbaVarSetObjAddref(var_24, ebx, Me, var_30, var_40, Me, var_30, var_40, Me, 0, Me, ebx)
  End
  GoTo loc_0040EFC9
  Exit Sub
End Sub

Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Exit Sub
End Sub

Private Sub HScroll1_Change()
  Dim var_20 As Variant
  Dim var_8C As HScrollBar
  Dim var_84 As PictureBox
  Dim var_88 As PictureBox
  var_68 = HScroll1.Value
  var_6C = HScroll1.Value
  var_AC = var_34
  var_70 = HScroll1.Value
  var_BC = var_68
  var_8C = var_24
  var_68 = HScroll1.Value
  var_18 = var_68
  HScroll1.Max = var_18
  var_8C = var_24
  var_68 = HScroll1.Value
  var_18 = var_68
  HScroll1.Max = var_18
  var_8C = var_24
  var_68 = HScroll1.Value
  var_18 = var_68
  HScroll1.Max = var_18
  var_84 = var_20
  var_74 = Picture2.BackColor
  var_3C = var_74
  var_18 = CStr(Hex(var_74))
  Picture2.MousePointer = var_18
  var_88 = var_44
  var_74 = Picture2.BackColor
  var_18 = Main.ColorToHTML(var_74)
  Picture2.MousePointer = var_18
  var_74 = Picture2.BackColor
  var_18 = var_74
  Picture2.MousePointer = var_18
  Exit Sub
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim var_28 As Image
  If eax <> 0 Then GoTo loc_0040F9A7
  var_28 = Image1.Picture
  var_38 = var_28._Default
  var_ret_1 = var_28
  If esi+&h00000034 = 0 Then GoTo loc_0040F9A7
  GetCursorPos()
  CopyIcon(GetCursorPos())
  SetSystemCursor(esi+&h00000034, 32512)
  Exit Sub
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If eax = 0 Then GoTo loc_0040FA7B
  SetSystemCursor(Me.GetPalette, 32512)
  var_24 = SetSystemCursor(Me.GetPalette, 32512)
  call Proc_3_8_415E30(var_28, var_40, var_44)
  Exit Sub
End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim var_28 As Image
  If eax <> 0 Then GoTo loc_0040FD97
  var_28 = Image1.Picture
  var_38 = var_28._Default
  var_ret_1 = var_28
  If esi+&h00000034 = 0 Then GoTo loc_0040FD97
  GetCursorPos()
  CopyIcon(GetCursorPos())
  SetSystemCursor(esi+&h00000034, 32512)
  Timer1.Enabled = True
  Exit Sub
End Sub

Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If eax = 0 Then GoTo loc_0040FE80
  SetSystemCursor(Me.GetPalette, 32512)
  Timer1.Enabled = edi
  Exit Sub
End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim var_28 As Image
  If eax <> 0 Then GoTo loc_0040FFF7
  var_28 = Image1.Picture
  var_38 = var_28._Default
  var_ret_1 = var_28
  If esi+&h00000034 = 0 Then GoTo loc_0040FFF7
  GetCursorPos()
  CopyIcon(GetCursorPos())
  SetSystemCursor(esi+&h00000034, 32512)
  Timer2.Enabled = True
  Exit Sub
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If eax = 0 Then GoTo loc_004100E0
  SetSystemCursor(Me.GetPalette, 32512)
  Timer2.Enabled = edi
  Exit Sub
End Sub

Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim var_28 As Image
  If eax <> 0 Then GoTo loc_00410257
  var_28 = Image1.Picture
  var_38 = var_28._Default
  var_ret_1 = var_28
  If esi+&h00000034 = 0 Then GoTo loc_00410257
  GetCursorPos()
  CopyIcon(GetCursorPos())
  SetSystemCursor(esi+&h00000034, 32512)
  Timer3.Enabled = True
  Exit Sub
End Sub

Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If eax = 0 Then GoTo loc_00410340
  SetSystemCursor(Me.GetPalette, 32512)
  Timer3.Enabled = edi
  Exit Sub
End Sub

Private Sub Label14_Click()
  Dim var_2C As App
  var_30 = Me.hWnd
  var_2C = Global.App
  var_18 = Global.Path
  ShellExecute(var_30, "Open", "http://www.mavness.com", vbNullString, var_18, 1)
  Exit Sub
End Sub

Private Sub Label14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Exit Sub
End Sub

Private Sub Label16_Click()
  Dim var_2C As App
  var_30 = Me.hWnd
  var_2C = Global.App
  var_18 = Global.Path
  ShellExecute(var_30, "Open", "http://www.vbfx.com", vbNullString, var_18, 1)
  Exit Sub
End Sub

Private Sub Label16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Exit Sub
End Sub

Private Sub Label19_Click()
  Dim var_2C As App
  var_30 = Me.hWnd
  var_2C = Global.App
  var_18 = Global.Path
  ShellExecute(var_30, "Open", "http://www.patorjk.com", vbNullString, var_18, 1)
  Exit Sub
End Sub

Private Sub Label19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Exit Sub
End Sub

Private Sub List1_Click()
  Dim var_44 As ListBox
  Dim var_24 As ListBox
  var_44 = var_24
  var_28 = List1.ListIndex
  List1.ListIndex = var_28
  var_44 = var_24
  var_28 = List1.ListIndex
  List1.ListIndex = var_28
  var_28 = List1.ListIndex
  List1.ListIndex = var_28
  Exit Sub
End Sub

Private Sub Option10_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option11_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option12_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option13_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option14_Click()
  var_1C = Option14.Value
  If ebx = 0 Then GoTo loc_00413DDB
  Option14.Value = False
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  If esi >= 0 Then GoTo loc_00413EC9
  GoTo loc_00413EB7
  Option14.Value = True
  Check1.Enabled = True
  Check2.Enabled = True
  Check3.Enabled = True
  If esi >= 0 Then GoTo loc_00413EC9
  Exit Sub
End Sub

Private Sub Option1_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option2_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option3_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option5_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option6_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option7_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option8_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Option9_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Text14_KeyPress(KeyAscii As Integer)
  On Error Resume Next
  If KeyAscii <> 13 Then GoTo loc_00411277
  If IsNumeric(Me) = 0 Then GoTo loc_00411277
  var_20 = Text14.Text
  Text14.FontBold = CInt(Val(var_20))
  GoTo loc_00411277
  var_3C = var_A8 & ", " & var_24
  Exit Sub
  Exit Sub
End Sub

Private Sub Text15_KeyPress(KeyAscii As Integer)
  On Error Resume Next
  If KeyAscii <> 13 Then GoTo loc_00411583
  If IsNumeric(Me) = 0 Then GoTo loc_00411583
  var_20 = Text15.Text
  Text15.FontBold = CInt(Val(var_20))
  GoTo loc_00411583
  var_3C = var_A8 & ", " & var_24
  Exit Sub
  Exit Sub
End Sub

Private Sub Text16_KeyPress(KeyAscii As Integer)
  On Error Resume Next
  If KeyAscii <> 13 Then GoTo loc_00411898
  If IsNumeric(Me) = 0 Then GoTo loc_00411898
  var_20 = Text16.Text
  Text16.FontBold = CInt(Val(var_20))
  GoTo loc_00411898
  var_3C = var_A8 & ", " & var_24
  Exit Sub
  Exit Sub
End Sub

Private Sub Text1_DblClick()
  var_eax = Enlarge.Show var_24
  var_18 = Text1.Text
  Text1.Text = var_18
  Exit Sub
End Sub

Private Sub Text7_DblClick()
  var_eax = Enlarge.Show var_24
  var_18 = Text7.Text
  Text7.Text = var_18
  Exit Sub
End Sub

Function That Finds a Window"
      Left = 2040
      Top = 1200
      Width = 2055
      Height = 375
      TabIndex = 23
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option18
      Caption = "Hit Enter Key"
      Left = 2040
      Top = 960
      Width = 1815
      Height = 255
      TabIndex = 22
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option17
      Caption = "Click on Check box"
      Left = 2040
      Top = 720
      Width = 1935
      Height = 255
      TabIndex = 21
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option16
      Caption = "UnCheck Check Box"
      Left = 2040
      Top = 480
      Width = 1695
      Height = 255
      TabIndex = 20
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option15
      Caption = "Check a Check Box"
      Left = 2040
      Top = 240
      Width = 1695
      Height = 255
      TabIndex = 19
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option4
      Caption = "Get Text"
      Left = 240
      Top = 1200
      Width = 1335
      Height = 255
      TabIndex = 17
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option3
      Caption = "Set Text"
      Left = 240
      Top = 960
      Width = 1575
      Height = 255
      TabIndex = 16
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option2
      Caption = "Click Icon"
      Left = 240
      Top = 720
      Width = 1215
      Height = 255
      TabIndex = 15
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option1
      Caption = "Click Button"
      Left = 240
      Top = 480
      Width = 1215
      Height = 255
      TabIndex = 14
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option5
      Caption = "Just Find the Window"
      Left = 240
      Top = 240
      Width = 1695
      Height = 255
      TabIndex = 13
      Value = 255
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option6
      Caption = "Click a msgbox"
      Left = 240
      Top = 1440
      Width = 1335
      Height = 255
      TabIndex = 12
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option7
      Caption = "Right Click"
      Left = 240
      Top = 1680
      Width = 1095
      Height = 255
      TabIndex = 11
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option8
      Caption = "Double CLick"
      Left = 240
      Top = 1920
      Width = 1215
      Height = 255
      TabIndex = 10
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option11
      Caption = "Show Window"
      Left = 240
      Top = 2640
      Width = 1335
      Height = 255
      TabIndex = 9
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option12
      Caption = "Hide Window"
      Left = 240
      Top = 2880
      Width = 1215
      Height = 255
      TabIndex = 8
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option13
      Caption = "Close Window"
      Left = 240
      Top = 3120
      Width = 1215
      Height = 255
      TabIndex = 7
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option14
      Caption = "ListBox "
      Left = 240
      Top = 3360
      Width = 855
      Height = 255
      TabIndex = 6
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option10
      Caption = "Disable Window"
      Left = 240
      Top = 2400
      Width = 1335
      Height = 255
      TabIndex = 5
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin OptionButton Option9
      Caption = "Enable Window"
      Left = 240
      Top = 2160
      Width = 1335
      Height = 255
      TabIndex = 4
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin CheckBox Check1
      Caption = "Get Count"
      Left = 240
      Top = 3600
      Width = 1335
      Height = 255
      Enabled = 0   'False
      TabIndex = 3
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin CheckBox Check2
      Caption = "Get item in list"
      Left = 240
      Top = 3840
      Width = 1455
      Height = 255
      Enabled = 0   'False
      TabIndex = 2
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin CheckBox Check3
      Caption = "Select Item in list"
      Left = 240
      Top = 4080
      Width = 1455
      Height = 255
      Enabled = 0   'False
      TabIndex = 1
      BeginProperty Font
        Name = "Arial"
        Size = 6.75
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
  End
End

Attribute VB_Name = "Options"

Private Sub Option4_Click()
  Check1.Enabled = False
  Check2.Enabled = False
  Check3.Enabled = False
  Exit Sub
End Sub

Private Sub Timer1_Timer()
  Dim var_24 As TextBox
  Dim var_58 As TextBox
  Dim var_2C As TextBox
  var_38 = call Proc_414D10(edi, Me, ebx)
  call Proc_414D40(var_20, %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4), var_24)
  var_34 = (vtable)
  var_30 = var_38
  call Proc_414D70(var_30, var_34, var_20)
  APItxt.Text = CStr(call Proc_414D70(var_30, var_34, var_20))
  var_58 = var_2C
  var_18 = APItxt.Text
  var_30 = var_18
  call GetClass(var_30, var_20, 0)
  APItxt.Text = call GetClass(var_30, var_20, 0)
  var_18 = APItxt.Text
  var_30 = var_18
  var_1C = call GetCaption(var_30, var_20, 0)
  If (var_1C = vbNullString) + 1 = 0 Then GoTo loc_00411E2C
  APItxt.Text = "VbNullString"
  GoTo loc_00411F34
  var_58 = var_2C
  var_18 = APItxt.Text
  var_30 = var_18
  call GetCaption(var_30, Me, 0)
  APItxt.Text = call GetCaption(var_30, Me, 0)
  var_3C = call Proc_414D10(var_20, Me, )
  call Proc_414D40(call Proc_414D10(var_20, Me, ), 3, var_24)
  var_34 = call Proc_414D40(call Proc_414D10(var_20, Me, ), 3, var_24)
  var_30 = var_3C
  var_38 = call Proc_414D70(var_30, var_34, var_20)
  call Proc_414DA0(var_38, call Proc_414D10(var_20, Me, ), Me)
  APItxt.Text = CStr(call Proc_414DA0(var_38, call Proc_414D10(var_20, Me, ), Me))
  var_58 = var_2C
  var_18 = APItxt.Text
  var_30 = var_18
  call GetClass(var_30, var_20, 3)
  APItxt.Text = call GetClass(var_30, var_20, 3)
  var_18 = APItxt.Text
  var_30 = var_18
  var_1C = call GetCaption(var_30, var_20, 3)
  If (var_1C = vbNullString) + 1 = 0 Then GoTo loc_00412222
  APItxt.Text = "VbNullString"
  GoTo loc_0041231B
  var_18 = APItxt.Text
  var_30 = var_18
  var_1C = call GetCaption(var_30, var_20, 3)
  APItxt.Text = var_1C
  Exit Sub
End Sub

Private Sub Timer2_Timer()
  Dim var_1C As TextBox
  call Proc_414D10(edi, Me, ebx)
  call Proc_414D40(var_1C, call Proc_414D10(edi, Me, ebx), Me)
  var_24 = call Proc_414D40(var_1C, call Proc_414D10(edi, Me, ebx), Me)
  var_20 = call Proc_414D10(edi, Me, ebx)
  call Proc_414D70(var_20, var_24, )
  var_18 = CStr(call Proc_414D70(var_20, var_24, ))
  Text2.Text = var_18
  call Proc_414D10(, , )
  var_24 = call Proc_414D40(var_1C, esi, Me)
  var_20 = call Proc_414D10(, , )
  call Proc_414D70(var_20, var_24, )
  var_18 = CStr(call Proc_414D70(var_20, var_24, ))
  Text3.Text = var_18
  Exit Sub
End Sub

Private Sub Timer3_Timer()
  Dim var_9C As Variant
  Dim var_A0 As TextBox
  Dim var_A4 As PictureBox
  On Error Resume Next
  GetCursorPos(var_40)
  var_ret_1 = var_3C
  var_ret_2 = var_40
  WindowFromPoint(var_ret_2, var_ret_1)
  var_24 = WindowFromPoint(var_ret_2, var_ret_1)
  GetDC(var_24)
  var_28 = GetDC(var_24)
  ScreenToClient(var_24, var_40)
  GetPixel(var_28, var_40, var_3C)
  var_64 = GetPixel(var_28, var_40, var_3C)
  If var_64 <> -1 Then GoTo loc_004127EE
  var_98 = Picture1.hDC
  var_A0 = var_98
  BitBlt(var_98, 0, 0, 1, 1, var_28, var_40, var_3C, var_00CC0020)
  var_eax = Picture1.Point 0, 0
  var_A0 = Picture1.Point 0, 0
  var_64 = var_98
  GoTo loc_0041287E
  var_eax = Picture1.PSet (0, 0), var_64
  var_A0 = Picture1.PSet (0, 0), var_64
  ReleaseDC(var_24, var_28)
  var_9C = var_70
  Picture1.BackColor = var_64
  var_A0 = var_9C
  var_9C = var_70
  var_8C = var_64
  Text9.Text = CStr(Hex(var_64))
  var_A0 = var_9C
  var_A0 = var_70
  var_6C = Main.ColorToHTML(var_64)
  var_9C = var_6C
  Text10.Text = var_6C
  var_A4 = var_A0
  var_98 = Picture1.BackColor
  var_A0 = var_98
  Picture1.MousePointer = var_98
  var_A8 = var_A4
  var_9C = var_70
  var_6C = Text11.Text
  var_A0 = var_6C
  call Proc_415C00(var_B4, CLng(Val(var_6C)), var_70)
  call __vbaCopyBytes(&h0000000C, var_34, var_B4, var_B4, Me, var_74, Me, Me, var_70, var_B4, Me, var_70, Me, Me)
  Text19.Text = var_34
  var_A0 = var_9C
  var_9C = var_70
  Text12.Text = var_30
  var_A0 = var_9C
  var_9C = var_70
  Text13.Text = var_2C
  var_A0 = var_9C
  Exit Sub
End Sub

Public Function GetCaption(WindowHandle As Long) As String
    Dim buffer As String, TextLength As Long
    TextLength& = GetWindowTextLength(WindowHandle&)
    buffer$ = String(TextLength&, 0&)
    Call GetWindowText(WindowHandle&, buffer$, TextLength& + 1)
    GetCaption$ = buffer$

Public Function GetListText(WindowHandle As Long) As String
    Dim buffer As String, TextLength As Long
    TextLength& = SendMessage(WindowHandle&, LB_GETTEXTLEN, 0&, 0&)
    buffer$ = String(TextLength&, 0&)
    Call SendMessageByString(WindowHandle&, LB_GETTEXT, TextLength& + 1, buffer$)
    GetListText$ = buffer$

Public Function ReplaceString(MyString As String, ToFind As String, ReplaceWith As String) As String
    Dim Spot As Long, NewSpot As Long, LeftString As String
    Dim RightString As String, NewString As String
    Spot& = InStr(LCase(MyString$), LCase(ToFind))
    NewSpot& = Spot&
    Do
        If NewSpot& > 0& Then
            LeftString$ = Left(MyString$, NewSpot& - 1)
            If Spot& + Len(ToFind$) <= Len(MyString$) Then
                RightString$ = Right(MyString$, Len(MyString$) - NewSpot& - Len(ToFind$) + 1)
            Else
                RightString = ""
            End If
            NewString$ = LeftString$ & ReplaceWith$ & RightString$
            MyString$ = NewString$
        Else
            NewString$ = MyString$
        End If
        Spot& = NewSpot& + Len(ReplaceWith$)
        If Spot& > 0 Then
            NewSpot& = InStr(Spot&, LCase(MyString$), LCase(ToFind$))
        End If
    Loop Until NewSpot& < 1
    ReplaceString$ = NewString$

Function GetClass(child)
Buffer$ = String$(250, 0)
getclas% = GetClassName(child, Buffer$, 250)

GetClass = Buffer$

Public Sub Proc_3_0_414910
  Dim var_14 As Screen
  var_1C = ebx.Width
  var_14 = Global.Screen
  var_18 = Global.Width
  If var_424000 <> 0 Then GoTo loc_004149F4
  GoTo loc_004149FF
  var_1C = Global.TwipsPerPixelY
  var_14 = Global.Screen
  var_18 = Global.Height
  If var_424000 <> 0 Then GoTo loc_00414AC6
  GoTo loc_00414AD1
  var_eax = Global.MousePointer =
  Exit Sub
  Exit Sub
End Sub

Public Sub GetCaption
  GetWindowTextLength(Me)
  var_ret_1 = GetWindowTextLength(Me)
  var_24 = String$(si, "")
  GetWindowText(Me, var_24, var_ret_1 + 0001h)
  var_ret_3 = var_28
  var_20 = var_24
  GoTo loc_00414CE7
  If var_4 = 0 Then GoTo loc_00414CD4
  Exit Sub
  Exit Sub
End Sub

Public Sub Proc_3_8_415E30
  Dim var_004240D0 As Variant
  Dim var_EC As Variant
  Dim var_2C4 As Variant
  On Error Resume Next
  If var_64 = 0 Then GoTo loc_00415FA2
  var_ret_1 = var_54
  var_ret_2 = var_98
  SetSystemCursor(var_ret_2, var_ret_1)
  var_218 = SetSystemCursor(var_ret_2, var_ret_1)
  If eax <> 0 Then GoTo loc_00415FF5
  call Proc_414D10(1, edi, var_ret_3 = %StkVar1)
  var_21C = call Proc_414D40(ebx, , )
  var_218 = var_ret_3
  var_84 = call Proc_414D70(var_218, var_21C, )
  call GetClass(var_84, , )
  call GetClass(var_84, , )
  ecx = eax
  var_C0 = vbNullString
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  var_C0 = vbNullString
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  var_BC = Chr(34)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  call ReplaceString(var_0042406C, var_BC, var_C0)
  var_214 = Options.Option19.Value
  If var_22C = 0 Then GoTo loc_00416672
  If (var_80 <> True) <> 0 Then GoTo loc_004216A0
  If var_84 = 0 Then GoTo loc_00416E70
  edi = edi + &h00000001
  edi+&h00000001 = edi+&h00000001 - &h00000001
  var_224 = edi+&h00000001
  If edi+&h00000001 < 1001 Then GoTo loc_004166A7
  var_eax = Err.Raise
  GetParent(edx+eax*4)
  var_84 = GetParent(edx+eax*4)
  If edi+&h00000001 < 1001 Then GoTo loc_004166E2
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_004166FE
  var_eax = Err.Raise
  call GetClass(var_84, var_EC, var_004240D0)
  call GetClass(var_84, var_EC, var_004240D0)
  If edi+&h00000001 < 1001 Then GoTo loc_00416748
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416748
  var_eax = Err.Raise
  ecx = ecx+edi*4
  var_C0 = vbNullString
  If edi+&h00000001 < 1001 Then GoTo loc_00416791
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416791
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  var_C0 = vbNullString
  If edi+&h00000001 < 1001 Then GoTo loc_00416819
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416819
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_004168A1
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_004168A1
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_00416929
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416929
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_004169B1
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_004169B1
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_00416A39
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416A39
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_00416AC1
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416AC1
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_00416B49
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416B49
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  var_BC = Chr(34)
  If edi+&h00000001 < 1001 Then GoTo loc_00416BEA
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416BEA
  var_eax = Err.Raise
  call ReplaceString(edx+edi*4, var_BC, var_C0)
  call ReplaceString(edx+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_00416C80
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416C80
  var_eax = Err.Raise
  call ReplaceString(ecx+edi*4, var_BC, var_C0)
  call ReplaceString(ecx+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_00416D09
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416D09
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_00416D91
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416D91
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  If edi+&h00000001 < 1001 Then GoTo loc_00416E19
  var_eax = Err.Raise
  If edi+&h00000001 < 1001 Then GoTo loc_00416E19
  var_eax = Err.Raise
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  call ReplaceString(eax+edi*4, var_BC, var_C0)
  GoTo loc_00416672
  var_214 = Options.Option19.Value
  If var_22C = 0 Then GoTo loc_00417189
  InputBox("Please name the function?", var_110, 10, 10, 10, 10, 10)
  If (var_00424098 = 0) = 0 Then GoTo loc_004216A0
  var_C0 = vbNullString
  call ReplaceString(vbNullString, var_BC, var_C0)
  call ReplaceString(vbNullString, var_BC, var_C0)
  call ReplaceString(vbNullString, var_BC, var_C0)
  call ReplaceString(vbNullString, var_BC, var_C0)
  var_BC = Options.Option19.MousePointer
  var_D0 = var_BC & "vbCrLf" & "Public Function " & var_00424098 & "() As Long" & "vbCrLf"
  GoTo loc_004176AB
  var_214 = Options.Option4.Value
  If var_22C = 0 Then GoTo loc_00417397
  call ReplaceString(vbNullString, &h00407BE4, vbNullString)
  call var_2C4(var_EC, var_004240D0, var_004240D0, var_2C4, var_D0)
  call ReplaceString(vbNullString, &h004078B0, &h00407BEC)
  call var_2C4
  var_BC = Options.Option4.MousePointer
  var_D0 = var_BC & "vbCrLf" & "Public Function " & var_00424098 & "() As String" & "vbCrLf"
  GoTo loc_004176AB
  var_214 = Options.Option3.Value
  If var_22C = 0 Then GoTo loc_004176C0
  var_100 = "Enter the name of the sub"
  call var_2C4(var_EC, var_004240D0, var_004240D0, var_2C4, var_D0)
  If (var_00424098 = 0) = 0 Then GoTo loc_004216A0
  call ReplaceString(vbNullString, &h00407BE4, vbNullString)
  call var_2C4
  call ReplaceString(vbNullString, &h004078B0, &h00407BEC)
  call var_2C4
  var_BC = Options.Option3.MousePointer
  var_D0 = var_BC & "vbCrLf" & "Sub " & var_00424098 & "(TheText As String)" & "vbCrLf"
  Options.Option3.MousePointer = var_D0
  If var_D0 >= 0 Then GoTo loc_00417A2B
  GoTo loc_00417A19
  var_214 = Options.Option5.Value
  If var_22C = 0 Then GoTo loc_00417792
  Options.Option5.MousePointer = 0
  GoTo loc_00417A66
  var_100 = "Enter the name of the sub"
  call var_2C4(var_EC, var_004240D0, var_004240D0)
  If (var_00424098 = 0) = 0 Then GoTo loc_004216A0
  call ReplaceString(vbNullString, &h00407BE4, vbNullString)
  call var_2C4
  call ReplaceString(vbNullString, &h004078B0, &h00407BEC)
  call var_2C4
  var_BC = Options.Option5.MousePointer
  var_D0 = var_BC & "vbCrLf" & "Sub " & var_00424098 & "()" & "vbCrLf"
  Options.Option5.MousePointer = var_D0
  If var_D0 >= 0 Then GoTo loc_00417A2B
  edi+&h00000001 = edi+&h00000001 - &h00000001
  var_40 = edi+&h00000001
  edi+&h00000001 = edi+&h00000001 - &h00000001
  var_30 = edi+&h00000001
  var_BC = Options.Option5.MousePointer
  Options.Option5.MousePointer = var_BC & "Dim " & eax+ecx*4
  var_BC = Options.Option5.MousePointer
  var_C0 = var_BC & " As Long"
  Options.Option5.MousePointer = var_C0
  If var_30 = 0 Then GoTo loc_00417EA5
  var_30 = var_30 - &h00000001
  var_30 = var_30
  If var_30 < 1001 Then GoTo loc_00417BFC
  var_eax = Err.Raise
  var_1B8 = edx+edi*4
  var_110 = LCase(edx+edi*4)
  Set var_EC = Me
  var_1A8 = var_EC
  var_100 = LCase(var_EC)
  call __vbaCastObj(var_EC, var_00406B74)
  If var_30 < 1001 Then GoTo loc_00417C91
  var_eax = Err.Raise
  Len(edx+edi*4) = Len(edx+edi*4) - &h00000001
  var_120 = Left(var_110, Len(edx+edi*4))
  call InStr(var_130, &h00000000, var_120, var_100, &h00000001, Me, __vbaCastObj(var_EC, var_00406B74))
  var_22C = (InStr(var_130, &h00000000, var_120, var_100, &h00000001, Me, __vbaCastObj(var_EC, var_00406B74)) = 0)
  If var_22C = 0 Then GoTo loc_00417BDA
  var_BC = Options.Option5.MousePointer
  var_C4 = var_BC & ", " & ecx+edx*4
  Options.Option5.MousePointer = var_C4
  var_BC = Options.Option5.MousePointer
  Options.Option5.MousePointer = var_BC & " As Long"
  GoTo loc_00417BCC
  var_40 = var_40 - &h00000001
  var_214 = Options.Option19.Value
  If var_22C = 0 Then GoTo loc_004184DF
  FindWindowEx(4341812, 0, 0, 0)
  var_88 = FindWindowEx(4341812, 0, 0, 0)
  If var_218 = 0 Then GoTo loc_004184DF
  If ebx = 9 Then GoTo loc_004184DF
  var_3C = call GetClass(var_88, var_EC, var_004240D0)
  var_1A8 = var_3C
  Len(var_3C) = Len(var_3C) - &h00000001
  var_C0 = vbNullString
  call ReplaceString(Left(var_3C, Len(var_3C)), var_BC, var_C0)
  var_C0 = vbNullString
  call ReplaceString(call ReplaceString(var_3C, var_BC, var_C0), var_BC, var_C0)
  call ReplaceString(call ReplaceString(var_3C, var_BC, var_C0), var_BC, var_C0)
  var_3C = call ReplaceString(var_3C, var_BC, var_C0)
  Set var_EC = Me
  var_1A8 = var_EC
  var_100 = LCase(var_EC)
  call __vbaCastObj(var_EC, var_00406B74)
  var_1B8 = call ReplaceString(var_3C, var_BC, var_C0)
  var_110 = LCase(call ReplaceString(var_3C, var_BC, var_C0))
  call InStr(var_120, &h00000000, var_110, var_100, &h00000001, Me, __vbaCastObj(var_EC, var_00406B74))
  If CBool(InStr(var_120, &h00000000, var_110, var_100, &h00000001, Me, __vbaCastObj(var_EC, var_00406B74))) = 0 Then GoTo loc_00418347
  var_3C = var_3C & 0
  var_BC = Options.Option19.MousePointer
  var_C4 = var_BC & ", " & var_3C
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & " As Long"
  Options.Option19.MousePointer = var_C0
  If var_30 < 1001 Then GoTo loc_00418488
  GoTo loc_00418482
  var_BC = Options.Option19.MousePointer
  var_C4 = var_BC & ", " & var_3C
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & " As Long"
  Options.Option19.MousePointer = var_C0
  If var_30 < 1001 Then GoTo loc_00418488
  var_eax = Err.Raise
  ecx = var_3C
  var_30 = var_30 + &h00000001
  var_30 = var_30
  FindWindowEx(4341812, var_88, 0, 0)
  var_88 = FindWindowEx(4341812, var_88, 0, 0)
  GoTo loc_00417F7A
  var_40 = var_40 + &h00000001
  var_68 = var_40
  var_40 = var_40 - &h00000001
  If var_40 < 1001 Then GoTo loc_00418507
  var_eax = Err.Raise
  call GetCaption(ecx+ebx*4, , )
  call GetCaption(ecx+ebx*4, , )
  var_40 = var_40 - &h00000001
  If var_40 < 1001 Then GoTo loc_0041853C
  var_eax = Err.Raise
  var_ret_4 = var_00424078
  var_ret_5 = edx+ebx*4
  FindWindow(var_ret_5, var_ret_4)
  var_218 = FindWindow(var_ret_5, var_ret_4)
  var_40 = var_40 - &h00000001
  If var_40 < 1001 Then GoTo loc_00418592
  var_eax = Err.Raise
  var_ret_6 = var_BC
  var_ret_7 = var_C0
  var_B8 = var_218
  var_40 = var_40 - &h00000002
  If var_40 = -1 Then GoTo loc_00418902
  var_40 = var_40 - &h00000002
  If var_40 < 1001 Then GoTo loc_00418626
  var_eax = Err.Raise
  var_ret_8 = ecx+ebx*4
  var_ret_9 = var_B8
  FindWindowEx(var_ret_9, 0, var_ret_8, 0)
  var_218 = FindWindowEx(var_ret_9, 0, var_ret_8, 0)
  var_40 = var_40 - &h00000002
  If var_40 < 1001 Then GoTo loc_0041867A
  var_eax = Err.Raise
  var_ret_A = var_BC
  var_A8 = var_218
  If (var_A8 = 0) = 0 Then GoTo loc_00418902
  var_40 = var_40 - &h00000001
  var_68 = var_40
  var_40 = var_40 - &h00000001
  If var_40 = -1 Then GoTo loc_00418902
  var_40 = var_40 - &h00000001
  If var_40 < 1001 Then GoTo loc_0041872E
  var_eax = Err.Raise
  var_ret_B = eax+ebx*4
  var_ret_C = var_A8
  FindWindowEx(var_ret_C, 0, var_ret_B, 0)
  var_218 = FindWindowEx(var_ret_C, 0, var_ret_B, 0)
  var_40 = var_40 - &h00000001
  If var_40 < 1001 Then GoTo loc_00418781
  var_eax = Err.Raise
  var_ret_D = var_BC
  var_2C = var_218
  If (var_2C = 0) = 0 Then GoTo loc_00418902
  var_40 = var_40 - &h00000001
  var_68 = var_40
  var_40 = var_40 - &h00000001
  If var_40 = -1 Then GoTo loc_00418902
  var_40 = var_40 - &h00000001
  If var_40 < 1001 Then GoTo loc_00418830
  var_eax = Err.Raise
  var_ret_E = edx+ebx*4
  var_ret_F = var_A8
  FindWindowEx(var_ret_F, 0, var_ret_E, 0)
  var_218 = FindWindowEx(var_ret_F, 0, var_ret_E, 0)
  var_40 = var_40 - &h00000001
  If var_40 < 1001 Then GoTo loc_00418884
  var_eax = Err.Raise
  var_ret_10 = var_BC
  var_2C = var_218
  If (var_2C = 0) = 0 Then GoTo loc_00418902
  var_40 = var_40 - &h00000001
  var_68 = var_40
  var_214 = Options.Check4.Value
  If ebx = 0 Then GoTo loc_0041903F
  var_BC = Options.Check4.MousePointer
  var_40 = var_40 - &h00000001
  var_22C = var_40
  If var_40 < 1001 Then GoTo loc_004189CD
  var_eax = Err.Raise
  Options.Check4.MousePointer = var_BC & "vbCrLf" & eax+ecx*4
  If @%StkVar2 & %x1 >= 0 Then GoTo loc_00418A35
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC & "& = FindWindow("
  var_C0 = CStr(var_BC & "& = FindWindow(" & Chr(34))
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  var_68 = var_68 - &h00000001
  If var_68 < 1001 Then GoTo loc_00418B7F
  var_eax = Err.Raise
  var_C0 = var_BC & ecx+esi*4
  Options.Check4.MousePointer = var_C0
  var_214 = Options.Check4.Value
  If edx = 0 Then GoTo loc_00418F3C
  If var_40 < 1001 Then GoTo loc_00418C82
  var_eax = Err.Raise
  var_70 = call GetCaption(eax+esi*4, var_EC, var_004240D0)
  If (var_70 <> 0) <> 0 Then GoTo loc_00418D80
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ", VbNullString)"
  var_C0 = CStr(var_BC & Chr(34) & ", VbNullString)")
  Options.Check4.MousePointer = var_C0
  If var_C0 >= 0 Then GoTo loc_00419012
  GoTo loc_00419004
  var_eax = = Options.Check4.MousePointer
  var_108 = var_BC
  var_1B8 = var_70
  var_C0 = CStr(var_BC & Chr(34) & &H407DA8 & Chr(34) & var_70 & Chr(34) & &H407DB0)
  Options.Check4.MousePointer = var_C0
  GoTo loc_004193B7
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ", vbNullString)"
  var_C0 = CStr(var_BC & Chr(34) & ", vbNullString)")
  Options.Check4.MousePointer = var_C0
  If var_C0 >= 0 Then GoTo loc_00419012
  GoTo loc_004193AC
  var_BC = Options.Check4.MousePointer
  var_2C4 = var_2C4 - &h00000001
  var_22C = var_2C4
  If var_2C4 < 1001 Then GoTo loc_0041908B
  var_eax = Err.Raise
  var_C4 = var_BC & "vbCrLf" & ecx+edx*4
  Options.Check4.MousePointer = var_C4
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC & "& = FindWindow("
  var_C0 = CStr(var_BC & "& = FindWindow(" & Chr(34))
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  var_68 = var_68 - &h00000001
  If var_68 < 1001 Then GoTo loc_0041923E
  var_eax = Err.Raise
  var_C0 = var_BC & ecx+esi*4
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ",vbNullString)"
  var_C0 = CStr(var_BC & Chr(34) & ",vbNullString)")
  Options.Check4.MousePointer = var_C0
  var_68 = var_68 - &h00000002
  var_38 = var_68
  var_1B8 = var_68
  For var_B8 = 0 To var_68 Step 1
  If var_B8 = 0 Then GoTo loc_0041C72B
  If var_68 = -1 Then GoTo loc_0041C72B
  var_214 = Options.Option19.Value
  If edx = 0 Then GoTo loc_004194CC
  If var_68 = 1 Then GoTo loc_0041C72B
  var_214 = Options.Option19.Value
  If edx = 0 Then GoTo loc_004195B2
  var_1B8 = var_68
  If (var_B8 + 2 <> var_68) <> 0 Then GoTo loc_0041BD07
  If var_38 < 1001 Then GoTo loc_004195C3
  var_eax = Err.Raise
  If var_44 = 0 Then GoTo loc_0041BCC9
  If var_38 <> 0 Then GoTo loc_00419735
  If &h00000001 < 1001 Then GoTo loc_004195F0
  var_eax = Err.Raise
  var_ret_11 = CInt(4341840)
  FindWindowEx(ecx+esi*4, 0, var_ret_11, 0)
  var_218 = FindWindowEx(ecx+esi*4, 0, var_ret_11, 0)
  var_ret_12 = var_BC
  If var_218 = &h00424034 Then GoTo loc_0041971C
  If var_38 < 1001 Then GoTo loc_0041966A
  var_eax = Err.Raise
  If var_218 = 0 Then GoTo loc_0041972B
  If var_38 < 1001 Then GoTo loc_00419682
  var_eax = Err.Raise
  var_38 = var_38 + &h00000001
  If var_38 < 1001 Then GoTo loc_0041969B
  var_eax = Err.Raise
  var_ret_13 = ecx+ebx*4
  FindWindowEx(ecx+esi*4, var_218, var_ret_13, 0)
  var_218 = FindWindowEx(ecx+esi*4, var_218, var_ret_13, 0)
  If var_38 < 1001 Then GoTo loc_004196DF
  var_eax = Err.Raise
  var_ret_14 = var_BC
  var_34 = var_34 + &h00000001
  var_34 = var_34
  GoTo loc_0041965A
  var_34 = var_34 + &h00000001
  var_34 = var_34
  If var_34 >= 4 Then GoTo loc_0041B252
  If var_38 < 1001 Then GoTo loc_00419743
  var_eax = Err.Raise
  var_38 = var_38 + &h00000001
  If var_38 < 1001 Then GoTo loc_0041975E
  var_eax = Err.Raise
  var_ret_15 = edx+ebx*4
  FindWindowEx(edx+esi*4, 0, var_ret_15, 0)
  var_218 = FindWindowEx(edx+esi*4, 0, var_ret_15, 0)
  If var_38 < 1001 Then GoTo loc_0041979F
  var_eax = Err.Raise
  var_ret_16 = var_BC
  var_44 = var_218
  If var_38 < 1001 Then GoTo loc_004197D5
  var_eax = Err.Raise
  If var_218 = 0 Then GoTo loc_0041AAD3
  If var_38 < 1001 Then GoTo loc_004197F7
  var_eax = Err.Raise
  If var_44 = 0 Then GoTo loc_0041A172
  If var_38 < 1001 Then GoTo loc_00419812
  var_eax = Err.Raise
  var_38 = var_38 + &h00000001
  If var_38 < 1001 Then GoTo loc_00419827
  var_eax = Err.Raise
  var_ret_17 = ecx+edi*4
  FindWindowEx(edx+esi*4, var_44, var_ret_17, 0)
  var_218 = FindWindowEx(edx+esi*4, var_44, var_ret_17, 0)
  If var_38 < 1001 Then GoTo loc_0041986A
  var_eax = Err.Raise
  var_ret_18 = var_BC
  var_44 = var_218
  var_BC = Options.Option19.MousePointer
  var_C4 = var_BC & "vbCrLf" & eax+ecx*4
  var_C8 = var_C4 & var_00407DEC
  Options.Option19.MousePointer = var_C8
  var_BC = Options.Option19.MousePointer
  var_38 = var_38 + &h00000001
  If var_38 < 1001 Then GoTo loc_004199B2
  var_eax = Err.Raise
  var_C4 = var_BC & "& = FindWindowEx(" & edx+edi*4
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & "&, "
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & eax+ebx*4
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_108 = var_BC & "&, "
  var_100 = Chr(34)
  var_C0 = var_BC & "&, " & var_100
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & eax+ebx*4
  Options.Option19.MousePointer = var_C0
  var_214 = Options.Check4.Value
  If eax = 0 Then GoTo loc_0041A079
  If var_38 < 1001 Then GoTo loc_00419D97
  var_eax = Err.Raise
  var_70 = call GetCaption(ecx+esi*4, var_EC, var_004240D0)
  If (var_70 <> 0) <> 0 Then GoTo loc_00419EC0
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ", VbNullString)"
  var_C0 = CStr(var_BC & Chr(34) & ", VbNullString)")
  Options.Check4.MousePointer = var_C0
  GoTo loc_004197E4
  If (var_70 = 0) = 0 Then GoTo loc_004197E4
  var_BC = Options.Check4.MousePointer
  If var_BC >= 0 Then GoTo loc_00419EF9
  call ecx(var_BC, Me, var_00406B74, &h000000A0, var_004240D0)
  var_108 = var_BC
  var_1B8 = var_70
  var_C0 = CStr(var_BC & Chr(34) & &H407DA8 & Chr(34) & var_70 & Chr(34) & &H407DB0)
  Options.Check4.MousePointer = var_C0
  GoTo loc_004197E4
  var_BC = Options.Check4.MousePointer
  If var_BC >= 0 Then GoTo loc_0041A0A2
  call edx(var_BC, Me, var_00406B74, &h000000A0)
  var_108 = var_BC
  var_1A8 = ", vbNullString)"
  var_C0 = CStr(var_BC & Chr(34) & ", vbNullString)")
  Options.Check4.MousePointer = var_C0
  GoTo loc_004197E4
  var_BC = Options.Check4.MousePointer
  var_C8 = var_BC & "vbCrLf" & edx+eax*4 & var_00407DEC
  Options.Check4.MousePointer = var_C8
  var_BC = Options.Check4.MousePointer
  var_38 = var_38 + &h00000001
  If var_38 < 1001 Then GoTo loc_0041A28F
  var_eax = Err.Raise
  var_C4 = var_BC & "& = FindWindowEx(" & ecx+edi*4
  Options.Check4.MousePointer = var_C4
  var_BC = Options.Check4.MousePointer
  var_C0 = var_BC & "&, "
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  var_C0 = var_BC & ecx+edi*4
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC & "&, "
  var_100 = Chr(34)
  var_C0 = var_BC & "&, " & var_100
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  var_C0 = var_BC & ecx+ebx*4
  Options.Check4.MousePointer = var_C0
  var_214 = Options.Check4.Value
  If edx = 0 Then GoTo loc_0041A9AA
  If var_38 < 1001 Then GoTo loc_0041A658
  var_eax = Err.Raise
  var_70 = call GetCaption(eax+esi*4, var_EC, var_004240D0)
  If (var_70 <> 0) <> 0 Then GoTo loc_0041A7B0
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ", VbNullString)"
  var_1B8 = "vbCrLf"
  var_C0 = CStr(var_BC & Chr(34) & ", VbNullString)" & "vbCrLf")
  Options.Check4.MousePointer = var_C0
  GoTo loc_004195B2
  If (var_70 = 0) = 0 Then GoTo loc_004195B2
  var_BC = Options.Check4.MousePointer
  If var_BC >= 0 Then GoTo loc_0041A7E9
  call eax(var_BC, var_BC, var_00406B74, &h000000A0, var_004240D0)
  var_108 = var_BC
  var_1B8 = var_70
  var_1D8 = "vbCrLf"
  var_C0 = CStr(var_BC & Chr(34) & &H407DA8 & Chr(34) & var_70 & Chr(34) & &H407DB0 & "vbCrLf")
  Options.Check4.MousePointer = var_C0
  GoTo loc_004195B2
  var_BC = Options.Check4.MousePointer
  If var_BC >= 0 Then GoTo loc_0041A9D3
  call ecx(var_BC, Me, var_00406B74, &h000000A0)
  var_108 = var_BC
  var_1A8 = ", vbNullString)"
  var_1B8 = "vbCrLf"
  var_C0 = CStr(var_BC & Chr(34) & ", vbNullString)" & "vbCrLf")
  Options.Check4.MousePointer = var_C0
  GoTo loc_004195B2
  var_BC = Options.Check4.MousePointer
  var_C4 = var_BC & "vbCrLf" & ecx+ebx*4
  Options.Check4.MousePointer = var_C4
  var_BC = Options.Check4.MousePointer
  esi = esi + &h00000001
  If esi < 1001 Then GoTo loc_0041ABD1
  var_eax = Err.Raise
  var_C4 = var_BC & "& = FindWindowEx(" & ecx+edi*4
  Options.Check4.MousePointer = var_C4
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC & "&, 0&,"
  var_C0 = CStr(var_BC & "&, 0&," & Chr(34))
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  var_C0 = var_BC & ecx+ebx*4
  Options.Check4.MousePointer = var_C0
  var_214 = Options.Check4.Value
  If edx = 0 Then GoTo loc_0041B159
  If var_38 < 1001 Then GoTo loc_0041AE78
  var_eax = Err.Raise
  var_70 = call GetCaption(eax+esi*4, var_EC, var_004240D0)
  If (var_70 <> 0) <> 0 Then GoTo loc_0041AFA0
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ", VbNullString)"
  var_C0 = CStr(var_BC & Chr(34) & ", VbNullString)")
  Options.Check4.MousePointer = var_C0
  GoTo loc_004195B2
  If (var_70 = 0) = 0 Then GoTo loc_004195B2
  var_BC = Options.Check4.MousePointer
  If var_BC >= 0 Then GoTo loc_0041AFD9
  call eax(var_BC, var_BC, var_00406B74, &h000000A0, var_004240D0)
  var_108 = var_BC
  var_1B8 = var_70
  var_C0 = CStr(var_BC & Chr(34) & &H407DA8 & Chr(34) & var_70 & Chr(34) & &H407DB0)
  Options.Check4.MousePointer = var_C0
  GoTo loc_004195B2
  var_BC = Options.Check4.MousePointer
  If var_BC >= 0 Then GoTo loc_0041B182
  call ecx(var_BC, Me, var_00406B74, &h000000A0)
  var_108 = var_BC
  var_1A8 = ", vbNullString)"
  var_C0 = CStr(var_BC & Chr(34) & ", vbNullString)")
  Options.Check4.MousePointer = var_C0
  GoTo loc_004195B2
  var_BC = Options.Check4.MousePointer
  var_C4 = var_BC & "vbCrLf" & "Dim X As Long"
  Options.Check4.MousePointer = var_C4
  var_BC = Options.Check4.MousePointer
  var_D0 = var_BC & "vbCrLf" & "For X = 0 To " & var_34 & "vbCrLf"
  Options.Check4.MousePointer = var_D0
  var_BC = Options.Check4.MousePointer
  var_C0 = var_BC & ecx+ebx*4
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  esi = esi + &h00000001
  var_22C = esi+&h00000001
  If esi < 1001 Then GoTo loc_0041B4E7
  var_eax = Err.Raise
  var_C4 = var_BC & " = FindWindowEx(" & eax+ecx*4
  Options.Check4.MousePointer = var_C4
  var_BC = Options.Check4.MousePointer
  var_C4 = var_BC & ", " & ecx+ebx*4
  Options.Check4.MousePointer = var_C4
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC & ", "
  var_100 = Chr(34)
  If esi < 1001 Then GoTo loc_0041B696
  var_eax = Err.Raise
  var_1A8 = edx+ebx*4
  var_C0 = var_BC & ", " & var_100 & edx+ebx*4
  Options.Check4.MousePointer = var_C0
  var_214 = Options.Check4.Value
  If edx = 0 Then GoTo loc_0041BB1D
  If esi < 1001 Then GoTo loc_0041B7E2
  var_eax = Err.Raise
  var_70 = call GetCaption(eax+ebx*4, var_EC, var_004240D0)
  If (var_70 <> 0) <> 0 Then GoTo loc_0041B937
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ", VbNullString)"
  var_1B8 = "vbCrLf"
  var_C0 = CStr(var_BC & Chr(34) & ", VbNullString)" & "vbCrLf")
  Options.Check4.MousePointer = var_C0
  GoTo loc_0041BC3E
  If (var_70 = 0) = 0 Then GoTo loc_0041BC49
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1B8 = var_70
  var_1D8 = "vbCrLf"
  var_C0 = CStr(var_BC & Chr(34) & &H407DA8 & Chr(34) & var_70 & Chr(34) & &H407DB0 & "vbCrLf")
  Options.Check4.MousePointer = var_C0
  GoTo loc_0041BC49
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ", vbNullString)"
  var_1B8 = "vbCrLf"
  var_C0 = CStr(var_BC & Chr(34) & ", vbNullString)" & "vbCrLf")
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  var_C0 = var_BC & "Next X"
  Options.Check4.MousePointer = var_C0
  var_38 = var_38 - &h00000001
  var_38 = var_38
  Next var_B8
  GoTo loc_0041942C
  If var_38 < 1001 Then GoTo loc_0041BD16
  var_eax = Err.Raise
  var_38 = var_38 + &h00000001
  If var_38 < 1001 Then GoTo loc_0041BD30
  var_eax = Err.Raise
  var_ret_19 = ecx+edx*4
  FindWindowEx(edx+esi*4, 0, var_ret_19, 0)
  var_218 = FindWindowEx(edx+esi*4, 0, var_ret_19, 0)
  If var_38 < 1001 Then GoTo loc_0041BD79
  var_eax = Err.Raise
  var_ret_1A = var_BC
  var_BC = Options.Check4.MousePointer
  Options.Check4.MousePointer = var_BC & "vbCrLf" & eax+ecx*4 & var_00407DEC
  var_BC = Options.Check4.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041BEC7
  var_eax = Err.Raise
  Options.Check4.MousePointer = var_BC & "& = FindWindowEx(" & eax+ecx*4
  var_BC = Options.Check4.MousePointer
  var_C0 = var_BC & "&, "
  Options.Check4.MousePointer = var_C0
  var_BC = Options.Check4.MousePointer
  Options.Check4.MousePointer = var_BC & eax+ecx*4
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC & "&, "
  Options.Check4.MousePointer = CStr(var_BC & "&, " & Chr(34))
  var_BC = Options.Check4.MousePointer
  var_C0 = var_BC & ecx+edx*4
  Options.Check4.MousePointer = var_C0
  var_214 = Options.Check4.Value
  If edx = 0 Then GoTo loc_0041C5F5
  If var_38 < 1001 Then GoTo loc_0041C288
  var_eax = Err.Raise
  var_70 = call GetCaption(eax+esi*4, var_EC, var_004240D0)
  If (var_70 <> 0) <> 0 Then GoTo loc_0041C3E7
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ", VbNullString)"
  var_1B8 = "vbCrLf"
  Options.Check4.MousePointer = CStr(var_BC & Chr(34) & ", VbNullString)" & "vbCrLf")
  GoTo loc_0041C720
  If (var_70 = 0) = 0 Then GoTo loc_0041C72B
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1B8 = var_70
  var_1D8 = "vbCrLf"
  var_C0 = CStr(var_BC & Chr(34) & &H407DA8 & Chr(34) & var_70 & Chr(34) & &H407DB0 & "vbCrLf")
  Options.Check4.MousePointer = var_C0
  GoTo loc_0041C72B
  var_BC = Options.Check4.MousePointer
  var_108 = var_BC
  var_1A8 = ", vbNullString)"
  var_1B8 = "vbCrLf"
  var_C0 = CStr(var_BC & Chr(34) & ", vbNullString)" & "vbCrLf")
  Options.Check4.MousePointer = var_C0
  If arg_C = var_FFFFFF Then GoTo loc_004216A0
  var_214 = Options.Option1.Value
  If eax = 0 Then GoTo loc_0041CAAE
  var_BC = Options.Option1.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041C808
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "PostMessage " & edx+eax*4
  Options.Option1.MousePointer = var_C8
  var_BC = Options.Option1.MousePointer
  var_C0 = var_BC & "&, WM_LBUTTONDOWN, 0&, 0&"
  Options.Option1.MousePointer = var_C0
  var_BC = Options.Option1.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041C980
  var_eax = Err.Raise
  Options.Option1.MousePointer = var_BC & "vbCrLf" & "PostMessage " & eax+ecx*4
  var_BC = Options.Option1.MousePointer
  Options.Option1.MousePointer = var_BC & "&, WM_LBUTTONUP, 0&, 0&"
  GoTo loc_004212C7
  var_214 = Options.Option2.Value
  If edx = 0 Then GoTo loc_0041CE02
  var_BC = Options.Option2.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041CB7E
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "SendMessage " & ecx+edx*4
  Options.Option2.MousePointer = var_C8
  var_BC = Options.Option2.MousePointer
  var_C0 = var_BC & "&, &H201, 0&, 0&"
  Options.Option2.MousePointer = var_C0
  var_BC = Options.Option2.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041CCF6
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "SendMessage " & edx+eax*4
  Options.Option2.MousePointer = var_C8
  var_BC = Options.Option2.MousePointer
  var_C0 = var_BC & "&, &H202, 0&, 0&"
  Options.Option2.MousePointer = var_C0
  If var_C0 >= 0 Then GoTo loc_0041F877
  GoTo loc_0041F869
  var_214 = Options.Option3.Value
  If eax = 0 Then GoTo loc_0041CFCE
  var_BC = Options.Option3.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041CED2
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "SendMessageByString " & edx+eax*4
  Options.Option3.MousePointer = var_C8
  var_BC = Options.Option3.MousePointer
  var_C0 = var_BC & "&, WM_SETTEXT, 0&, TheText$"
  GoTo loc_0041CDED
  var_214 = Options.Option4.Value
  If eax = 0 Then GoTo loc_0041D641
  var_BC = Options.Option4.MousePointer
  var_C4 = var_BC & "vbCrLf" & "Dim TheText As String, TL As Long"
  Options.Option4.MousePointer = var_C4
  var_BC = Options.Option4.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041D145
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "TL& = SendMessageLong(" & ecx+edx*4
  Options.Option4.MousePointer = var_C8
  var_BC = Options.Option4.MousePointer
  var_C0 = var_BC & "&, WM_GETTEXTLENGTH, 0&, 0&)"
  Options.Option4.MousePointer = var_C0
  var_BC = Options.Option4.MousePointer
  var_C0 = var_BC & "vbCrLf"
  var_108 = var_C0 & "TheText$ = String$(TL& + 1, "
  var_C4 = CStr(var_C0 & "TheText$ = String$(TL& + 1, " & Chr(34) & &H407BE4 & Chr(34) & &H407DB0)
  Options.Option4.MousePointer = var_C4
  var_BC = Options.Option4.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041D44D
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "Call SendMessageByString(" & edx+eax*4
  Options.Option4.MousePointer = var_C8
  var_BC = Options.Option4.MousePointer
  var_C0 = var_BC & "&, WM_GETTEXT, TL + 1, TheText$)"
  Options.Option4.MousePointer = var_C0
  var_BC = Options.Option4.MousePointer
  var_C8 = var_BC & "vbCrLf" & var_00424098 & " = Left(TheText$, TL&)"
  Options.Option4.MousePointer = var_C8
  GoTo loc_004212C7
  var_214 = Options.Option5.Value
  If edx <> 0 Then GoTo loc_004216A0
  var_214 = Options.Option6.Value
  If edx = 0 Then GoTo loc_0041DA07
  var_BC = Options.Option6.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041D793
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "PostMessage " & ecx+edx*4
  Options.Option6.MousePointer = var_C8
  var_BC = Options.Option6.MousePointer
  var_C0 = var_BC & "&, &H201, 0&, 0&"
  Options.Option6.MousePointer = var_C0
  var_BC = Options.Option6.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041D90B
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "PostMessage " & edx+eax*4
  Options.Option6.MousePointer = var_C8
  var_BC = Options.Option6.MousePointer
  var_C0 = var_BC & "&, &H202, 0&, 0&"
  GoTo loc_0041CDED
  var_214 = Options.Option7.Value
  If eax = 0 Then GoTo loc_0041DD4A
  var_BC = Options.Option7.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041DAD7
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "SendMessage " & edx+eax*4
  Options.Option7.MousePointer = var_C8
  var_BC = Options.Option7.MousePointer
  var_C0 = var_BC & "&, &H204, 0&, 0&"
  Options.Option7.MousePointer = var_C0
  var_BC = Options.Option7.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041DC4F
  var_eax = Err.Raise
  Options.Option7.MousePointer = var_BC & "vbCrLf" & "SendMessage " & eax+ecx*4
  var_BC = Options.Option7.MousePointer
  var_C0 = var_BC & "&, &H205, 0&, 0&"
  GoTo loc_0041CA76
  var_214 = Options.Option8.Value
  If edx = 0 Then GoTo loc_0041DF49
  var_BC = Options.Option8.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041DE1A
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "SendMessage " & ecx+edx*4
  Options.Option8.MousePointer = var_C8
  var_BC = Options.Option8.MousePointer
  var_C0 = var_BC & "&, &H203, 0&, 0&"
  Options.Option8.MousePointer = var_C0
  GoTo loc_004212C7
  var_214 = Options.Option9.Value
  If edx = 0 Then GoTo loc_0041E115
  var_BC = Options.Option9.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041E019
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "EnableWindow " & ecx+edx*4
  Options.Option9.MousePointer = var_C8
  var_BC = Options.Option9.MousePointer
  var_C0 = var_BC & "&, 1"
  GoTo loc_0041DF11
  var_214 = Options.Option10.Value
  If edx = 0 Then GoTo loc_0041E2E1
  var_BC = Options.Option10.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041E1E5
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "EnableWindow " & ecx+edx*4
  Options.Option10.MousePointer = var_C8
  var_BC = Options.Option10.MousePointer
  var_C0 = var_BC & "&, 0"
  GoTo loc_0041DF11
  var_214 = Options.Option11.Value
  If edx = 0 Then GoTo loc_0041E4AD
  var_BC = Options.Option11.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041E3B1
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "ShowWindow " & ecx+edx*4
  Options.Option11.MousePointer = var_C8
  var_BC = Options.Option11.MousePointer
  var_C0 = var_BC & "&, 1"
  GoTo loc_0041DF11
  var_214 = Options.Option12.Value
  If edx = 0 Then GoTo loc_0041E679
  var_BC = Options.Option12.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041E57D
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "ShowWindow " & ecx+edx*4
  Options.Option12.MousePointer = var_C8
  var_BC = Options.Option12.MousePointer
  var_C0 = var_BC & "&, 0"
  GoTo loc_0041DF11
  var_214 = Options.Option13.Value
  If edx = 0 Then GoTo loc_0041E845
  var_BC = Options.Option13.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041E749
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "SendMessage " & ecx+edx*4
  Options.Option13.MousePointer = var_C8
  var_BC = Options.Option13.MousePointer
  var_C0 = var_BC & "&, &H10, 0&, 0&"
  GoTo loc_0041DF11
  var_214 = Options.Option14.Value
  If edx = 0 Then GoTo loc_0041EFBF
  var_214 = Options.Check1.Value
  If edx = 0 Then GoTo loc_0041EAFB
  var_BC = Options.Check1.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041E997
  var_eax = Err.Raise
  var_D0 = var_BC & "vbCrLf" & "Dim Count as long" & "vbCrLf" & " Count& = SendMessageLong(" & ecx+edx*4
  Options.Check1.MousePointer = var_D0
  var_BC = Options.Check1.MousePointer
  Options.Check1.MousePointer = var_BC & "&, &H18B, 0&, 0&)"
  var_214 = Options.Check2.Value
  If edx = 0 Then GoTo loc_0041EDB9
  var_BC = Options.Check2.MousePointer
  var_CC = var_BC & "vbCrLf" & "Dim Text as String, Index as long" & "vbCrLf" & "TheText$ = String$(255, 0)"
  Options.Check2.MousePointer = var_CC
  var_BC = Options.Check2.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041ECAC
  var_eax = Err.Raise
  var_C4 = var_BC & "Call SendMessageByString(" & edx+eax*4
  Options.Check2.MousePointer = var_C4
  var_BC = Options.Check2.MousePointer
  var_C0 = var_BC & "&, &H189, Index&, Text$)"
  Options.Check2.MousePointer = var_C0
  var_214 = Options.Check3.Value
  If edx = 0 Then GoTo loc_004212C7
  var_BC = Options.Check3.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041EE89
  var_eax = Err.Raise
  var_D0 = var_BC & "vbCrLf" & "Dim Index as long" & "vbCrLf" & "SendMessageLong " & ecx+edx*4
  Options.Check3.MousePointer = var_D0
  var_BC = Options.Check3.MousePointer
  var_C0 = var_BC & "&, &H186, 0, 0&"
  GoTo loc_0041CA76
  var_214 = Options.Option15.Value
  If edx = 0 Then GoTo loc_0041F186
  var_BC = Options.Option15.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041F08A
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "SendMessageLong " & ecx+edx*4
  Options.Option15.MousePointer = var_C8
  var_BC = Options.Option15.MousePointer
  var_C0 = var_BC & "&, BM_SETCHECK, True, 0&"
  GoTo loc_0041DF11
  var_214 = Options.Option16.Value
  If edx = 0 Then GoTo loc_0041F352
  var_BC = Options.Option16.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041F256
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "SendMessageLong " & ecx+edx*4
  Options.Option16.MousePointer = var_C8
  var_BC = Options.Option16.MousePointer
  var_C0 = var_BC & "&, BM_SETCHECK, False, 0&"
  GoTo loc_0041DF11
  var_214 = Options.Option17.Value
  If edx = 0 Then GoTo loc_0041F696
  var_BC = Options.Option17.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041F422
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "PostMessage " & ecx+edx*4
  Options.Option17.MousePointer = var_C8
  var_BC = Options.Option17.MousePointer
  var_C0 = var_BC & "&, WM_LBUTTONDOWN, 0&, 0&)"
  Options.Option17.MousePointer = var_C0
  var_BC = Options.Option17.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041F59A
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "PostMessage " & edx+eax*4
  Options.Option17.MousePointer = var_C8
  var_BC = Options.Option17.MousePointer
  var_C0 = var_BC & "&, WM_LBUTTONUP, 0&, 0&"
  GoTo loc_0041CDED
  var_214 = Options.Option18.Value
  If eax = 0 Then GoTo loc_0041F895
  var_BC = Options.Option18.MousePointer
  var_38 = var_38 + &h00000001
  var_22C = var_38
  If var_38 < 1001 Then GoTo loc_0041F766
  var_eax = Err.Raise
  var_C8 = var_BC & "vbCrLf" & "SendMessageLong " & edx+eax*4
  Options.Option18.MousePointer = var_C8
  var_BC = Options.Option18.MousePointer
  var_C0 = var_BC & "&, WM_CHAR, 13, 0&"
  Options.Option18.MousePointer = var_C0
  If var_C0 >= 0 Then GoTo loc_0041F877
  GoTo loc_004212C7
  var_214 = Options.Option19.Value
  If eax = 0 Then GoTo loc_004212C7
  FindWindowEx(4341812, 0, 0, 0)
  var_88 = FindWindowEx(4341812, 0, 0, 0)
  If var_218 = 0 Then GoTo loc_0041FD7F
  If esi = 9 Then GoTo loc_0041FD7F
  var_BC = Options.Option19.MousePointer
  Options.Option19.MousePointer = var_BC & "vbCrLf" & ecx+esi*4
  var_3C = call GetClass(var_88, , )
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & "& = FindWindowEx("
  var_C4 = var_C0 & 4341868
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  var_108 = var_BC & "&, 0&, "
  var_100 = Chr(34)
  var_C0 = var_BC & "&, 0&, " & var_100
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & var_3C
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_108 = var_BC
  var_1A8 = ", vbNullString)"
  var_C0 = CStr(var_BC & Chr(34) & ", vbNullString)")
  Options.Option19.MousePointer = var_C0
  var_30 = var_30 + &h00000001
  var_30 = var_30
  FindWindowEx(4341812, var_88, 0, 0)
  var_88 = FindWindowEx(4341812, var_88, 0, 0)
  GoTo loc_0041F948
  var_30 = var_30 - &h00000001
  var_30 = var_30
  var_BC = Options.Option19.MousePointer
  var_C4 = var_BC & "vbCrLf" & "If "
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & ecx+edx*4
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & " <> 0"
  Options.Option19.MousePointer = var_C0
  var_30 = var_30 - &h00000001
  var_30 = var_30
  If var_30 <= 0 Then GoTo loc_004200EC
  var_BC = Options.Option19.MousePointer
  Options.Option19.MousePointer = var_BC & " And " & ecx+esi*4
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & " <> 0"
  Options.Option19.MousePointer = var_C0
  var_30 = var_30 - &h00000001
  var_30 = var_30
  GoTo loc_0041FF6C
  var_2C4 = var_43C
  var_BC = Options.Option19.MousePointer
  Options.Option19.MousePointer = var_BC & "Then" & "vbCrLf" & var_00424098 & "& = " & 4341868
  var_BC = Options.Option19.MousePointer
  var_C4 = var_BC & var_004085F8 & "vbCrLf"
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  Options.Option19.MousePointer = var_BC & "Exit Function" & "vbCrLf" & "Else" & "vbCrLf" & "Do Until " & 4341868
  var_BC = Options.Option19.MousePointer
  Options.Option19.MousePointer = var_BC & "& = 0&" & "vbCrLf"
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & 4341868
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_C4 = var_BC & " = FindWindowEx(" & edx+&h00000004
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  var_C4 = var_BC & "&, " & 4341868
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  var_108 = var_BC & "&, "
  var_C0 = CStr(var_BC & "&, " & Chr(34) & &H424050)
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_108 = var_BC
  var_1A8 = ", vbNullString)"
  Options.Option19.MousePointer = CStr(var_BC & Chr(34) & ", vbNullString)")
  FindWindowEx(4341812, 0, 0, 0)
  var_88 = FindWindowEx(4341812, 0, 0, 0)
  If var_218 = 0 Then GoTo loc_00420CC3
  If esi = 9 Then GoTo loc_00420CC3
  var_BC = Options.Option19.MousePointer
  var_464 = var_2C4
  var_C4 = var_BC & "vbCrLf" & edx+esi*4
  Options.Option19.MousePointer = var_C4
  var_3C = call GetClass(var_88, , )
  var_BC = Options.Option19.MousePointer
  var_C4 = var_BC & "& = FindWindowEx(" & 4341868
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  var_108 = var_BC & "&, 0&, "
  var_C0 = CStr(var_BC & "&, 0&, " & Chr(34))
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & var_3C
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  var_108 = var_BC
  var_1A8 = ", vbNullString)"
  var_C0 = CStr(var_BC & Chr(34) & ", vbNullString)")
  Options.Option19.MousePointer = var_C0
  var_30 = var_30 + &h00000001
  var_30 = var_30
  FindWindowEx(4341812, var_88, 0, 0)
  var_218 = FindWindowEx(4341812, var_88, 0, 0)
  var_88 = var_218
  GoTo loc_0042088C
  var_30 = var_30 - &h00000001
  var_30 = var_30
  var_BC = Options.Option19.MousePointer
  Options.Option19.MousePointer = var_BC & "vbCrLf" & "If "
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & edx+eax*4
  Options.Option19.MousePointer = var_C0
  var_BC = Options.Option19.MousePointer
  Options.Option19.MousePointer = var_BC & " <> 0"
  var_30 = var_30 - &h00000001
  var_30 = var_30
  If var_30 <= 0 Then GoTo loc_00421018
  var_BC = Options.Option19.MousePointer
  var_C4 = var_BC & " And " & ecx+edx*4
  Options.Option19.MousePointer = var_C4
  var_BC = Options.Option19.MousePointer
  var_C0 = var_BC & " <> 0"
  Options.Option19.MousePointer = var_C0
  var_30 = var_30 - &h00000001
  var_30 = var_30
  GoTo loc_00420EB0
  var_BC = Options.Option19.MousePointer
  var_D0 = var_BC & "Then" & "vbCrLf" & var_00424098 & "& = " & 4341868
  Options.Option19.MousePointer = var_D0
  var_BC = Options.Option19.MousePointer
  var_CC = var_BC & var_004085F8 & "vbCrLf" & "Exit Function" & "vbCrLf"
  var_DC = var_CC & "End If" & "vbCrLf" & "Loop" & "vbCrLf"
  var_E8 = var_DC & "End If" & "vbCrLf" & "End Function