Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/CODE_UPLOAD152152192001.psc/Source60.bas

BASIC Source File | 2001-02-19 | 165.1 KB | 4,507 lines

Attribute VB_Name = "Source60"
Option Explicit
'Final Released Feb 19th 2k1
'THIS IS VERSION TWO ; CLEANER CODING, MORE FUNCTIONS
'This is source60v2 Module for AOL6.0 and AIM 4.3 +
'**new**Also for AIM 4.3 + or higher**new**
'This was completly programed by source any subs my
'friends helped wit they got credit for!
'this is the **[[second]]** version release
'This is freeware, Enjoy!!!
'www.vbfx.net
'www.8op.com/vbfx
'www.terrorfx.com/~source
'visit my website while your here
'thanx prozac,gravity, dos, monk-e-god(fader subs)
'340 subs/functions of pure ao6 & aim coding ENJOY!!
'########################################################
'#if you use this module for your prog, can ya hook me  #
'#up with some credit???                                #
'#if ya use my subs/functions in your module/prog can ya#
'#put under it                                          #
'#from source60                                         #
'#thnx...                                               #
'########################################################

'[[[note]]]
'there are alot of subs/functions that i define
'and tell what does what...there are some that dont
'if u scroll down you will see that the first i dont know
'about 50 or so i guess give descriptions to what does
'what...if it doesnt and you dont understand look at
'ones that do
'[[[END]]]
'-------------------------------------------------------
'[[[note]]]
'*buggy*
'about RunToolbar
'to understand how to use it you must understand what
'numbers and letters are in what sections
'take a look at your aol screen... see where it says
'mail (then a down arrow) that is 0
'people(then down arrow) that is 1
'aolservices(down arrow) that is 2
'settings (down arrow) that is 3
'favorites(down arrow) that is 4
'for the letters its pretty simple...find what you want
'to go to, look at what letter is underlined
'thats the letter you will use in code.
'ex: People and Down to Find A Chat
'Call RunToolbar("1", "F")
'the '1' is section People, the F is the letter its
'going to , pretty simple, enjoy that
'[[[END]]]
'-------------------------------------------------------
'[[[note]]]
'Conserning 'Dim' / 'Dimming of Variables'
'I didnt dim everything it takes up to much time, same
'reason i didnt give a description for everything.
'basically for all the coding here if it says sub or function
'not defined you either need to dim it by doing this:
'Dim WhatEverIsntWOrking as long
'or
'add a delcares



'Public Declare
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Public Declare Function SendMessageByNum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As String, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (destination As Any, source As Any, ByVal Length As Long)
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
'Public Const

Public Const LB_SETCURSEL = &H186
Public Const SW_SHOW = 5
Public Const SW_SHOWNORMAL = 1
Public Const SW_HIDE = 0
Public Const SW_MINIMIZE = 6
Public Const SW_MAXIMIZE = 3
Public Const BM_SETCHECK = &HF1
Public Const BM_GETCHECK = &HF0
Public Const WM_CLOSE = &H10
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_SETTEXT = &HC
Public Const WM_GETTEXT = &HD
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_GETTEXTLENGTH = &HE
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_LBUTTONUP = &H202
Public Const VK_DOWN = &H28
Public Const VK_LEFT = &H25
Public Const VK_MENU = &H12
Public Const VK_RETURN = &HD
Public Const VK_RIGHT = &H27
Public Const VK_SHIFT = &H10
Public Const VK_SPACE = &H20
Public Const VK_UP = &H26
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
Public Const PROCESS_READ = &H10
Public Const RIGHTS_REQUIRED = &HF0000
Public Const ENTER_KEY = 13
Global Const GW_CHILD = 5

Public Type POINTAPI
      x As Long
      Y As Long
End Type

Public Const Op_Flags = PROCESS_READ Or RIGHTS_REQUIRED

Public Const SW_RESTORE = 9

Public Const LB_ADDSTRING& = &H180
Public Const LB_DELETESTRING = &H182
Public Const LB_FINDSTRINGEXACT& = &H1A2
Public Const LB_GETCOUNT& = &H18B
Public Const LB_GETCURSEL& = &H188
Public Const LB_GETITEMDATA = &H199
Public Const LB_GETTEXT = &H189
Public Const LB_GETTEXTLEN& = &H18A
Public Const LB_INSERTSTRING = &H181
Public Const LB_RESETCONTENT& = &H184

Public Const LB_SETSEL = &H185

Public Const CB_ADDSTRING& = &H143
Public Const CB_DELETESTRING& = &H144
Public Const CB_FINDSTRINGEXACT& = &H158
Public Const CB_GETCOUNT& = &H146
Public Const CB_GETITEMDATA = &H150
Public Const CB_GETLBTEXT& = &H148
Public Const CB_RESETCONTENT& = &H14B
Public Const CB_SETCURSEL& = &H14E

Global Const SND_SYNC = &H0
Global Const SND_ASYNC = &H1
Global Const SND_NODEFAULT = &H2
Global Const SND_LOOP = &H8
Global Const SND_NOSTOP = &H10

Public Const Sys_Add = &H0
Public Const Sys_Delete = &H2
Public Const Sys_Message = &H1
Public Const Sys_Icon = &H2
Public Const Sys_Tip = &H4

Public Const SND_FLAG = SND_ASYNC Or SND_NODEFAULT
Public Const Snd_Flag2 = SND_ASYNC Or SND_LOOP




Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

Public Const WM_CHAR = &H102

Public Const WM_CLEAR = &H303
Public Const WM_MOUSEMOVE = &H200
Public Const WM_COMMAND = &H111

Public Const WM_MOVE = &HF012

Public Const WM_SYSCOMMAND = &H112

Public Const MF_BYPOSITION = &H400&

Public Const EM_GETLINECOUNT& = &HBA

Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE



Public Enum MAILTYPE
        mailFLASH
        mailNEW
        mailOLD
        mailSENT
End Enum

Public systray As NOTIFYICONDATA

Public Type NOTIFYICONDATA
        cbSize As Long
        hwnd As Long
        uId As Long
        uFlags As Long
        ucallbackMessage As Long
        hIcon As Long
        szTip As String * 64
End Type

Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
    End Type

Public Enum OnScreen
    scon
    scoff
End Enum
' (down) Monk-e-god (down)
Public Const FADE_RED = &HFF&
Public Const FADE_GREEN = &HFF00&
Public Const FADE_BLUE = &HFF0000
Public Const FADE_YELLOW = &HFFFF&
Public Const FADE_WHITE = &HFFFFFF
Public Const FADE_BLACK = &H0&
Public Const FADE_PURPLE = &HFF00FF
Public Const FADE_GREY = &HC0C0C0
Public Const FADE_PINK = &HFF80FF
Public Const FADE_TURQUOISE = &HC0C000

Type COLORRGB
  red As Long
  Green As Long
  blue As Long
End Type
' ^ (up) Monk-e-god (up) ^
'by source(for fader subs)(DOWN)
Dim R2
Dim G2
Dim B2
Dim R1
Dim G1
Dim B1
Dim StartY
Dim dafont As String
Dim fontstart As Integer
Dim BV
Dim GV
Dim RV
Dim BlueString As String
Dim GreenString As String
Dim RedString As String
Dim ColorString As String
Dim ColorStart
Dim textoffy
Dim t As String
Dim TagEnd
Dim TagStart
Dim c As String
Dim x
Dim StartX
Dim textoffx
Dim osm
Dim FadedText As String
Dim CurCharVal
Dim bluenum10 As Integer
Dim greennum10 As Integer
Dim rednum10 As Integer
Dim bluenum9 As Integer
Dim greennum9 As Integer
Dim rednum9 As Integer
Dim bluenum8 As Integer
Dim greennum8 As Integer
Dim rednum8 As Integer
Dim bluenum7 As Integer
Dim greennum7 As Integer
Dim rednum7 As Integer
Dim bluenum6 As Integer
Dim greennum6 As Integer
Dim rednum6 As Integer
Dim bluenum5 As Integer
Dim greennum5 As Integer
Dim rednum5 As Integer
Dim bluenum4 As Integer
Dim greennum4 As Integer
Dim rednum4 As Integer
Dim bluenum3 As Integer
Dim greennum3 As Integer
Dim rednum3 As Integer
Dim bluenum2 As Integer
Dim greennum2 As Integer
Dim rednum2 As Integer
Dim bluenum1 As Integer
Dim greennum1 As Integer
Dim rednum1 As Integer
Dim dacolor10 As String
Dim dacolor9 As String
Dim dacolor8 As String
Dim dacolor7 As String
Dim dacolor6 As String
Dim dacolor5 As String
Dim dacolor4 As String
Dim dacolor3 As String
Dim dacolor2 As String
Dim dacolor1 As String
Dim Faded4 As String
Dim Faded3 As String
Dim Faded2 As String
Dim Faded1 As String
Dim Faded5 As String
Dim WaveHTML
Dim colorx2
Dim ColorX
Dim LastChr As String
Dim TextDone As String
Dim i
Dim part5 As String
Dim part4 As String
Dim part3 As String
Dim part2 As String
Dim part1 As String
Dim part6 As String
Dim part7 As String
Dim part8 As String
Dim part9 As String
Dim frthlen As Integer
Dim thrdlen As Integer
Dim seclen As Integer
Dim fstlen As Integer
Dim TextLen As Integer
Dim WaveState
Dim fithlen As Integer
Dim sixlen As Integer
Dim eightlen As Integer
Dim ninelen As Integer
Dim sevlen As Integer
Dim faded6 As String
Dim faded7 As String
Dim faded8 As String
Dim faded9 As String
Dim newblue As Integer
Dim newgreen As Integer
Dim newred As Integer
Dim bluex As Integer
Dim greenx As Integer
Dim redx As Integer
Dim dacolor As String
Dim FadedTxtX As String
Dim qwe As Integer
Dim r As Integer
Dim E As Integer
Dim dastart As Integer
Dim f As Integer
Dim W As Integer
Dim q As Integer
Dim blah3 As String
Dim blah2
Dim bluepart As Integer
Dim greenpart As Integer
Dim redpart As Integer
Dim blah As String
Dim thepos As Integer
Dim InStr1
Dim STRwo13s
Dim b As Integer
Dim a As String
Dim colorhex
Dim Italiced
Dim Striked
Dim Undered
Dim Bolded
Dim HTMLString
Dim posi As Integer
Dim rgbhex As String
'i had to do all that crap cause monk-e-god was too lazy to dim his variables
'ggggrrrr....(that shit like took me longer then the whole module







'Examples on how to use these functions
'ex1:
'Call Hideaol
'ex2:
'Call ShowAol
'Basically CALL then the Function/Sub Name
'any questions...
'AIM:sourceofvbfx
'AOL:itzdasource

Public Function HideAOL()
'dims
Dim AOLFrame As Long
'finds aol frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
'coding to hide window/frame
Call ShowWindow(AOLFrame&, SW_HIDE)
End Function

Public Function ShowAOL()
'dims
Dim AOLFrame As Long
'finds aol frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
'makes aol frame normal/restore
Call ShowWindow(AOLFrame&, SW_SHOWNORMAL)
End Function

Public Function MinimizeAol()
'dims
Dim AOLFrame As Long
'finds aol frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
'coding to minimize window
Call ShowWindow(AOLFrame&, SW_MINIMIZE)
End Function

Public Function MaximizeAol()
'dims
Dim AOLFrame As Long
'finds aol frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
'coding to maximize window
Call ShowWindow(AOLFrame&, SW_MAXIMIZE)
End Function

Public Function CloseAolWindow()
'dims
Dim AOLFrame As Long
'finds frames
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
'coding to close the aol window/frame down
Call SendMessage(AOLFrame&, WM_CLOSE, 0&, 0&)
End Function

Public Function GetAolWindowCaption()
Dim AOLFrame As Long
Dim CaptionLength As Long
Dim aolframecaption As String
'finds window first
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
'gets lengths for caption/text
CaptionLength& = GetWindowTextLength(AOLFrame&)
'defines
aolframecaption$ = String$(CaptionLength&, 0)
'applys coding to change caption
Call GetWindowText(AOLFrame&, aolframecaption$, (CaptionLength& + 1&))
End Function

Public Function SetFocusOnAol()
'dims
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
'uses API to 'set focus'
Call SetFocusAPI(AOLFrame&)
End Function

Public Function CloseBuddyList()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
'finds window
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Welcome, Itz Da  s ourc e!")
AOLChild& = FindWindowEx(MDIClient&, AOLChild&, "AOL Child", vbNullString)
'coding to close aol buddylist
Call SendMessage(AOLChild&, WM_CLOSE, 0&, 0&)
End Function

Public Function HideBuddyList()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds aol frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
'finds window
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
'hides the buddylist
Call ShowWindow(AOLChild&, SW_HIDE)
End Function

Public Function ShowBuddyList()
'this will only work if your buddylist is hidden
'wont work if you hit x, or closed buddylist
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
'finds window
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
'brings BACK buddylist
Call ShowWindow(AOLChild&, SW_SHOW)
End Function

Public Function MaximizeBuddyList()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
'finds window
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
'maximizes buddylist
Call ShowWindow(AOLChild&, SW_MAXIMIZE)
End Function

Public Function MinimizeBuddyList()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
'MDIClient window
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
'minimizes buddylist
Call ShowWindow(AOLChild&, SW_MINIMIZE)
End Function

Public Function GetBuddyListCaption()

'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
Dim CaptionLength As Long
Dim AOLChildCaption As String
'finds buddylist frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
'sets/resets caption
CaptionLength& = GetWindowTextLength(AOLChild&)
'defines strings
AOLChildCaption$ = String$(CaptionLength&, 0)
'applies changes
Call GetWindowText(AOLChild&, AOLChildCaption$, (CaptionLength& + 1&))
End Function

Public Function CloseWriteMail()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds aol write mail frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
'closes write mail frame
Call SendMessage(AOLChild&, WM_CLOSE, 0&, 0&)
End Function

Public Function HideWriteMail()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
'hides
Call ShowWindow(AOLChild&, SW_HIDE)
End Function

Public Function MaximizeWriteMail()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
'maximizes
Call ShowWindow(AOLChild&, SW_MAXIMIZE)
End Function

Public Function MinimizeWriteMail()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
'minimizes
Call ShowWindow(AOLChild&, SW_MINIMIZE)
End Function

Public Function ShowWriteMail()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
'brings BACK the write mail window/frame
Call ShowWindow(AOLChild&, SW_SHOW)
End Function

Public Function CloseIM()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'fins frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Send Instant Message")
'Closes Instant Message
Call SendMessage(AOLChild&, WM_CLOSE, 0&, 0&)
End Function

Public Function MaximizeIM()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'fins aol frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Send Instant Message")
'shows window
Call ShowWindow(AOLChild&, SW_MAXIMIZE)
End Function

Public Function MinimizeIM()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Send Instant Message")
'applies coding to minimize
Call ShowWindow(AOLChild&, SW_MINIMIZE)
End Function

Public Function ShowIM()
'this will only work if the buddylist is already showing
'which is dumb..or if its hidden using coding in the
'module: source60 :)
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Send Instant Message")
'shows
Call ShowWindow(AOLChild&, SW_SHOW)
End Function

Public Function HideIM()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frames
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Send Instant Message")
'hides instant message
Call ShowWindow(AOLChild&, SW_HIDE)
End Function

Public Function CloseChatRoom()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
'closes chat room
Call SendMessage(AOLChild&, WM_CLOSE, 0&, 0&)
End Function

Public Function MaximizeChatRoom()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
'maximizes
Call ShowWindow(AOLChild&, SW_MAXIMIZE)
End Function

Public Function MinimizeChatRoom()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
'minimizes chat room
Call ShowWindow(AOLChild&, SW_MINIMIZE)
End Function

Public Function HideChatRoom()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
'hides chat room
Call ShowWindow(AOLChild&, SW_HIDE)
End Function

Public Function ShowChatRoom()
'dims
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
'shows chat room
Call ShowWindow(AOLChild&, SW_SHOW)
End Function

Public Function GetChatRoomCaption()
Dim AOLFrame25 As Long
Dim MDIClient As Long
Dim AOLChild As Long

Dim lngLength As Long
Dim strBuffer As String
AOLFrame25& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame25&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)

lngLength& = GetWindowTextLength(AOLChild&)
strBuffer$ = String(lngLength&, 0&)
Call GetWindowText(AOLChild&, strBuffer$, lngLength& + 1&)
End Function

Public Function CloseWelcomeScreen()

Dim AOLFrame As Long, MDIClient As Long, AOLChild As Long
AOLFrame = FindWindow("aol frame25", vbNullString)
MDIClient = FindWindowEx(AOLFrame, 0&, "mdiclient", vbNullString)
AOLChild = FindWindowEx(MDIClient, 0&, "aol child", vbNullString)
Call EnableWindow(AOLChild, 0)
End Function


Public Function EnterMemberRoom(Room As String)
'prozac
'Enter a member chatroom, this is good for a roombust,
'example:
'Call EnterMemberRoom(Text1)
   Call Keyword("aol://2719:61-2-" + Room$)
End Function
Public Function EnterPrivateRoom(Room As String)
'prozac
'Enter a private chatroom, this is good for a roombust,
'example:
'Call EnterPrivateRoom(Text1)
Call Keyword("aol://2719:2-2-" + Room$)
End Function

Public Function Pause(Time As Long)
    'pause for a certain amount of time
    'Call pause(1)
    Dim Current As Long
    Current = Timer
    Do Until Timer - Current >= Time
        DoEvents
    Loop
End Function

Public Function FormOnTop(Form As Form)
'keeps for, on top of other windows
'EX: Call FormOnTop(form1)
Call SetWindowPos(Form.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, FLAGS)
End Function
Public Function FormNotOnTop(Form As Form)
'keeps form off top of other windows
'EX: Call FormNotOnTop(form1)
Call SetWindowPos(Form.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End Function

Public Function FileExists(TheFileName As String) As Boolean
'Sees if the string(file) you specified exists
If Len(TheFileName$) = 0 Then
FileExists = False
Exit Function
End If
If Len(dir$(TheFileName$)) Then
FileExists = True
Else
FileExists = False
End If
End Function

Sub FolderCreate(NewDir)
'Makes a new folder
MkDir NewDir
End Sub
Sub FolderDelete(NewDir)
'Deltes a folder
RmDir (NewDir)
End Sub
Public Function FindChatRoom() As Long
'prozac
'Finds the aol chatroom
'Example:
'If Findchatroom <> 0& then
'msgbox GetWindowCaption(Findchatroom) + "window found!"
'else
'msgbox "chatroom not found!"
'end if
Dim counter As Long
Dim AOLStatic5 As Long
Dim AOLIcon3 As Long
Dim AOLStatic4 As Long
Dim aollistbox As Long
Dim AOLStatic3 As Long
Dim AOLImage As Long
Dim AOLIcon2 As Long
Dim RICHCNTL2 As Long
Dim AOLStatic2 As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLCombobox As Long
Dim richcntl As Long
Dim AOLStatic As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
richcntl& = FindWindowEx(AOLChild&, 0&, "RICHCNTL", vbNullString)
AOLCombobox& = FindWindowEx(AOLChild&, 0&, "_AOL_Combobox", vbNullString)
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 3&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
AOLStatic2& = FindWindowEx(AOLChild&, AOLStatic&, "_AOL_Static", vbNullString)
RICHCNTL2& = FindWindowEx(AOLChild&, richcntl&, "RICHCNTL", vbNullString)
AOLIcon2& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
For i& = 1& To 2&
    AOLIcon2& = FindWindowEx(AOLChild&, AOLIcon2&, "_AOL_Icon", vbNullString)
Next i&
AOLImage& = FindWindowEx(AOLChild&, 0&, "_AOL_Image", vbNullString)
AOLStatic3& = FindWindowEx(AOLChild&, AOLStatic2&, "_AOL_Static", vbNullString)
AOLStatic3& = FindWindowEx(AOLChild&, AOLStatic3&, "_AOL_Static", vbNullString)
aollistbox& = FindWindowEx(AOLChild&, 0&, "_AOL_Listbox", vbNullString)
AOLStatic4& = FindWindowEx(AOLChild&, AOLStatic3&, "_AOL_Static", vbNullString)
AOLIcon3& = FindWindowEx(AOLChild&, AOLIcon2&, "_AOL_Icon", vbNullString)
For i& = 1& To 7&
    AOLIcon3& = FindWindowEx(AOLChild&, AOLIcon3&, "_AOL_Icon", vbNullString)
Next i&
AOLStatic5& = FindWindowEx(AOLChild&, AOLStatic4&, "_AOL_Static", vbNullString)
Do While (counter& <> 100&) And (AOLStatic& = 0& Or richcntl& = 0& Or AOLCombobox& = 0& Or AOLIcon& = 0& Or AOLStatic2& = 0& Or RICHCNTL2& = 0& Or AOLIcon2& = 0& Or AOLImage& = 0& Or AOLStatic3& = 0& Or aollistbox& = 0& Or AOLStatic4& = 0& Or AOLIcon3& = 0& Or AOLStatic5& = 0&): DoEvents
    AOLChild& = FindWindowEx(MDIClient&, AOLChild&, "AOL Child", vbNullString)
    AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
    richcntl& = FindWindowEx(AOLChild&, 0&, "RICHCNTL", vbNullString)
    AOLCombobox& = FindWindowEx(AOLChild&, 0&, "_AOL_Combobox", vbNullString)
    AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
    For i& = 1& To 3&
        AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
    Next i&
    AOLStatic2& = FindWindowEx(AOLChild&, AOLStatic&, "_AOL_Static", vbNullString)
    RICHCNTL2& = FindWindowEx(AOLChild&, richcntl&, "RICHCNTL", vbNullString)
    AOLIcon2& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
    For i& = 1& To 2&
        AOLIcon2& = FindWindowEx(AOLChild&, AOLIcon2&, "_AOL_Icon", vbNullString)
    Next i&
    AOLImage& = FindWindowEx(AOLChild&, 0&, "_AOL_Image", vbNullString)
    AOLStatic3& = FindWindowEx(AOLChild&, AOLStatic2&, "_AOL_Static", vbNullString)
    AOLStatic3& = FindWindowEx(AOLChild&, AOLStatic3&, "_AOL_Static", vbNullString)
    aollistbox& = FindWindowEx(AOLChild&, 0&, "_AOL_Listbox", vbNullString)
    AOLStatic4& = FindWindowEx(AOLChild&, AOLStatic3&, "_AOL_Static", vbNullString)
    AOLIcon3& = FindWindowEx(AOLChild&, AOLIcon2&, "_AOL_Icon", vbNullString)
    For i& = 1& To 7&
        AOLIcon3& = FindWindowEx(AOLChild&, AOLIcon3&, "_AOL_Icon", vbNullString)
    Next i&
    AOLStatic5& = FindWindowEx(AOLChild&, AOLStatic4&, "_AOL_Static", vbNullString)
    If AOLStatic& And richcntl& And AOLCombobox& And AOLIcon& And AOLStatic2& And RICHCNTL2& And AOLIcon2& And AOLImage& And AOLStatic3& And aollistbox& And AOLStatic4& And AOLIcon3& And AOLStatic5& Then Exit Do
    counter& = Val(counter&) + 1&
Loop
If Val(counter&) < 100& Then
    FindChatRoom& = AOLChild&
    Exit Function
End If
End Function

Public Sub FormCenter(FormName As Form)
With FormName
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
End With
End Sub

Public Sub FormDrag(FormName As Form)
'make sure that the sub in your form you have this in,
'is like BLAH_MouseDown, mouse down is when you call
'this like
' Private Sub Blah_MouseDown(blah blah blah)
' Call FormDrag(me) or (form1)
' End Sub
Call ReleaseCapture
Call SendMessage(FormName.hwnd, WM_SYSCOMMAND, WM_MOVE, 0)
End Sub

Public Sub ListClear(ListBox As ListBox)
'Clears a list box
'call ListClear(list1)
ListBox.Clear
End Sub
Public Sub ListKillDupes(ListBox As ListBox)
'Kills dublicite items in a listbox
        Dim Search1 As Long
        Dim Search2 As Long
        Dim KillDupe As Long
KillDupe = 0
For Search1& = 0 To ListBox.ListCount - 1
For Search2& = Search1& + 1 To ListBox.ListCount - 1
KillDupe = KillDupe + 1
If ListBox.List(Search1&) = ListBox.List(Search2&) Then
ListBox.RemoveItem Search2&
Search2& = Search2& - 1
End If
Next Search2&
Next Search1&
End Sub

Public Function ListToTextString(ListBox As ListBox, InsertSeparator As String) As String
'Makes list a txt string
        Dim CurrentCount As Long, PrepString As String
For CurrentCount& = 0 To ListBox.ListCount - 1
PrepString$ = PrepString$ & ListBox.List(CurrentCount&) & InsertSeparator$
Next CurrentCount&
ListToTextString$ = Left(PrepString$, Len(PrepString$) - 2)
End Function
Public Sub ListCopy(SourceList As Long, DestinationList As Long)
'Copys a list to another
'Call ListCopy ("list1", "List2")
        Dim SourceCount As Long, OfCountForIndex As Long, FixedString As String
SourceCount& = SendMessageLong(SourceList&, LB_GETCOUNT, 0&, 0&)
Call SendMessageLong(DestinationList&, LB_RESETCONTENT, 0&, 0&)
If SourceCount& = 0& Then Exit Sub
For OfCountForIndex& = 0 To SourceCount& - 1
FixedString$ = String(250, 0)
Call SendMessageByString(SourceList&, LB_GETTEXT, OfCountForIndex&, FixedString$)
Call SendMessageByString(DestinationList&, LB_ADDSTRING, 0&, FixedString$)
Next OfCountForIndex&
End Sub

Public Function ListGetText(ListBox As Long, index As Long) As String
        Dim ListText As String * 256
Call SendMessageByString(ListBox&, LB_GETTEXT, index&, ListText$)
ListGetText$ = ListText$
End Function

Public Sub ListRemoveSelected(ListBox As ListBox)
        Dim ListCount As Long
ListCount& = ListBox.ListCount
Do While ListCount& > 0&
ListCount& = ListCount& - 1
If ListBox.Selected(ListCount&) = True Then
ListBox.RemoveItem (ListCount&)
End If
Loop
End Sub
Public Sub Load2listboxes(Path As String, List1 As ListBox, List2 As ListBox)
'Loads Two list boxes
        Dim MyString As String, String1 As String, String2 As String
On Error Resume Next
Open Path$ For Input As #1
While Not EOF(1)
Input #1, MyString$
String1$ = Left(MyString$, InStr(MyString$, "*") - 1)
String2$ = Right(MyString$, Len(MyString$) - InStr(MyString$, "*"))
DoEvents
List1.AddItem String1$
List2.AddItem String2$
Wend
Close #1
End Sub

Public Sub Loadlistbox(Path As String, List1 As ListBox)
'Loads list box
'Call LoadListBox(app.path, list1)
        Dim s60 As String
On Error Resume Next
Open Path$ For Input As #1
While Not EOF(1)
Input #1, s60$
DoEvents
List1.AddItem s60$
Wend
Close #1
End Sub

Public Sub UnloadAllForms()
    Dim OfTheseForms As Form
For Each OfTheseForms In Forms
Unload OfTheseForms
Set OfTheseForms = Nothing
Next OfTheseForms
End Sub

Sub DisableACD()
' this command disables Alt+Ctrl+Del
Call SystemParametersInfo(97, True, 0&, 0)
End Sub


Sub EnableACD()
' this command enables Alt+Ctrl+Del
Call SystemParametersInfo(97, False, 0&, 0)
End Sub

Public Sub FormExitDown(FormName As Form)
    Do
        DoEvents
        FormName.Top = Trim(Str(Int(FormName.Top) + 300))
    Loop Until FormName.Top > 7200
End Sub

Public Sub FormExitLeft(FormName As Form)
    Do
        DoEvents
        FormName.Left = Trim(Str(Int(FormName.Left) - 300))
    Loop Until FormName.Left < -FormName.Width
End Sub

Public Sub FormExitRight(FormName As Form)
    Do
        DoEvents
        FormName.Left = Trim(Str(Int(FormName.Left) + 300))
    Loop Until FormName.Left > Screen.Width
End Sub

Public Sub FormExitUp(FormName As Form)
    Do
        DoEvents
        FormName.Top = Trim(Str(Int(FormName.Top) - 300))
    Loop Until FormName.Top < -FormName.Width
End Sub

Public Sub PlayMIDI(MIDIFile As String)
    Dim SafeFile As String
    SafeFile$ = dir(MIDIFile$)
    If SafeFile$ <> "" Then
        Call mciSendString("play " & MIDIFile$, 0&, 0, 0)
    End If
End Sub

Public Sub StopMIDI(MIDIFile As String)
    Dim SafeFile As String
    SafeFile$ = dir(MIDIFile$)
    If SafeFile$ <> "" Then
        Call mciSendString("stop " & MIDIFile$, 0&, 0, 0)
    End If
End Sub

Public Sub Playwav(WavFile As String)
    Dim SafeFile As String
    SafeFile$ = dir(WavFile$)
    If SafeFile$ <> "" Then
        Call sndPlaySound(WavFile$, SND_FLAG)
    End If
End Sub

Public Sub WriteToINI(Section As String, Key As String, KeyValue As String, Directory As String)
Call WritePrivateProfileString(Section$, UCase$(Key$), KeyValue$, Directory$)
End Sub

Public Function GetFromINI(Section As String, Key As String, Directory As String) As String
Dim strBuffer As String
strBuffer = String(750, Chr(0))
Key$ = LCase$(Key$)
GetFromINI$ = Left(strBuffer, GetPrivateProfileString(Section$, ByVal Key$, "", strBuffer, Len(strBuffer), Directory$))
End Function

Public Function ClickSignOn()
'on sign on screen
'dims
Dim i As Long
Dim AOLIcon As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
'finds frame
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
'finds icon
For i& = 1& To 3&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
'clicks
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickHelpOnSignOnScreen()
'on sign on screen
Dim i As Long
Dim AOLIcon As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 2&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickAccessNumbers()
'on sign on screen
Dim AOLIcon As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickSetup()
'on sign on screen
Dim AOLIcon As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickAddNumber()
'sign on screen >> setup
Dim AOLIcon As Long
Dim AOLModal As Long
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickEditNumber()
'sign on screen >> setup
Dim AOLIcon As Long
Dim AOLModal As Long
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickAddLocation()
'sign on screen >> setup
Dim i As Long
Dim AOLIcon As Long
Dim AOLModal As Long
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 2&
    AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickAddModem()
'sign on screen >> setup
Dim i As Long
Dim AOLIcon As Long
Dim AOLModal As Long
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 3&
    AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickExpertSetup()
'sign on screen >> setup
Dim i As Long
Dim AOLIcon As Long
Dim AOLModal As Long
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 4&
    AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickCancel()
'sign on screen >> setup
Dim i As Long
Dim AOLIcon As Long
Dim AOLModal As Long
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 5&
    AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickHelp()
'sign on screen >> setup
Dim i As Long
Dim AOLIcon As Long
Dim AOLModal As Long
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 6&
    AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function SetPW(text As String)
'on the sign on screen
'ex: Call SetPw("PwWouldGoHere")
Dim AOLEdit As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)
Call SendMessageByString(AOLEdit&, WM_SETTEXT, 0&, text$)
End Function

Public Function HideSignOn()
'hides sign on screen...malicious use...
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
Call ShowWindow(AOLChild&, SW_HIDE)
End Function

Public Function ShowSignOn()
'shows sign on screen after its hidden
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
Call ShowWindow(AOLChild&, SW_SHOW)
End Function

Public Function MailSendTo(text As String)
'sends text to 'send to' person in write mail
Dim AOLEdit As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)
Call SendMessageByString(AOLEdit&, WM_SETTEXT, 0&, text$)
End Function

Public Function MailCopyTo(text As String)
'sends text to 'copy to' in write mail
Dim AOLEdit As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)
AOLEdit& = FindWindowEx(AOLChild&, AOLEdit&, "_AOL_Edit", vbNullString)
Call SendMessageByString(AOLEdit&, WM_SETTEXT, 0&, text$)
End Function

Public Function MailSubject(text As String)
'sends text to 'subject' when writing mail
Dim i As Long
Dim AOLEdit As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)
For i& = 1& To 2&
    AOLEdit& = FindWindowEx(AOLChild&, AOLEdit&, "_AOL_Edit", vbNullString)
Next i&
Call SendMessageByString(AOLEdit&, WM_SETTEXT, 0&, text$)
End Function

Public Function MailBody(text As String)
'sends text to 'body' of the write mail window
Dim richcntl As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
richcntl& = FindWindowEx(AOLChild&, 0&, "RICHCNTL", vbNullString)
Call SendMessageByString(richcntl&, WM_SETTEXT, 0&, text$)
End Function

Public Function MailCheckReturnReciept()
'checks the return reciept check box on write mail
Dim AOLCheckbox As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLCheckbox& = FindWindowEx(AOLChild&, 0&, "_AOL_Checkbox", vbNullString)
Call SendMessage(AOLCheckbox&, BM_SETCHECK, True, 0&)
End Function

Public Function MailUnCheckReturnReciept()
'Unchecks the return reciept check box on write mail
Dim AOLCheckbox As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLCheckbox& = FindWindowEx(AOLChild&, 0&, "_AOL_Checkbox", vbNullString)
Call SendMessage(AOLCheckbox&, BM_SETCHECK, False, 0&)
End Function

Public Function MailChangeWriteMailCaption(text As String)
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim richcntl As Long
'Changes Write Mail's Caption to what ever you want
'Call MailChangeWriteMailCaption ("Source Ownz")
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
richcntl& = FindWindowEx(AOLChild&, 0&, "RICHCNTL", vbNullString)
Call SendMessageByString(AOLChild&, WM_SETTEXT, 0&, text$)
End Function

Public Function SignOnScreenCapChange(text As String)
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
'Changes Aols Sign On Screen Caption To Whatever You Want
'Call SignOnScreenCapChange("Source Sign ON")
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
Call SendMessageByString(AOLChild&, WM_SETTEXT, 0&, text$)
End Function

Public Function ChangeAolCaption(text As String)
'Changes Aol's Caption
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
'Call ChangeAolCaption("Source Owned America Online 6.0")
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
Call SendMessageByString(AOLFrame&, WM_SETTEXT, 0&, text$)
End Function

Public Function MailGetSendTo()
'grabs text of the person mail is being sent to
'text1.text= (mailgetsendto)
Dim AOLEditTxt As String
Dim TextLen As Long
Dim AOLEdit As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)
TextLen& = SendMessage(AOLEdit&, WM_GETTEXTLENGTH, 0&, 0&)
AOLEditTxt$ = String(TextLen&, 0&)
Call SendMessageByString(AOLEdit&, WM_GETTEXT, TextLen& + 1&, AOLEditTxt$)
End Function

Public Function MailGetCopyTo()
'grabs text of the 'copy to' text when write mail is open
'text1.text= (mailgetcopyto)
Dim AOLEditTxt As String
Dim TextLen As Long
Dim AOLEdit As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)
AOLEdit& = FindWindowEx(AOLChild&, AOLEdit&, "_AOL_Edit", vbNullString)
TextLen& = SendMessage(AOLEdit&, WM_GETTEXTLENGTH, 0&, 0&)
AOLEditTxt$ = String(TextLen&, 0&)
Call SendMessageByString(AOLEdit&, WM_GETTEXT, TextLen& + 1&, AOLEditTxt$)
End Function

Public Function MailGetSubject(AOLEditTxt As String)
'Grabs Text of Subject in Write Mail
'text1.text= (mailgetsubject)
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim TextLen As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)

For i& = 1& To 2&
    AOLEdit& = FindWindowEx(AOLChild&, AOLEdit&, "_AOL_Edit", vbNullString)
Next i&
TextLen& = SendMessage(AOLEdit&, WM_GETTEXTLENGTH, 0&, 0&)
AOLEditTxt$ = String(TextLen&, 0&)
Call SendMessageByString(AOLEdit&, WM_GETTEXT, TextLen& + 1&, AOLEditTxt$)
End Function
Public Function FindChildByClass(ParentWindow As Long, ClassWindow As String) As Long
FindChildByClass& = FindWindowEx(ParentWindow&, 0&, ClassWindow$, vbNullString)
End Function
Public Function MailGetBody()
'Grabs body of Write Mail, the main text
'Text1.Text = (MailGetBody)
Dim RICHCNTLTxt As String
Dim TextLen As Long
Dim richcntl As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", 0&)
MDIClient& = FindChildByClass(AOLFrame&, "MDIClient")
AOLChild& = FindChildByClass(MDIClient&, "AOL Child")
richcntl& = FindChildByClass(AOLChild&, "RICHCNTL")
TextLen& = SendMessage(richcntl&, WM_GETTEXTLENGTH, 0&, 0&)
RICHCNTLTxt$ = String(TextLen&, 0&)
Call SendMessageByString(richcntl&, WM_GETTEXT, TextLen& + 1&, RICHCNTLTxt$)
End Function

Public Function MailClickToolbarArrow()
Dim AOLIcon As Long
Dim aoltoolbar2 As Long
Dim AOLToolbar As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
AOLToolbar& = FindWindowEx(AOLFrame&, 0&, "AOL Toolbar", vbNullString)
aoltoolbar2& = FindWindowEx(AOLToolbar&, 0&, "_AOL_Toolbar", vbNullString)
AOLIcon& = FindWindowEx(aoltoolbar2&, 0&, "_AOL_Icon", vbNullString)
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function GetPw()
'gets pw from sign on screen (needed for pws)
'Call GetPW
'or try
'Label1.caption=(GetPw)
'or try(heehe)
'label1.caption=GetPW
'something like that
Dim AOLEditTxt As String
Dim TextLen As Long
Dim AOLEdit As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)
TextLen& = SendMessage(AOLEdit&, WM_GETTEXTLENGTH, 0&, 0&)
AOLEditTxt$ = String(TextLen&, 0&)
Call SendMessageByString(AOLEdit&, WM_GETTEXT, TextLen& + 1&, AOLEditTxt$)
End Function

Public Function ClickAolServicesArrow()
'Clicks the arrow to bring down drop menue for aol services
Dim i As Long
Dim AOLIcon As Long
Dim aoltoolbar2 As Long
Dim AOLToolbar As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
AOLToolbar& = FindWindowEx(AOLFrame&, 0&, "AOL Toolbar", vbNullString)
aoltoolbar2& = FindWindowEx(AOLToolbar&, 0&, "_AOL_Toolbar", vbNullString)
AOLIcon& = FindWindowEx(aoltoolbar2&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 6&
    AOLIcon& = FindWindowEx(aoltoolbar2&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickSettings()
'Clicks the Down Arrow for Settings on toolbar
Dim i As Long
Dim AOLIcon As Long
Dim aoltoolbar2 As Long
Dim AOLToolbar As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
AOLToolbar& = FindWindowEx(AOLFrame&, 0&, "AOL Toolbar", vbNullString)
aoltoolbar2& = FindWindowEx(AOLToolbar&, 0&, "_AOL_Toolbar", vbNullString)
AOLIcon& = FindWindowEx(aoltoolbar2&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 9&
    AOLIcon& = FindWindowEx(aoltoolbar2&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickFavorites()
'clicks the favorites icon from toolbar
Dim i As Long
Dim AOLIcon As Long
Dim aoltoolbar2 As Long
Dim AOLToolbar As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
AOLToolbar& = FindWindowEx(AOLFrame&, 0&, "AOL Toolbar", vbNullString)
aoltoolbar2& = FindWindowEx(AOLToolbar&, 0&, "_AOL_Toolbar", vbNullString)
AOLIcon& = FindWindowEx(aoltoolbar2&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 11&
    AOLIcon& = FindWindowEx(aoltoolbar2&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)

End Function

Public Function ChangeSelectScreenNameCaption(text As String)
'on the sign on screen , where it says select screen name
'this is the coding to change it to what you want.
'Call ChangeSelectScreenNameCaption("New Text Here")
Dim AOLStatic As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
Call SendMessageByString(AOLStatic&, WM_SETTEXT, 0&, text$)
End Function

Public Function ChangeEnterPW(text As String)
'where it says Enter Password: on the sign on screen
'this is coding to change it to what you want.
'Call ChangeEnterPW("NEW TEXT IZ SOURCE OWNZ!")
Dim AOLStatic As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
AOLStatic& = FindWindowEx(AOLChild&, AOLStatic&, "_AOL_Static", vbNullString)
Call SendMessageByString(AOLStatic&, WM_SETTEXT, 0&, text$)
End Function

Public Function ChangeSelectLocation(text As String)
'This changes where it says select location >>sign on screen
'Call ChangeSelectLocation("new TEXT!")
Dim i As Long
Dim AOLStatic As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Sign On")
AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
For i& = 1& To 3&
    AOLStatic& = FindWindowEx(AOLChild&, AOLStatic&, "_AOL_Static", vbNullString)
Next i&
Call SendMessageByString(AOLStatic&, WM_SETTEXT, 0&, text$)
End Function

Public Function ChangeSendTo(text As String)
'On Write Mail, Where it says Send To:
'This is coding to change it
'Call ChangeSendTo("Victim:")
Dim AOLStatic As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
Call SendMessageByString(AOLStatic&, WM_SETTEXT, 0&, text$)
End Function

Public Function ChangeCopyTo(text As String)
'This Changes Copy To: on Write mail to whatever
'Call ChangeCopyTo("AssHole:")
Dim AOLStatic As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
AOLStatic& = FindWindowEx(AOLChild&, AOLStatic&, "_AOL_Static", vbNullString)
Call SendMessageByString(AOLStatic&, WM_SETTEXT, 0&, text$)
End Function

Public Function ChangeSubject(text As String)
'This Changes where it says Subject on write mail
'Call ChangeSubject ("Topic:")
Dim i As Long
Dim AOLStatic As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
For i& = 1& To 2&
    AOLStatic& = FindWindowEx(AOLChild&, AOLStatic&, "_AOL_Static", vbNullString)
Next i&
Call SendMessageByString(AOLStatic&, WM_SETTEXT, 0&, text$)
End Function

Public Function HidePrefrences()
'hides prefrences window
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Preferences")
Call ShowWindow(AOLChild&, SW_HIDE)
End Function

Public Function ShowPrefrences()
'shows prefrences window
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Preferences")
Call ShowWindow(AOLChild&, SW_SHOW)
End Function

Public Function ChangePrefrencesCaption(text As String)
'Call ChangePrefrencesCaption("NewCAPhere")
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Preferences")
Call SendMessageByString(AOLChild&, WM_SETTEXT, 0&, text$)
End Function

Public Function CloseFavorites()
'close favorite places window
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Favorite Places")
Call SendMessage(AOLChild&, WM_CLOSE, 0&, 0&)
End Function

Public Function HideFavorites()
'hides favorite places window
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Favorite Places")
Call ShowWindow(AOLChild&, SW_HIDE)
End Function

Public Function MaximizeFavorites()
'maximizes favorite window
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Favorite Places")
Call ShowWindow(AOLChild&, SW_MAXIMIZE)
End Function

Public Function MinimizeFavorites()
'minimizes favorites window
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Favorite Places")
Call ShowWindow(AOLChild&, SW_MINIMIZE)
End Function

Public Function ShowFavorites()
'shows favorites window
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Favorite Places")
Call ShowWindow(AOLChild&, SW_SHOW)
End Function

Public Function ChangeFavoritesCaption(text As String)
'Call ChangeFavoritesCaption("Source Ownz Favorites")
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Favorite Places")
Call SendMessageByString(AOLChild&, WM_SETTEXT, 0&, text$)
End Function

Public Function CloseConnectionLog()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long


AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Connection Log")
Call SendMessage(AOLChild&, WM_CLOSE, 0&, 0&)
End Function


Public Function AutoCloseConnectionLog() As Long
'in timer
'If autocloseconnectionlog <> 0& then
'call closeconnectionlog
'else
'end if
Dim counter As Long
Dim AOLView As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
AOLView& = FindWindowEx(AOLChild&, 0&, "_AOL_View", vbNullString)
Do While (counter& <> 100&) And (AOLView& = 0&): DoEvents
    AOLChild& = FindWindowEx(MDIClient&, AOLChild&, "AOL Child", vbNullString)
    AOLView& = FindWindowEx(AOLChild&, 0&, "_AOL_View", vbNullString)
    If AOLView& Then Exit Do
    counter& = Val(counter&) + 1&
Loop
If Val(counter&) < 100& Then
    AutoCloseConnectionLog& = AOLChild&
    Exit Function
End If
End Function

Public Function StayOnline() As Long
'in timer
'If StayOnline <> 0& then
'call stayonlineclickno
'else
'end if
Dim counter As Long
Dim AOLIcon As Long
Dim AOLStatic As Long
Dim AOLModal As Long
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLStatic& = FindWindowEx(AOLModal&, 0&, "_AOL_Static", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
Do While (counter& <> 100&) And (AOLStatic& = 0& Or AOLIcon& = 0&): DoEvents
    AOLModal& = FindWindowEx(AOLModal&, AOLModal&, "_AOL_Modal", vbNullString)
    AOLStatic& = FindWindowEx(AOLModal&, 0&, "_AOL_Static", vbNullString)
    AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
    AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
    If AOLStatic& And AOLIcon& Then Exit Do
    counter& = Val(counter&) + 1&
Loop
If Val(counter&) < 100& Then
    StayOnline& = AOLModal&
    Exit Function
End If
End Function
Public Function StayOnlineClickNo()
Dim AOLIcon As Long
Dim AOLModal As Long
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ConfirmOffline() As Long
'finds window if u can logged of and clicks ok
'in timer
'If ConfirmOffline <> 0& then
'call Offlineok
'else
'end if
Dim counter As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLEdit As Long
Dim RICHCNTL2 As Long
Dim AOLStatic2 As Long
Dim richcntl As Long
Dim AOLStatic As Long
Dim AOLGlyph As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
AOLGlyph& = FindWindowEx(AOLChild&, 0&, "_AOL_Glyph", vbNullString)
AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
richcntl& = FindWindowEx(AOLChild&, 0&, "RICHCNTL", vbNullString)
richcntl& = FindWindowEx(AOLChild&, richcntl&, "RICHCNTL", vbNullString)
AOLStatic2& = FindWindowEx(AOLChild&, AOLStatic&, "_AOL_Static", vbNullString)
RICHCNTL2& = FindWindowEx(AOLChild&, richcntl&, "RICHCNTL", vbNullString)
AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 3&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Do While (counter& <> 100&) And (AOLGlyph& = 0& Or AOLStatic& = 0& Or richcntl& = 0& Or AOLStatic2& = 0& Or RICHCNTL2& = 0& Or AOLEdit& = 0& Or AOLIcon& = 0&): DoEvents
    AOLChild& = FindWindowEx(MDIClient&, AOLChild&, "AOL Child", vbNullString)
    AOLGlyph& = FindWindowEx(AOLChild&, 0&, "_AOL_Glyph", vbNullString)
    AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
    richcntl& = FindWindowEx(AOLChild&, 0&, "RICHCNTL", vbNullString)
    richcntl& = FindWindowEx(AOLChild&, richcntl&, "RICHCNTL", vbNullString)
    AOLStatic2& = FindWindowEx(AOLChild&, AOLStatic&, "_AOL_Static", vbNullString)
    RICHCNTL2& = FindWindowEx(AOLChild&, richcntl&, "RICHCNTL", vbNullString)
    AOLEdit& = FindWindowEx(AOLChild&, 0&, "_AOL_Edit", vbNullString)
    AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
    For i& = 1& To 3&
        AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
    Next i&
    If AOLGlyph& And AOLStatic& And richcntl& And AOLStatic2& And RICHCNTL2& And AOLEdit& And AOLIcon& Then Exit Do
    counter& = Val(counter&) + 1&
Loop
If Val(counter&) < 100& Then
    ConfirmOffline& = AOLChild&
    Exit Function
End If
End Function

Public Function OfflineOK()
'buggy..not perfect
Dim i As Long
Dim AOLIcon As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "The Connection Failed")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 3&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Sub ClearClipboard()
'Clears the clipboard
'Call ClearClipboard
On Error GoTo Error
Clipboard.Clear
Exit Sub
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub

Public Sub ClipboardCopy(text As String)
'Copies text to the clipboard
'Call Clipboardcopy("NewText")
'or possibly
'Call Clipboardcopy(text1.text)
On Error GoTo Error
Clipboard.Clear
Clipboard.SetText text$
Exit Sub
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub

Function ClipboardGet()
'Gets the copied text from the clipboard
'Text1.text=ClipBoardGet
On Error GoTo Error
ClipboardGet = Clipboard.GetText
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function


Function GetAppVersion()
Dim appversion As Long
'This will retrieve the current version of your application
On Error GoTo Error
appversion = App.Major & "." & App.Minor & "." & App.Revision
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function

Function GetAppName(ShowEXE As Boolean)
'This will get the application's .exe name
On Error GoTo Error
GetAppName = App.EXEName
If ShowEXE = True Then
GetAppName = GetAppName & ".exe"
End If
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function

Function GetAppPath()
'This will get the application's current path
On Error GoTo Error
GetAppPath = App.Path
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function

Function GetAppDescription()
'This will get the application's file description
On Error GoTo Error
GetAppDescription = App.FileDescription
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function

Function GetAppCopyRight()
'This will get the application's copyright
On Error GoTo Error
GetAppCopyRight = App.LegalCopyright
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function

Function GetAppComment()
'This will get the application's comment
On Error GoTo Error
GetAppComment = App.Comments
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function

Function GetAppTitle()
'This will get the application's title
On Error GoTo Error
GetAppTitle = App.Title
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function

Function GetAppCompanyName()
'This will get the application's company name
On Error GoTo Error
GetAppCompanyName = App.CompanyName
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function

Function GetAppProductName()
'This will get the application's product name
On Error GoTo Error
GetAppProductName = App.ProductName
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function
Public Sub AddToStartupDir()
'Add your application to the windows startup folder
On Error GoTo Error
FileCopy App.Path & "\" & App.EXEName & ".EXE", Mid$(App.Path, 1, 3) & "WINDOWS\START MENU\PROGRAMS\STARTUP\" & App.EXEName & ".EXE"
Exit Sub
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub

Function PasswordLock(password As String)
'This will create an input box to create a simple password protection
On Error GoTo Error
Dim xtra As String
Start:
xtra$ = InputBox("Please enter the password.", "Password Lock")
If xtra$ = password$ Then
MsgBox "Correct Password!", vbExclamation, "Password Lock"
Else
  If MsgBox("Incorrect Password!  Would you like to try again?", 48 + vbYesNo, "Password Lock") = vbYes Then
  GoTo Start
  Else
  End
  End If
End If
Exit Function
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Function


Public Sub PrintBlankPage()
'Print a blank page out of a printer
On Error GoTo Error
Printer.NewPage
Exit Sub
Error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub

Sub DestroyFile(sFileName As String)
'Destroys A File, FULLPROOF
'Call DestryFile ("c:\command.com")
    Dim Block1 As String, Block2 As String, Blocks As Long
    Dim hFileHandle As Integer, iLoop As Long, offset As Long
    'Create two buffers with a specified 'wi
    'pe-out' characters
    Const BLOCKSIZE = 4096
    Block1 = String(BLOCKSIZE, "X")
    Block2 = String(BLOCKSIZE, " ")
    'Overwrite the file contents with the wi
    'pe-out characters
    hFileHandle = FreeFile
    Open sFileName For Binary As hFileHandle
    Blocks = (LOF(hFileHandle) \ BLOCKSIZE) + 1


    For iLoop = 1 To Blocks
        offset = Seek(hFileHandle)
        Put hFileHandle, , Block1
        Put hFileHandle, offset, Block2
    Next iLoop
    Close hFileHandle
    'Now you can delete the file, which cont
    'ains no sensitive data
    Kill sFileName
End Sub

Public Function ChangeChatRoomCap(text As String)
'ex: Call ChangeChatRoomCap("newname")
'where it says vb6 you need to change that to the current chatroom
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "vb6")
Call SendMessageByString(AOLChild&, WM_SETTEXT, 0&, text$)
End Function


Public Function ChatSend(text As String)
'Send chat to chatroom
'Call Sendchat("source ownz")
Dim richcntl As Long
richcntl& = FindWindowEx(FindChatRoom(), 0&, "RICHCNTL", vbNullString)
richcntl& = FindWindowEx(FindChatRoom(), richcntl&, "RICHCNTL", vbNullString)
Call SendMessageByString(richcntl&, WM_SETTEXT, 0&, text$)
Call SendMessageByNum(richcntl&, WM_CHAR, 13, 0&)
End Function
Public Function ChatClear(Room As String)
'this will clear the aol chat text
'ex: Call ChatClear("roomnametoclear")
'if you were in vb6, and u wanted to clear text in there...
'Call ChatClear("vb6")
Dim richcntl As Long
Dim AOLChild As Long
Dim MDIClient As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", Room$)
richcntl& = FindWindowEx(AOLChild&, 0&, "RICHCNTL", vbNullString)
Call SendMessageByString(richcntl&, WM_SETTEXT, 0&, "")
End Function

Public Function ClickPeopleDownArrow()
'on toolbar
Dim i As Long
Dim AOLIcon As Long
Dim aoltoolbar2 As Long
Dim AOLToolbar As Long
Dim AOLFrame As Long
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
AOLToolbar& = FindWindowEx(AOLFrame&, 0&, "AOL Toolbar", vbNullString)
aoltoolbar2& = FindWindowEx(AOLToolbar&, 0&, "_AOL_Toolbar", vbNullString)
AOLIcon& = FindWindowEx(aoltoolbar2&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 3&
    AOLIcon& = FindWindowEx(aoltoolbar2&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessage(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(AOLIcon&, WM_LBUTTONUP, 0&, 0&)
End Function

Public Function ClickAnyIcon()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long


'BIG UPS TO GRAVITY...thanx for help man!!!
'okay at the end of your coding where u want to click
'a button/icon all you have to do is add this to the
'end of your work
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)
'that will click it and release it...works perfectly
End Function

Public Function ClickSendIM()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long


'when your having a conversation with someone, this
'clicks that send button
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 9&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)
End Function

Public Function ClickCancelIM()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long


'when your having a conversation with someone, this
'clicks the cancel button
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 13&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)
End Function

Public Function ClickProfileIM()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'when your having a conversation with someone, this
'clicks the Get Profile button
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
AOLButton& = FindWindowEx(AOLChild&, 0&, "_AOL_Button", vbNullString)
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)
End Function

Public Function ClickNotifyAolIM()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'when talking with someone, this clicks the notify button
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", vbNullString)
AOLButton& = FindWindowEx(AOLChild&, 0&, "_AOL_Button", vbNullString)
AOLButton& = FindWindowEx(AOLChild&, AOLButton&, "_AOL_Button", vbNullString)
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)
End Function

Public Function ClickSendInChat()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'when in chat this clicks the send button
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "vb6")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 4&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function ClickAwayNotice()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'on your buddylist, this clicks away notice
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 3&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function ClickSetupBlist()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'clicks setup button on your buddylist
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 4&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function ClickHelpBlist()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'this clicks the help button on your buddylist
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 5&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function ClickSendImBlist()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'This clicks the Send IM button on your buddylist
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function ClickChatBlist()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'clicks the chat button on your buddylist
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function ClickLocateBlist()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'clicks locate button on blist
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 2&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function


Public Function MailSend()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'clicks the Send Button on Write Mail
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 17&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailSendLater()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'clicks the send later button on write mail
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 18&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function


Public Function MailAddyBook()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'clicks the addy book button on write mail
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 19&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailGreetings()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'clicks greetings icon on write mail
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 20&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailSignOnFriend()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLStatic As Long

'clicks the Sign On Friend Button on write mail
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLStatic& = FindWindowEx(AOLChild&, 0&, "_AOL_Static", vbNullString)
For i& = 1& To 10&
    AOLStatic& = FindWindowEx(AOLChild&, AOLStatic&, "_AOL_Static", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailAttach1()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long
'clicks the first attachment button on write mail
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
MDIClient& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")
AOLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 15&
    AOLIcon& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailAttach2()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLModal As Long

'clicks the second attachment pop up
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailOk()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLStatic As Long
Dim AOLModal As Long

'after second attachment pop up in write mail, this clicks ok
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 2&
    AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailCancel()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLStatic As Long
Dim AOLModal As Long
'clicks cancel in second attachment popup in write mail
AOLModal& = FindWindow("_AOL_Modal", vbNullString)
AOLIcon& = FindWindowEx(AOLModal&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 3&
    AOLIcon& = FindWindowEx(AOLModal&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailRead()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLStatic As Long
Dim AOLModal As Long
Dim AOLToolbar As Long
Dim aoltoolbar2 As Long
'read your mail
AOLFrame& = FindWindow("AOL Frame25", vbNullString)
AOLToolbar& = FindWindowEx(AOLFrame&, 0&, "AOL Toolbar", vbNullString)
aoltoolbar2& = FindWindowEx(AOLToolbar&, 0&, "_AOL_Toolbar", vbNullString)
AOLIcon& = FindWindowEx(aoltoolbar2&, 0&, "_AOL_Icon", vbNullString)
AOLIcon& = FindWindowEx(aoltoolbar2&, AOLIcon&, "_AOL_Icon", vbNullString)
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailWrite()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLStatic As Long
Dim AOLModal As Long
Dim AOLToolbar As Long
Dim aoltoolbar2 As Long

AOLFrame& = FindWindow("AOL Frame25", vbNullString)
AOLToolbar& = FindWindowEx(AOLFrame&, 0&, "AOL Toolbar", vbNullString)
aoltoolbar2& = FindWindowEx(AOLToolbar&, 0&, "_AOL_Toolbar", vbNullString)
AOLIcon& = FindWindowEx(aoltoolbar2&, 0&, "_AOL_Icon", vbNullString)
For i& = 1& To 2&
    AOLIcon& = FindWindowEx(aoltoolbar2&, AOLIcon&, "_AOL_Icon", vbNullString)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function ClickIM()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLStatic As Long
Dim AOLModal As Long
Dim AOLToolbar As Long
Dim aoltoolbar2 As Long
'send an instant message
'plz see sub :Iconl)
Call(u
b :Iconl)
-AOLChild&,bNullString)
n
Dim MDIClien9gnl)
-AOLChild&,bNull Long
Dim AOaildSit Albar2 As Long

AOLFrame& = FindWindow("AOL Frame25", vbNullString)
AOLToolbar& = FindWindowEx(AOLFrame&, 0&, "AOL Toolbar", vbNullString)
aoltoolbar2& = FindWindowEx(AOLToolbar&, 0&, "_AOL_Toolbar", )
Call(u
b :Iconl)
-AOLChild&,bNullStrin&, "_Ad&,bNuo
-AOLChild&a0 ,, 0&, "AOL& = FindWindos5",insndWindowEx(aoltoolbar2dN i As Llpg
AOLToolbar& = Fine0i"AOLrg)
Next i&
Call SendMessageLong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailRead()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit A,m AAOaildSit d an
Dg)
Rt rame& = owEx(aoltoolbar2dN )ng
Dim ao As cdram)hild As Long
Dim AO$aRt the application's file description
On Error GoTo Error
GetAppDescription = App.FileDescription
Exit Function
Error:  MsgBox E = FEx(aoltí(AO
Cals Long
Dim aoltoolbar2 As Long
'send an instant sUtSendMessageLWindos5",insndWiescriptdeAs Long
Dim MDIClient As Long
m MDI Functiox = Fine0i"E Long
m MDI ent& = FindWindowEx(AOLFrame&, 0&, "MDIClient", vbNullString)
AOLChild& = FindWindowEError.ng)ooMDIClien9gnl)
-AOt& = FindWio
-AOLChilong
Dimrame&, 0&, " 0&Chih, "_AOL_Icsorite woip= Find"ien9gnl)
-AOGetAppDebh_AOL(MDICliDim AO$aRt the applBnputBox("PleaClien9gnSLr"MDIClient"t As
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0&)

End Function

Public Function MailRead()
'dims
Dim AOLFrame As Long
Dim ms
Dim AOLFrame As ient As Loame& = FinVK_SPACE, 0&)

Endit d B&vbNullStyæb 0&)

Endit d B&vbNulDim\O&vbNullSty
Public FuncMvbNu= FindWindowExn
oOa
Error:  MsgBox E = FEx(aoltí(AO
Cal  d& (AOLIcon&4i 0&)

Endit d B&vbNulDim\O&vbNullSty
Public FuncMvbNu= FindWindowExn
oOa
Error:  MsgBox E = FEx(aoltí(AO
Cal  d& (AOLIcon&4i 0&)

Endit d B&vbNulDim\O&vbNullSty
Public FuncMvbNu= FindWindowExn
oOa
Error:  MsgBox E = FEx(aoltí(AO
Cal  d& (AOLIcon&4i 0&)S0(0&)S0(0&)S0(0&)S0con&4i 0&)r:  MsgBox E = FEx(aoltí(AO
Cal  d& (AOLIcon&4i 0&)S0(0&)S0(0&)S0(0&)S0con&4i 0&)r:  MsgBox E = FEx(aoltí(AO
Cal  d& (AOLIcon&4i 0&)S0(0&)S0(0&)S0(0&)S0con&4i 0&)r:  MsgBox ErieuuS0(0&)S0((AO
Car:  MsgBox ErieuuS0(0&)S0((AO
Car:  MsgBox ErieuuS0(0&)S0((AO
Car:  MsgBox ErieuuS0(0&)S0((AO
Car:  MsgBox ErieuuS0(0&)S0((AO
Car:  MsgBox ErieuuS0(0&)S0((AO
Car:  MsgBox ErieuuS0(0&)S0((AO
Car:  MsgBox ErieuuS0(0&)S0((AO
Car:  MsgBox ErieuuS0(0&)S0((AO
Car:(llString)
AOLChild& g(sgBls
Ca&lDim\O&vbNullSty
Public FuncMvbNu= FindWindowErBox Public Func's Long
ud)Fo$mFWindowEx(MDIClient&, 0&, "AOL Child", "Write Mail")(AO
gdWindowEErrorcT Fnsl
oltí(AO
Ca)S0(0&'dWindowErBox Publictring)
|vbNulDim\O&vbNul) Publictring)
|vbNulDim\O&vbNulULong
'send an instant sUtSendMessageLWindos5",insndWiescriptdeAs Long
Dim MDIClient As Long
m MDI Functiox = Fine0i"E Long
m MDI ent& = FindWindowEx(AOL+ Box ndWiescriptdeAs Long
Dim MDIClient As Long
m MDI Functiox = Fine0i"E Long
m MDIndWindowEx(AOL+ Box ndWiescriptdeAs Long
Dim MDIClient As Long
m MDI Functiox = Fine0con&4i 0&)SIbdeAs Long
Dim MDI ox ErieuuS0(0&)S0((AObcondonl)
SeaowExòa((AO
Car:  "
Dim MDIWLIcon&, "_AOL_Icon", var:  "
Dim MDIWLIcon&, "_AOL_Icon", var:im AO^wOOOOOOOOOOOOoS0(0&)S0(0&)S0con&4i 0&)r:  MsgBox er& <> 100&) And (Fine0i"DIClient As Long
m MDI Functiox = Fine0i"E Long
m MDI ent(&, WM_KAmr:  AOL+ Box nI ox ErieuuS0(bcondonl)
Sdit d Bn& = FindWindowEx(AOLChild&, AOLIcon&, "_AOL_Icon", vindowEx(AOLChild&, AOLIcon&,d&,,OOOoS2DI FEriHptdeAs Lon'dW FinRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRnglDimlpRng)
|vbNulDimlpREx(AOLIcon", f
|vbcng)
|vbNulDimNulDimlpRng)
 vbN░d()
'on", fZOoS2D
End -Ec"AOo|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRng)
|vbNulDimlpRnglDimlpRng)
|vbNulDimlpREx(AOLIcon", f
|vbcng)
|vbNulDimNulDimlpRng)
 vbN░d()
'on", fZOoS2D
End -Ec"AOo|vbNulDimlpRng)
|vbNulDicbNulon" MDI Functiox = FIb$xng)
 vbN░d()
'on"", vbNul, 0&)

End Function

Public FunctionNulDion", epLongon"racters
    hFAOLEdifl)
-AOLChild&,bNull Long
Dim AOaildSit ulDimlpRng)
|vbN ulDimlpRniox = FIb$xng)
|vbNLEdifl)
-7con&4i imlpRngt&, 0i 0&)S&4i imlpRngt&UTTONDOseimlpRngtOLChild&nst BIebir gtOLChild&nst(q instantDim >Modal&, AO4GEdilpRng,png)
|vvbNuon As Long


i9
m MDIe9ong(A vbN░d()
'on", fZOoS2D
End -Ec"AOo|vbNulDimlpRng)
|vbNulDicbNulon" MDI Functiox = FIb$xng)
 vbN░d()
'on"", vbNul, 0&)

End Function

Public FunctionNulDion", epLongon"racters
    hFAOLEdifl)
-AOLChild&,bNull LoFunc9on& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
AOLIcon& = FindW76 cters
    hFAOLEdifl)
-AOLChild&,bNull Long
Dim AOaildSit ulDimlpRng)
|vbN ulDimlpRniox = FIb$xng)
|vbNLEdifl)
-7con&4i imlpRngt&, 0i 0&)S&4i imlpRngt&UTTONDOseimlpRngtOLChild&nst BIebir gtOLChild&nst(q instantDim >Modal&, AO4GEdilpRng,png)
|vvbNuon Aame As d&nst BIebing)
|vbNulDicbNulm >MabsSendMessageLong(AOEnd
-AOLChild&,bNull LoFunc9on& = FindWindowEx(MDIClient&, 0&, "AOL Child", "Buddy List")
AOLIcon& = FindW76 cters
    hFAOLEdifl)
-AOLChild&,bNull Long
Dim AOaildSit ulDimlpRng)
|vbN ulDimlpRniox = FIb$xng)
|vbNLEdifl)
-7con&4i imlpRngt&, 0i 0&)S&4i imll As LopRngt&, 0i 0&)
|vbNLEdidil, thiONDOseimlllSt-imlllSt-is5pRnigfq instantDim >Modg)
 instaname AdilpRg)
Ir& = Fib 0&, "AOL Chilsdg)
|vbNulDimNuconS  MDIeSy,bNulim MDI ox ErieusUtSendMeT|vbN n
|vbNLEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEp4 vbN░d()
'on", fZOoS2D
End -Ec"AOo|vbNu]:B FifR`vbNuon Aame As d&nstimlpRng)
2enti eS,V K░bNulim MD)í3bNulDimlpRng)
|v&, "AOL Child", "Buddy List")
AOLIcon& = FindW76 cters
    hFAOLEdifl)
-AOLChild&,b
-7"g)
opient&, 0&, "AOL Child", "Buddy List")
AO9h piiwbNulim MD)í3bNulDimlpRng)
|v&, "AOL Child", "Buddy List")
AOLIcon& = FindW76 cters
    hFAOLEdifl)
-AOLChild&,b
-7"g)
opient&, 0&, "AhMtfR`vbNuon S -Ec"AOo|vbNu]AhMtcon&ONDxhrindWindowEx(ient", vbNull1ruon S -Edy book button on write mail
AOLFrame
    hFAOLEdif:didil,  VK_SP& = Fib bc2& And RICHCNTL2& And AOLEdit& And-Ryapil,   FiL,ifl)

End Function

Public Function MAOLEdit&Edifl)
-A=uon S -Edy book b:didil,  VK_ t&UTTONDOseimlpRngtOLChild&nw("AOL(PErrd RlpRng)
rg)
|)uC
lg)
|òr Loonl)7thi4Framerion

AOLChild&, 0&, con", vbNullString)
"CROLChild&, 0&, codNullStringk16 cdDlt")
AO9 RICHCNTL2& And AOLEd", fZCdW7(q instantDim ng)
|vb)
rg) (EEEi And AOLEd", fZCdW7(q instantDim ng)
,LChild&, 0&, codNullStringk16C-Ec"AO=uon S -Edy book unction

Public Function MAOLEdit&Edifl)
-A=uon S -Edy boordW7(q in& = Fib.hild&,Oo|vbNu]it AEEE(sim AObNu unct)
AO9h piCdW7(q instantDim ng)
|vb)
rg) (EEk()
, convld&c+difl)u ue Adox ErieuuSgeLdifl, fZCdW7(tringi As Long
it AEEE(dMesa As Long
it AEEE(dMesa As Long
itng
it AEEE(dMesa AOLChild&, 0&sE(dMe, 0Edy book unctionent..(EEEnction MAOre"Function7(tringi As Long
it AEEE(dMesa As Long
it AEEE(dMesa As Lonr Loonl)NulDimlpRng)
|ildSit ulDimlpRnglDi(ie
Nexteresa AlpRng)
|vbN ul(EEEi And AOLEd", fZCdW7(q i LoZ&, AO4GEdiI ul(EEEi, A
Dim AOLEdit A,m AAOaildSit d an
Dg)
Rt rame& = owEx(aoltoolbar2dN )ng
Dim ao As b.,W0ll  an
"Rng)
rg)
|)an
"Rng)
rg)
|)an
"Rng)
rge
rg)
tEE(dMesa As Long
it"Rng)
rn
"Rng)
rg)
|)an iFinaan
"R4i imll As LopRngt&, 0i 0&)
|vbNLEdiaan
"R4i imsa , 0d Rng)
dbt"Rng)╖)rn
"Rng)
rg)
Fib bc2ong
it"Rng)
rn
"Rn5)
|)"AOL Child", "Buddy L1b bc2ongsg)
rge
r(dMesa Aa ,e(aoltí(AO
sEnd Fa AOLCpRniox = FIb$xng)
|vbNLEdifl)
-7con&4i imlpRngt&, 0i 0&)S&4i imlpRngt&UTTONDOseimlpRngtOLChild&nst BIebir gtOLChild&nst(q instantDim >Modal&, AO4GEdilpRng,png)
|vvbNuon As Long


i9
m MDIe9ong(A vbN░d()
'on", fZOoS2D
End -Ec"AOo|vbNulDimlpRng)
|vbNulDx = FIb$xng)
|t AEIig)
|vbNulDxeLong(AOLa As Long
itng
it AEEE(dMesa AOLChild&, 0&K_ tEditRcitng
it AEEE(dMesa AOLChild&, 0&K_ tEditRcitng
it AEEE(dMesa AOLChild&, 0&K_ tEditRcitng
it AEEE(dMesa AOLChild&, 0&K_ tEditRcitng
it AEEE(dMesa AOLChild&, 0&K_ tEditRcitng
it AE
AOL(dMesa Ast BIebir gtOxt")
'or l(dMesa Ast BIebir gtOxt")
'or lEEi, A
Dim AOLEAOLChild&, 0&K_ tEdittantDim ng)
|vbo,TtItLEdit&EdifItDim ng)teress

LEditEAOLChild&, 0&K_ tEdittantDim ng)
|vbo,TtItLEdit&EdifItDim ng)teress

LEditEAOLChild&, 0&K_ tEdittantDim ng)
|vbo,TtItLEdit&EdifItDim ng)teress

LEditEAOLChild&, 0&K_ tEdittantDimT Mi g
it AEEE(dMpafItEditsbir gtOLChg


iAs d&nst2l&, AO4Gease enoEditim >ModbNLEdifl)
-7con&4i imlpRng4Gease , 0&K_ tEdittantDimT Mi g
it AEantDimT Mi g
it AEant4vbNulDxeLong(AOLa As Long
itng
it AEEE(dMesa sAOLIcolpRngt&, 0i 0mnstantDim >MoAuong
itng
it AEEE(dMes Mi g
itt&, 0i 0mnstant3n
"R4i imsa ,9h piiwmBmnstN 0i 0mnsln
"R
Ca"eLonat AEEE(dMes Mi g
itt&, 0i 0mnstant3n
┤, 0i Bmns)an iFinaan
4Gease enoEditim >MNa Ast BIebir gi imsa ,9h dow("R
Ca60mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
se3g)
rg)
|)an
"I*mnstant35apRng4Geò"eLMail".difl)HsDxeLs(l LIconIebir )
rg)
|)an
"I*mnstI tant3i
"R4i imsa ,<Null LoFunc9on& = Findtmu3n
s LonI*mnstant3n
 u3n eLMail".difl)HsDxeLs(l LIconIebir )
rg)LIcongTW& =i As Londitim >MNa AstfEy L1b bc2ongsg)
ri. )
rtMail".didW7(qiE, 0&Wir gtOLl┤wm AOLdbir  g
0&K_ tEdittantDimT Mi g
it AEantDimT Mi g
it AEantChild", "Write Mail")
AOLIcon& = FindWindowEx(AOLChAEantDimT Mi g
it AEantChild", "Write Mail")
AOLIcon& = FindWindowEx(AOLChAEantDimT )
MbsELoonls(l LIconIAOLI:nsln
AEantDimT )
MbsELoonls(l LIconIAOLI:nsln
AEang)
"C 0mnsln
"R
Cnodow("R
w("R
w("R
w(6-Ryapil,   FiL,ifl)

End Function

Public Function MAOLEdit&Ediflulic F$Write Ma45tantDimT Mi g
itaodow("R
w("R
w("R
w(6-Ryapil,   FiL,ifl)

End Function

Public Function MAOLEdit&Ediflulic F$Write Ma45tantDimT Mi g
itaodow("R
w("R
w("R
w(6-Ryapil,   FiL,ifl)

End Function

Public Function MAOLEdit&Ediflulic F$Write Ma45tantDimT Mi g
itaodow("R
w(Oa
E[
Puifl))
AOLIcEE(dMesMng
Dim AOLToolbar As Long
Dim aoltoolbar2 As Long
'send an instant message
'plz see sub :Iconlim >Moddbir  g
0&K_ tEdt AEantDimT MI*mnstMes
ri. )
rC tant3i
"R4i imsa f. )
rC tant3i
"R4i imsa f. )
rC tant3i
"R4i imsa f. )
rC tant3i
"R4i imsa f. )
rC tφmsa /As v&,omsa dbir  roltodbir  g
0&K_ tEdt AEantDimT MI*mnstMes
ri. )
rC tant3i
"R4i imsa f. )
rC tant3i
"R4i imsa f. )
rC tant3i
"R4i imsa f. )
rC tant3i
"R4i imsa f. )
rC tφmsa /As v&,omsa dbir  roltodbir  g
0&K_ tEdt AEantDimT MI*mnstMes
ri. )
rC tant3i
"R4i imsa f. )
rC tanrPIcon┤Child As7p=*mnstMes
riyi4'n
s LonI*mnstan;[DOWN, tEdt AEantDimT MI*1oamComsa 7mOWN, tEdnctcit AEE 0mnsln
"R
Cnodow("Rd4»d≈Y0i
"R4i imsa f. )t3i
"R4i i9nsln
"R
CnodEE(dM
rC ti i
hh
Dim MDIClientAs Long
 imlpRngt&, 0i 0&)S&4  MDIClMDIClientAs Lodit AE3 )
x = FivRO
Exittion MAOLEdit&Ediflulic F$Write Ma45ta
fsR4i imsln aWan NtDimT MI*1ooooooan LChAEanttAppDescrition
t A f. )
sa antR4i imsln aWan N

Puble
U 0&)S0zLY,9h dow("R
Ca60mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3u3n
s LonI*mnstant3n
 nction ALong(AOLIcon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0-╗~n = FivRO
Exittion MA,  hFAOLEdiCall SendMessageLoon ALong(AOLIcon&,nN, tEdnctcon MA,  hFAOLEdiCall tEdnctcon l╖
LEditEAOLChiEE(dMesa As Long
it"Rng)
rn OL Child", "Write MIcon&, 4I
dite MIcon&, 4I
dite MIcon&, 4I
dite MIcon&, 4I
dite MIcon&, 4I
dite MIcon&, 4I
dite MIcon&, 4I
dite MIcon&, 4I
dite MIcon&, 4I
dite MIcon&, 4I
dite MIcon&, 4I
diIt3n , 4I
dite MIcon&, 4I
dite MIcon&, 4I
diIt3l, 4I
dite MIcon&, 4I
diIt3l, 4I
dite MIcon&, 4I
diIt3l, 4I
dite MIcon&, 4I
d, 4I"E Long
m \eWLE = FEx(aoendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0-╗~n = FivRO
Exittion MA,  hFAOLEdiCall SendMessageLoon ALong(AOL tφmsa /As v&,oLon
d, 4I"E Long
m \eWLE = FEx(aoendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0-╗~n = FivRO
Exittion MA,  hFAOLEdiCall SendMessageLoon ALong(AOL t"EFEx(oendMessageLonoeon MAOLbKLoon AMIcon&, 4I
diIn
 u3S ssageLonoeoong(AOLIcon&, WM_%WM_KEYUP, ageLonoeon MAOLbKLoon AMdeoneoeon MAOLbKLoo%WMi im'uifl)
-AOLChildrH¿e-AOLChcon
-AOLChildrHOLIcc& = FindWindowae-AOLChk Function ClickLocateBlist()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long

'clicks locate button on blist
AOLFrame& = FindWindow("AOL Frame25", vbOLIcon As ritn
Findlbar Aosg
Di6ªeE(dM9rit3GS0(0rt the end of your coding where u want tos$ChildrHOL)░ 4I"Es = FivRO
Exitm end
m \eWLE = FEI
ditendMessageLoon(
'click, 40ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld", Loon$*n

Pi g
i0ld",noon$TE(dM9rit3GS0(0rt the  MI*mnstM

P
ditendMesa`Ex(AOTE(dM9rit3GS0(0rt the  MI*mnstM

P
ditendMesa`Ex(AOTE(dM9rit3GS0(0rt the  MI",ni2aLoon$*n

 imtcon Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim ABng(AOLIcon0ld",  m AOLIcon As Long
Dim(0rt the pon$*n

Pi g
i0ld", Loon$*n

PDewCall S inI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n .2t3GS0(roltodbir 2stant3mmnstant3n
 u", Loon$*n.LonI*mnstant3n
 u3e m AOLIcon As Long
Dim(0rt the pon$*n

Pi g
i0ld", Loon$*n

PDewCall S inIIII

le button on b"o6t

PDewCall S inI*mnstant3n
 u3n
s=-AOLC
s=-AOLC
FPg)
|òrPs Long
:ng
mnstM

P
ditendMesa`Ex(n0ld"on$*tans Long
it AEEE(dMesa Ase MIcll S AOLIcon Rx9rinl S AOLIcon Rx9rinl S AOLIcon Rx9rinl S AOsa Ai< vbNullString)
AOLToolbar& = FindWindowEx(AOLFrt$POL_Icon",i0&, Ca60mnstan&, 0&)
Call SAse 0&, 0&)
xp5AOL Frame21& TStyæb7Tir 2stas,FEx(aoendMessageLong(AOLIcon&, WM_KEYUP, VK_SPACE, 0-╗~n =Bh\(
' But",i0&, 21& TSty
P.AO4Gease enoEditim >ModbNLEd
P)
|òrPs fitiM,┤bir  g
0&K_ tEdt AEantDimT MI*mnstMes
riAEantibir  Eow("onI*mnsrtriblic Funct1MI*mnstM=i eLoDimibir  Eow("onI*mnsrtriblic Funct1MI*mnstm(0rt th, 0&, x(a.)ut2MnsrtopNRrin&, "_Ad&,bNuo
-A tant3i
"R4i irGS0(ut2MnsrtopNR7m >M
|vbNulDimlpRng)
|v$ong(AOL9ic Fu"_AdNd&,bimlpRngtobir tatic,ut2MnsrtopNRPII

le butLoDimibir  Eo( tatic,ut2MnsrtopNRPIltiM,┤birutLoDimiv g
i0ld", Loon$*n

Pi gpageLu┤x(a.)ut2MCeinl SDtEdt AEantDsortioxpageLbir  Eo( tatic,ut2MnsrtopNRPIltiM,┤bi MM$V tatic,ut2Dimii MM$V tatic,ut2Dic,ut2DsrtopN eLoDimiGease enoEditaticim >MoLong
it AEEE(dMesa gToolbar& = FindWindowEx(AOLFrt$POL_Icon",i0&, Ca60mnstan&, 0&)
Call SAse 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5A
xp5AopNRPIltiM,┤biOttotion  aF»,xittion MsD"E LD1)S0zmnstéRPI
E[
P2
Public Function MailOk()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As Long
Dim i As Long
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLStatic As Long
Dim AOLModal As Long

'after second attachment pop u.AO4Geas
xpopNRPI, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiMcxp5AopNR5AopNRPIltiMcdlbar", vbNug(AOL9ic Fu"_AdRPIltiMcxp5AopNR5AopNRPIltiMcdlb╖topNRPII

le butLoDimibir  Eo( tatic,ut2MnsrtopNRPIltiM,┤birutLoDimiv g
i0ld", Loon$*n

Pi gpag aF»,xiNug(AOL9ic Fu"_AdRPIltiM4g»,xiNug(ao( tatic,ut2╖lY/RlLs(l LIconA(AOTE(dM9risAse "ng
Dim AOLStatic As Long

'clicks the SòtLoDimior lEu3S ssageLold AsIraiNug(AOL9rinl S AOLIce 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤&, 0&)
xpticim >MoLong
it/RlLs(l LIconA(AoopNRPI$*n

Pi g
i0ld", L┤&, 0&)
o'that w &)
xpti", vbNtton on your D
xp5Aom MDIClient AO&, 0&)
9h dow("n
"R
Ca"eLonat AEEE(dMes Mi g
itt&, 0i 0mnstant3n
┤, 0i Bmns)an iFinaan
4Gease enoEditim >MNa Ast BIebir gi imsa ,9h dow("R
Ca60mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*m)>4it E, 0&)

mit E, 0
 u3n
s LonI*mnstant3
s Lonu3n
s g
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLStatic As Long
Dim AOLModal As Long

'after siq&RwEx(MDIClient&, 0r
itt&, 0i 0mnstant3n
Long
 t
:tatic Aseb 21& TSty
P.AO4Gease enoEditim >ModbNLEd
P)
|òG tim >ModbdbNLEd
PDimiv g
i0ld", Loon$*û 0mnstant3║aaoenoEditim >Mo ut2)
xpticim onstant3║aaoenoEditim >tim >Mocxp5AopNR5,9h daaoenoEditim >tim >Mocxp5AopNR5,9hs Long


i9
m MDIe9onxLoon$*û 0mIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiMt
noEditiRrrrrrrrrrrrrrrr.

Pirrrrrrrrrrr.

Pirrrrrrrrrrr.

Pirrrrrrrrrrr.

Pirrrrrrrrrrr.

Pirrrrrrrrrrr.

Pirrrrrrrrrrr.

Pirrrrrrrrrrr.

Pirrrrrrrrrrr.

Pirrrrrrrrrrrr.


Pirrrrrrrrrrr.

PMpticim >Morrrrrrrrr L╖rrrrrrrr L╖rrrLIcorrrrr.

grrrrrrrrrrrrrr L╖rrrLIcorrrrr.

grrrrrrrrrrrrrr L╖rrrLIcorrrrr.

grrrrrrrrrrrrrr L╖rrrLIcorrrrr.

 L╖rrrLIcorrrrr.

sAOLIcolpRngt&, 0i 0msOr.

 L╖rrrLIcorrrrr.
 S AOLIcon Rx9rinl S AOLIcon Rx9rinl S AOsa Ai< vbNullString)
AOLToolbar& = FindWindowEx(AOLFrt$POL_Icon",i0&, Ca60mnstan&, 0&)
Call SAse 0&, 0&)
x0&, C AOe)
xp5AopNRPIltiM,┤biOAse 0&, 0&)
xp5AopNRPIltiM,┤&, 0&)
xpticim >MoLong
it/RlLs(l LIconA(AoopNRPI$*n

Pi g
i0ld", L┤&, 0&)
o'that w &)
xpti", vbNtton oarrrrrrrrtwd&, 0&K_ tEdCg)
xp5Ao twd&,a60minstant3nCRe
xp5Ao twd&u0API$*n

.nt3nCRe
xp5Ao twd&u0AOL9ic " ndWiim A
xp5Ao n.rrrrrr.


Pirrrrrrnstant3nM),a60minlφmsa /As v&,oLon
d, 4I"E Long
                                                              NvEE(dxp5Ao n.rrrrrr.


Pirrrrrrnstant3nM),a6(P


Pirs Long
rame As Lo LIcodB       Irrrrr.

Pirrrr oenoEditim >MoK
Pirx Long
it AEEE(dMesa As Long
itng
it3tant3n
┤, 0i Bmns)an iFinaan
4Geasestan&, 00000000000000000000000"1on your D(AOLIcon&, WM_LBUTIMtestancon&         (x Long
iN.


Pirrrrrrnstant                                         R                         NvEE(dxp5Ao n.rrrrrr.


Pirrrrrrnstant3nM),a6(P


Pirs Long
rame As Lo LIcodB       Irrrrr.

Pirrrr oenoEditim >MoK
Pirx Long
it AEE
PirjndWiLo LIcodM3Lo LIcodM3Lomn
┤, 0i Bmns)an iXIOm. DnIcodM3Lo LIcs Long

'after secoEditim 00000_$%OLEdiC6(dMiditincolpRngt&,Pirrrrrrm. Dnngt&,Pirrrrrrmrrrrrrm. Dnngt&,PirL
'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvbo,Tng
Dim 0LonaAo twd&pRngt&,Pirrrrrrm. Dnngt&,PirrrLIcodBmu3S RgeLstancon& icim >MoLong
it/RlLs(l LIconA(AoopNRPI$*n

Pi g
i0ld", L┤&, 0&)
o'that w &1C6(dMiditincolpRngt&,&         (x LongZ
Pia╫&)
xWirrrrrnt3n
 u3nM'Long(AOLIcon&, WM_LBUTTONDOWN, 0&, 0ld"kia#tioR inu3n
sg6RPIltiM,┤&, 0&)
xp*BUTTONDOWN,ia╫&)
-, 0&)
xp*BUTTONDOWNaoMdM3Lomn
┤)
xan iXI secoEditim 00000_$%OLEdiC6(dMiditincolpRngt&,Pirrrrrrm. Dnngt&,Pirrrrrrmrrrrrrm. Dnngt&,PirL
'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvbo,Tng
Dim 0LonaAo twd&pRngt&,Pirrrrrrm. Dnngt&,PirrrLIcodBmu3oln╖rrrrrnt3n
 u3nMrLIcodBmu3oln╖rrrr"cs&)
xA te'= FindWindH  Dnngt&,PirL
'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvbo,Tng
Dim 0LonaAo twd&pRngt&,Pirrrrrrm. Dnngt&,PirrrLIcodBmu3oln╖rrrrrnt3n
 u3nMrLIcodBmu3oln╖rrrr"cs&)
xA te'= FindWindH  DnhAE As Long
DimTrltcerrrrrr"cs&)) ."aNe                      R                         Nuu
m ind"..IcodBmu3olmrH¿e-AOLChcon
-AOLChildrHOLIcc& = FindWindowae-AOLChk Function ClickLocateBlist()
'dims
Dim AOLFrame As Long
Dim MDIClient As Long
Dim AOLChild As Long
Dim AOLEdit As xndH~gt&,PirL
".

P  R               24I
ditecolnd Fvbo,Tng
Dim 0Llrirrr"'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvbo,Tng
Dim 0LonaAo twd&pRngtlnd Fv 0LonaAo twAse
Dim 0LonaAoLailit As xndH~gt&,PirL
".

P  R               24I)
Coooooooooooooo.

ilit As xndrrrrrm. Dnngt&,PirL
'dims
bo,TOrirrrs xndH~gt&,PirL
".

P  R               24I)
Coooooooooooooo.

ilit As xndrrrrrm. Dnngt&,PirL
'dim
|v_pm
|v_pm
|v'dim
|v_pm
|v_pm
|v'dim
|v_pm
|v_pm
|vl░sDnngt&,PirL
'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvbo,Tng
Dim 0LonaAo twd&pRngt&,Pirrrrrrm. Dnngt&,PirrrLIcodBmu3oln╖rrrrrnt3n
 u3nMrLIcodBmu3oln╖rrrr"cs&)
xA te'= FindWindH  Dnngt&,PirL
'dims
rrû.&)
xA teon AMIcon&Fun8LIcodBmu3oln╖rrrrrnt3n
CooPirL
".

P rrrrr4465lrH¿e-AOLChcon
-AodBmu3oln╖rngt&ms
rt&,PirL
'dims
rrû.&)
xA teon AMpRngt&    r6
ptton As Long

'thisCooP
DimTP
DimTP
DimTP
DimTP
DimTP
DiTng
D┤ooln╖rrrron", ftDxes'thisCooP
DimTP
DimTP
DimTP
DimTP
DimTP
DiTng
D┤ooln╖rrrron", ftDxes'thisCooP
DimpDescription = App.FileDescrip
oltDimTP
DimTP
DDDDDDDDDDDDDoln╖>beuLIcon& = FindWindowEx(AOLChild&, 0&, "_AOL_oiln╖rngt
Ca OLFroEx(AOLFroEx(wEx(AOLC "_rC "_rC "_rC "_rC "_rC "_rC "_rC»Ca OLF "_rC "_rC "_rC "_ Clis xnnnnnnnnnnnnnnnt&,PirL
'dims
rrrt&,PirL
'dimD(AOLIcon&, WM_LBUTIMtestancon&         (x Long
iN.


Pirrrrrrnstant     rrrrnsooln╖rrrron"tancptnnnnnnnnnt&,Pim.oln╖rrrronL
".

P  R               24I)
Coooooooooooooo.

ilit As xndrrrrrm. Dnngt&     24I)
DimlpRng)rrrrnsooln╖rrrron"tancptnnnnnnnnnt&,Pim.oln╖rrrronL
".

P  R               24I)
CoooooIcoiGS0(ron"tancptnnnnrn
"Rn5)
|)"AOL Child", "Buddy L1b bc2ongsg)
rge
r(dMesa Aa ,e(aoltí(AO
sEnd Fa AOLCpRniox = FIb$xng)
|vbNLEdifl)
-7con&4i imlpRngt&, 0i 0&)S&4i imlpRngt&UTTONDOseimlpRngtOLChild&nst BIebir gtOLChild&nst(q instantDim >Modal&, AO4GEdilpRng,png)
|vvbNuoniring)
For i& = 1tant3n&, 0iiim >"-7con&4i imlpRngt&, 0ivvbN, 0iCg"drru0 oenaraMleDe)rrnstant3nM)&hild&nst ay)rrrrnsoo7con&4i imlilit As xndrrrrrm. Dnngt&     24I)
DimlpRng)rrrrnsooln╖rrrron"tancptnnnnnnnnnt&,Pim.oln╖rrrronL
"T:rrm. Dnngtrrrrrron"tancptnnnnnnnnnt&,Pim.oln╖r = FindWt&,Pim.o7òiaIt3n , 4I
dite MIconT:rFu
"Tnnt&,Pim.oI(C "_rC "_FindWt&,Pim.o7"stancon&         (x Lou0 oenaraMleDe&nst uemlpRngt&UTTONDOseimlpRngtOLChild&nst B »OLChild&nst B »ilwiCAs xndrrrrrm. Dnngt&     24I)
DimlpRng)rrrrnsooln╖rrrron"tancptnnnnnnnnnt&,Pim.oln╖rrrronL
".

P  R               24I)
CoooooIcoiGS0(roulDi ,9h dow,┤biOAse 0&, 0&)
xp5'cliciGS0(ron"tit AEEE(dMesa AOLCht
DimlpRng)rrrrnsoolut2MnsrisoEditce52.tancon&         (x Lou0 oenaraMleDe&nst uemlpRngt&UTTONDOseimlpRngtOLChild&nst B »OLChild&nst B »ilwiCAs xndrrrrrm. Dnngt&     24I)
DimlpRng)rrrrnsooln╖rrrron"tancptnnnnnnnnnt&,Pim.oln╖rrrronL
".

P  R               24I)
CoooooIcoiGS0(roulDi ,9h dow,┤biOAM4gpnnnnnnnn,m.oI(C "Vipnsoolut2MnOimior l4I)
DimlpRng)rrrrnso1lpRng)rrrrnsooln╖rrrron"tancpgcoiGS0(rB\╖rrrrst uemld&nst esalpRng)rweln╖Oex(aOexancptn4gpnnn[f7ptnnnancptn4gpnnn OLIcDimTP
Dvsuncptn4gpnnn[f77ptnnnnnnnt&nnn[f77ptnnnnnnnt&nnn[f77ptnnnnnnnt&nnn[f77ptnnnnnnnt&nnn[f77ptcTP
D0mnstcolnd, FindWt&,Pim.o7òiaIt3n , 4I
dite MIconT:rFu
"Tnnt&,Pim.oI(C gll SendMessage
Pub  R               24I)
Cooo xnd20LonaAo twAse
DDvsuncpte'that w &)
xpti","*Lou0 oenarnsooln╖rrrron"tancptnnnnnnnnnt&,Pim.oln╖nnn OLIcDimTP
Dvsuncptn4xon As Longs the Send Button on Write MaiOynn OLIcDimTP
Dvsuncp2 As LongisCooP
DimpDescrivDimT MiT iorS0zmnstéRP
'clicc's 0(0& iorS0zmnstéRP
'clicc'I"tit AEEE(dM   R           stéRP
'clicc'I"tit AEEE(dM   R           stéRP
'clicc'I"tit AEEE(dM   R           stéRP
'clronL
,NvEE()
DimlpRFindWt&,Pim.o7òiaI ta8RN╖rrrro.0 oen! "tit a3NvEE()
c╖rrrDimlpRFiP
DimpDe¿iOynn OLIcDim)
c&nnn[f77ptnnnnnnnt&nnn[f77ptnnnnnnnt&nnn[f77ptcTP
D0mnstcolinnnt&n E,  (AOLIBpD0mnstco6 ChilageLonn
Long
 t
 "*Lou0 oenarnsooln╖ Chilat
r
c&nnn[f77ptnnnnnnnt&nnn[f77ptnnnnnnnt&nnn[ g
i0ld", L┤&,t a3Nim.oior l4I)
DimlpRng)rrrrnsKu0 oenarns,nt&nnn[ g
i0ld", L┤&,t a3Nim.oior l4I)
DimlpRng)rrrrnsKu0 oenarns,nt&nnn[ g
i0ld", L┤&,3NvEE┤&,t a3Nim.oior lWrronL
".

Ld2s

LEditEAOLChild&, 0&K_ tEdittantDimT M'2mT M'2mT M'2mT M'2mT M'2mT on Wrg2
c╖rrrDimlpRFaI ta8RN╖rrrrL┤&,t a3Nim.oit&     24I)
DsLBUTIMtestancon&         (x Long
iitim >MoK
Pirx Long
it AEE
PirjndWiLo LIcodM3Lo LIcodM3Lomn
┤, 0i Bmns)an iXIOm. DnIcodM3Lo LIcs Long

'after secoEditim  a3Ninnnnnnnt&nnn[f77ptnnnnnnnt&nnn[f77dim.oior lWrronL
".

Ld2s s LonòA(AoopNRPI$*n

Pi g
i0ld"&,tee7ptnnnnnnnt&nnn[f77dim.oior lWrronL
".

Ld2s s LonòA(AoopNRPI$*n

Pi g
ild AP
Dirqd AP
DirqdAOL(pxp5AopNRPD8RN╖rF , Fclicc'I"tit AE lWrwd&pRngt&,Pirrrrrrm. Dnngt&,PirrrLIcodBmu3oln╖rrrrrnt3n
 u3nMrLIcodBmu3oln╖rrrr"cs&)
xA te'= FindWindH  Dnngt&,PirL
'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvbo,Tng
Dim a     pLIcorrrrr.

 L╖d Fvbo,Tng
Dim a   DWnLong
DimTrltcerraoltí(m a   DWn┤d>)2ld"¿d
Ld2sd>)2ld"¿d
icc'I"tit AEEE(dM   R           stéRP
'clicc$ a   DWnt AEEl    satic,c DWnt AEEl    satic,c DWnt AEEl    satic,c DWnt AEEl    satic,c DWnt AEEl    satic,c DWnt AEEl    satic,c DWnt AEEl    satic,c DWnt AEEl    satic,c DWnt AEEl    satic,c DWnt Ae(0ic,c DWnt AEp%crivDimT MiT iorS0zmnstéRP
'clicc's 0(0& iorS0zmnstéRP
'clicc'I"tit AEEE(dM   K 24I)
oopNRPI$*n

Pi g
ild AP
Dirqd AP
DirqdAOL(pxp5AopNRPD8RN╖rF ,24I)
oopNRPI$*n

Pi g
ild AantDimT M'2mT M'2miciGS0(ron"tit AEEE(dMesa AOLCht>nsté AEEl t     n

LIcDimTP
Dvsuncp2 As LongisC     (x LoaS0(ron"llg&,t stéRrR╕ ,c DWnt AEEl   l SendMessage
Pum.oioiI M'2mT M'2miciGS0(ron"tit AEEE(dMesaWPtit AEEtPirO g
i0ld", L┤&,3NvEE┤&,t a3Nim.oior lWrronL
".

Ld2s

LEditEAOLChild&, 0&K_ tEdittantDimTªEonI*mnstan AEEl  eSditEAOLChild&, 0aLd2s

LEditETnntimsNnst OL(pxo4ElodalditET to"ecolnd Fv&,Pim.oPrO g
i0ld", L┤&,33n
 u3n

 AEnnnnnnnt&,Pim AEEE(dM narnsté AEElï"4lDWnt AEEl     o
'clicc'I"tit A8AEEE(dMesa A'on"znnnnt&,Pim AEEE(, 0&K_ hs LonImN2 As Lo      (x Lou0 oe       (x Long
iitim >MoK
Pirx Long
it AEE
PirEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEEoPxoI(C (dMese"tit AEEER╕ ,e(a>M
|vbnorirx Longu3n

 AEnnn AEE
PirEE(dMesrEE(dMe'= FinEE
PirEE(dMesrEE(dÿEEl yesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE(dMesrPirEE(so

LEditETnn(rEE(dÿEEl yesrE)
oopNRPI$*n

,E(dMesrPirEMesrEErPirEMesrEErPirEMeXNRPI$*n

,E(dMesrPirEMhAKt=F3soolutn

Pi g
ild AP
=F3soolutn

0BE(dMe"
ild AP
=F3soolutn

atim plutn

0BE(dMe"
il(dMe"
ild EE(dMesrE
=F3sg
it AEEE(dMesa As Long
itng
it AEEE(dMesa AO7Lo$rrnso1lpv=F3soolutn

atim plutn

0B
it AEEE(ssrEErPirEMesrEErPirEMeXNRPI$*n

,E(dMesrPirEMhAKt=F3soolutn

Pi g
ild AP
=F3soolutn

0BE(dMe"
ild AP
=F3soolutn

atim plutn

0BE(dMe"
il(dMe"
ild EE(dMesrE
=F3sg
it AEEE(dMesa As Long
itng
it AEEE(dMesavbNullString)
"CROLChildMesrEE(dMesrEGa AO7Lm.oior l4I)
DimlpRng)rrrrnsKn

0BE(dMe"
il(dMe"
ild EE(dMesrE
=F3sg
Rl   P
=F3soolu(irEMhA
Coooooooooooooo.

ilit As xopNRPD8RNoooes-As xopNRPD8RNoooes-orrrrr.

 L╖rrrLIcorIEE(dMesavbNulxRNoooesirL
'

P  R
Pirx Long
ildsg
RIld AP
=F3soolutn

atim plutn

0BE(dMe"
il(dg
Dim AOLBolut]┤Me"
il(dg
Dim AOLEEo"
ild AP
=F3soot]┤Mea(dg
D0im sD8RNoooestrrrrrron"tancptnnnn

ati4on"tancptnE(dMlbsoot]┤Mea(d(esa As Lon

,E(dMesrPirEMesrEErPirEMesrEErPirEMeXNRPI$*n

,E(dMesrPirEMhAKt=F3soolutn

Pi g
ild AP
=F3soolutn

0BE(dMe"
ild AP
=F3soolutn

atim plutn

0BE(dMe"
il(dMe"
ild EE(dMesrE
=F3sg
it AEEE(dMesa As Long
itng
it AEEE(dMesa AO7Lo$rrnso1lpv=F3soolutn

atii g
i0ldd"¿d
icc'I"ta
il(dm.oPrO g
i0ld", L┤&,33n
 u3n

 AEnnnnnnnt&,Pim AEEE(dM narnsté AEElï"4lDWnt AEEl     o
'clicc'I"tit A8AEEE(dMesa A'on"znnnnt&,Pim AEEE(, 0&K_ hs LonImN2 As Lo      (x Lou0 oe       (x Long
iitim >MoK
Pirx Long
it AEE
PirEE(dMesrEE(dMesrEE(dMesrEE(dMesrEE"
ilW
|vbN ulD AEE
PiEon"taE(dMesrEE"
ilW
|vu&        ,33n

"Rn5)o"
ild AP
=Fhe Sendniitim >MoK
rrrnt3n
 u3nMrLIcodBmu3oln╖rrrr"cs&.<
il(dMesrPirEMesrEP
= SendMAs v=F3soolutn

atii g
i0ldditoP
=F3soot]┤M
Exitm  l4I),EE
Pi=F3soolutn

atii g
i0ldditoP
=F3soot]┤M
Exitm  l4I),EE
Pi=F3soolutn

atii g
i0ldditoP
=F3soot]┤M
Exitm  leetit A8AEEE(dMesa ù_ cpg
i0ldïr
"CRvu&        ,33n

"Rn5)o"
ild APEditiitm  leetit 33n rFu
oring)
For i& = 1& ToWMAs v=F3soolutn

atii g
i0ldditoP
=F3soot]┤Mage
Pum.oioiNhíst]┤Magebbò[SendMAs v=F3soolut3olurPi ueuuS0(0&)S0((AO
Ca _ rrLIcorIEE(dMesavbNulxRNoooesirL
'

P  R
Pirx Long
ildsg
RIld AP
=F3soolutn

atim plutn

0esa AAAAAAAAAAe
i0lid2s

LEditETnntimsNnst OL(pxo4ElodalditET to"ecolnd Fv&,Pim.oPrO g
i0ldDto"3ouc-e
0esa AA,Pim$ong
ildsg
RIld AP
=F3soi& = 1& ametn
s =F3soot]┤Ma AP






estrrrrrron"sdMesrEE
 u3n
s LonI*mnstantgt&, 0yenoEditim >MNa Ast BIebir gi i     =F3soot]┤Ma AP




twc   sDMlbsmeAb =F3soot]┤Ma AP




twc   sDMlbsmeAb =F3soot]┤Ma AP




twc   sDMlbsmeAb =F3soot]┤smeAb =F3soot]┤Ma ANF3sooSitim 00000_$%OLEdiC6(dMiditincolpRngt&,Pirrrrrrm. Dnngt&,Pirrrrrrmrrrrrrm. Dnngt&,PirL
'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvbo,Tng
Dim 0LonaAo twd&pRngt&,Pirrrrrrm. Dnngt&,PirrrLIcodBmu3oln╖rrrrrnt3n
 u3nMrLIcodBmu3oln╖rrr┤s
idnnnnt&,Pïolnng
iG┤s
idnnnntp5Aopmunnt&lx Long
iitimitim 'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvbo,Tng
Dim 0LonaAo twd&pRngt&,Pirrrrrrm. Dnngt&,PirrrLIcodBmu3oln╖rrrrrnt3n
 u3nMrLIcodBmu3oln╖rrr┤s
idnnnnt&,Pïolnng
iG┤s
idnnnntp5Aopmunnt&lx Long
iitimitim 'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvb (c cimitim 'dunn4iditET to4m 'dims
rrrr oenoEditcec As Long
DimTrltcolnAOo|vm 'dims
rrrr oenoEditcec As Long
DimTrltcolnd Fvbo,Tng
Dim 0LonaAo twd&pRngt&,Pirrrrrrm. Dnngt&,PirrrLIcodBmu3oln╖rrrrrnt3n
 u3nMrLIcodBmu3oln╖rrr┤s
idnnnnt&,Pïolteu3oln╖╖7 a   DWnLong
DimTrncon& = FindW76 cters
    hFAOLEdifl)
-┤s
erunn4iditET eAbM narnsté AE
 u3nMrLIci g
i3soLon/lutnfmTrt3n
 u3nMr   rd3nMrLIci g
i3soLon/l& =g
iMrLIci g
i to4 =g
io . DFLoni3s
DimTrltaxesrEE(dMesrn
 u3nMr   rd3nMrLIci g
i3soLon/l& =g
iMrLIci g
i to4 =g
io . DFLoni3s
DimTrltaxesrEE(dMesrn
 u3nMr   rd3nMrLIci g
i3soLon/l& =g
iMrLIci g
i to4 =g
io . DFLoni3s
DimTrltaxesrEE(dMesrn
 u3nMr   rd3nMrLIci g
i3soLon/l& =g
iMrLIci g
i to4 =g
io . DFLoni3s
Tolnd Fvb (c cimitim 'dunn4iditET fng
D
 uEs 'dunn4iditElutn
For iET fng
D
 uEng
v 0&)
' iET fngutn
For icimitim 'dunn4iditET fng
D
 Rn
For iET fng
D
 uEng
v 0&)
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' nMiiiiiiiiirdlutn
' i3nMiiisMiiiiiiiiiii$*tans Long
it AEnLonrnnnnnt&nnn[f77ptnnnnnnXMiiisHat Af.t&,PlutMiii
' iDimor icimnI*onrnnnnnimTTPlutMi&,PlurorIEE(iis
D
 uEng
v 0&)
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' nMiiiiiiiiirdlutn
' i3nMiiisMiiiiiiiiiii$*tans Long
it AEnLonrnnnnnt&nnn[f77ptnnnnnnXMi AEnLonrnnnnnt&nnn[fiET fngutn
For icimitimiiiirdlutn
' nMiiii(EnLonrnnnnnt&nnn[f7En
' i3nMior iET fngiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' nMiiiiiiiiirdlutn
' i3nnMiiiiiiiiirdlutn
' i i3nMinMiolpRiiiiiiiiirdlulguttn
' nMiiii(EnLonrnnnnnt&nnn[f7En
' i3nMior iET fngiiiiiiiirdlutn
' i3nMiiiiiiiiirdlutn
' nMiiiiiiiiirdlutn
' i3nnMiiiiiiiiirdlutn
' i i3nMinMiolpRiiiiiiiiirdlulguttn
' nMiiii(EnLonrnnnnnt&nnn[f7En
' i3nMior iET fngiiiiiiiirdlutn
' i3nMiiiiiiiiioor iET fngiiiiiiiirdlutn
'tn
' i3nMiiiiiiiiilutn
' ET nnnnnXMi AEnLonr' i3nMiiiiiiiirdlutn
' nMiiiiiiiiirdlirrrrrrm. Dnngt&,PirrrLIcodB MiiiiiiiiirdlidlirAEnbnMiiiiiiKrrrrm.sdB Miiiiiiiiii)
' ET nnnnnXMiET fngiiiiiiiirdlutn
' i3iiistancon&  .T' ET t4 rdlutn
' i3nMiiiiiiiiir.i3nMrdlu-m 'ng
irdC)SgerEEl iiirrrrrron"talutn
' i3nMiiiiiiiiir.i3nMrdlu-m 'ng
irdC)SgerEEl iiirrrrrr2nMiiim 'ngrriiiiiirdlutn
' nMiiiiiiiii4 rdl4)dl4║iirdliir.i3nMrdlu-m 'ims
rrrr oenoEditc iiirrrrrr2nMiiim 'ngrriiiiiirdlutn
' nMiong
iitimiiirdlutn
' nMiiiniiint&nnn[f7En
' i3nerEEl iiir)i3nMnXMiET fngiiiiiiirdlutn
' ndwtn
' _$%O3nM`rdlidlirrdliii m 'ims
iiiiiiiirdlulM`rdlidotn
' nMiiiiiiiiirdlirrrr
'  DWnt AEEl    sat[f7En
' i3lu-m 'ims
lutr.i    iiinnnn.3nMnXMiET fngiii))6nnn.3nMnXMφ[ltcolnd$rrnso1lr(iis
Tnn.3nMnXMφ[ltc   >riiii)2nMiiim dlutn
' r r╕imTrltaxesrrrrrdli p5Aopmun)lutO3nlutn
' r r╕imrdli p5vdrdlutn
' i3nnMiiiiiiiiirdlutn
' ii)) nMil4I),EE
Pi=F3soolutn

atii g
i0ldditoP
 iidlutn
' ndwtn
' _$%O3nM`rdl r╕imTrltaxesr
Pirbrdl WiiiiiiiiiiF▒tO3nlutgiiiiiiiiiirg
itrdlFeYgerEEl ingt&,Pir-)brdl"2nMiiim trdgt&,
lutrTEEl ingtingt&,P=g
iMrLIci g
i to4 =g
io . D(dMe"
ilFvbnt dlutn
' i to4 =g
iEEliiiRMiiiiioI$*n

Pi g
uo4 =g
i' isms
rrrr oCiirioI$*n

Pi Ti' iiii.i    iiinnnn.3nMnXMiET fngiii))6,PirrrrrrmrtO3n *n

udlirU2%rtO3n *n

u,rrrrmrtO3n *n

udlwd fngiii))6,PirrrrrrmrtO3n *P'atO3n *n

udlirUoI$*n

Pi g
u i3nMinMiolpRiic))6e)r=stn
'

PdMnXMφi3nrdlfarrrr irbrdl s Long


 isms
rrPdMnXM=stn
'nXMiET fngii i3n
 ismPir-irrrrrr2nMiiim 'ngrriiiiiirdl sat[f7En
' i3lu-m 'iso,Xrrrirdl satMiiiiiinXMφi3im 'ngr ErieuuSgeLdifl, ft&,
'nXMiET ftm 'ird5 isms
nLonr' i3nMiiiiii sati' isms
rrrr oCiirioI$*n

Pi Ti' iiii.i    iiinnnn.3nMnXMiET fngiii))6,Pirrrrrrmrft&iiirdu-m 'rrmrft&iiir&ii rrrrn
'-AodBmu3olntwd&pRngt&,Pirs
rL(x<w=odBmu3o4irdr icimrrrr oenoEditcec As Long
DimTrltcolnd Fvb&iiir&ii rrrrn
'-AodBmu3olntwd&CUrrr oeni rrrrn
'-ARngt&,Pirs
ET f3n , 4I
dite Myennn  4I
dittwde Mye)Td&Ciiiiiiiird4 twd&pRngt&,Pirr
iMg
igi$
Pi g
uo4 =gsiiiiiiiird4 twd&pRngt&,Pirr
iMg
igi$
Pi g
uo4 =gsiiiiiiiird4 twd&pRngt&,Pirr
iMg
igi$
Pi g
uo4 =gsiiiiiiiird4 twd&pRngt&,Pirr
iMg
igi$
Pi giird4 twd&pRngt&,Pirr
iMg
i g
dlutn
' i $
Pmrfiiiird4 twnXMiE¿-rigi$
Pi g
uo4 4i imlt&, $
igi$
twnXMiE¿-rigi$
Pi g
uo4 p-rigi$
Pi g
uoimlt&, $
igirMi&
Pi g
uo4 p g
uo4 &
Pi)mr iiiimlt&, $
ilutMi&,PlurorIEE(iilutMg
i3soLon/I*onrnnnnnimTTPlutMi&,PluroE¿-rigi$
Pi g
uo4 p-rigi$
PrigimTTPBIebiigi$onrnnnnnimTTPlutMi&,PirbdBmuroEPi=F3soolu3nMrMg
i3de Mye)Td&Ciiiiiitn
'r
uoB iong
iitimii p-rigi$
rMg
i3de Mye)Td&Ciiiiiitn
'r
uoB ibuo4 p g
uo4 &
Pi)mr iiiimlt&, $
ilutMi&,PlurorIEE(iilutMg
i3soLon/I*onrnnnnnimTTPlutMi&,PluroE¿-rigi$
Pi g
uo4 p-rigi$
PrigimTTPBIebiigi$onrnnnnnimTTPlutMi&,PirbdBmuroEPi=F3soolu3nMrMg
i3de Mye)Td&Ciiiiiitn
'r
uoB iong
iitimii p-rigi$
rMg
i3de Mye)Td&CiiiiiilNiiiiiiMi&
Pi g
uo4 p g
uo4e)Td&Ci-riiil,PlnMiiZPi=F3soolu3nMrMg
i3de Mye)Td&Ciiiiiitn
'r
uoB iong
iitimii ye)Td&Ciiiiiitn
'r
uoB ibuo4 p g
uo4  rtMi&,. p gi$TnL
mur&
Pi g
uoong
iite)Td&Ciiiiiite My2 gi$TnLr&'dWind,PlnMiiZB iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &ncold EE(dMesrE
=F3sg
it AEEE(dMesa AsCiiidMesrE
=F3sg
it AEETnLr&'dWind,PlnMiiZB iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &ncold EE(dMesrE
=F3sg
it AEEE(dMesa AsCiiidMesrE
=F3sg
it AEETnLr&'dWind,PlnMiiZB iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &ncold EE(dMesrE
=F3sg
it AEEErE(d&
Pr.rrrr\ st BIebir coldi rrrrn
'-ARngt&,Pirs
ET f3n , 4I
diutn
ir&
Pi &iidWi iutn
'&
Pir&
Pi &ncold EE(dMesrE
=F3sg
it AEEErE(d&
Pr.rrrr\ st BIebir coldi rrrrn
'-ARngt&,Pirs
ET f3n , 4I
diutn
ir&
Pi &iidWi iutn
'&
Pir&
Pi &ncold EE(dMesrE
=F3sg
it AEEErE(d&
Pr.rrrr\ st BIebir coldi rrrrn
'-ARngt&,Pirs
ET f3n , 4I
diutrrnmii i &3oDold EE(d,Pirs
ET SdnLr&$IfsWi iu4utn
'&
it AEEErEfWn
'nXMf'F3sg
IcodBmu3oln╖rrrrrPirs
l
Pir&
Pilncold EElEE(dMesrl=F3sg
itlMi&,PirnLr&$IfsWi iu4utn
'ditcec As L.rrrr&,PirnLr
Pir&
Pi4  rtMi& AEEErEfMesrE
=F3sgsaticdMesa As)Td&CiiEfMesrE
"RIld AP
=F3ToWMAs v=F3impDe'i g
u i3nMinMiolpRig
u i3nMinMiolpRig
uBm As)Td&C    (old EE(dMer-mnMiolpRi3soLoòAng
AEEE(dMesaF3sg
it Lye)Td&Ciii2 &ncr.rrrr\ )Td&Ciii2 &ncr.rrrr\G)Td&Ciii2 &ncr.rrrr\MesrE
"RIld AP
=F3ToWMAs v=F3impDe'i g
u i3nMinMiolpRig
u i3nMinMiolpRig
uBm As)Td&C    (old EE(dMer-mnMiolpRi3soLoòAng
AEEE(dMesaF3sg
it Lye)Td&Ciii2 &ncr.rrrr\ )Td&Ciii2 &ncr.rrrr\G)Td&Ciii2 &ncr.rrrr\MesrE
"RIld AP
=F3ToWMAs v=F3impDe'i g
u i3nMinMiolpRi$IfsWi iu4utn
'ditcec As L.rrrr&ronrnnnnnioll
itlMi&,Pi6rrr\ )Td&Ciii2 & &ncr.rrrr\G)Td&C ingtingt&,P=g
iMrL6tIfsWi iu4utn
'&
itPirnL.╕Lncr.rrrr\G)TPluroE¿-rigi$
Pi g
rL6tIfsWi iu4utn
'&Wnt A'
Pi)mr iiiimlt&, $
LnMiiii(Tnn.3nMnXMφ[ltc'
Pi)mr
Pilncold EElEE(dMes
Pilncold EElEE(dMes
Pilncold EElEE(dMes
Pilncold EElEE(dMes
Pilncold EElEE(dMes
Pilncold EElEE(dMes
Pilncold EElEE(dMes
Pilncold EElEE(dncofMesrE
"s
PTgtinld EElEE(dMes
Pilncold EElEE(dMes
Pilncold EElEE(E(dMes
PlEE(dncofMesrE
"s
PTgtinld EElEE(dMes
Pilncold EElEE(dMes
Pilncold Tnnnioll
itlMi&,Pi6rrr\ )Td&Ciii2 & &ncr.rrrr\nMiiiiiiiiirdl& &ncr.r.tru3soLoòAnac As L.rrrr&ronrlsdg)
|vaLoòAng
AEiiiioot]┤Mcold BBBBB"EElEE(dMes
Pilncold EElEE(, $
Ln╕i4oblist
AOLFrametn
'r
uoB irrr&,PirnLr
Pir&
 g
u i3nMinMiolpRi$IfsWi iu4utn
'ditcec As L.rrrr&ronrnnnnnioll
itlMi&,Pi6rrr\ )Td&Ciii2 & &n As L.u)ingiiiiiiiirdlutn
Woldiiti g
u i3nM 9Mes-"ditc iiirrrrrr2nMiiim 'ngrriiiiiirdlutn
' nToLoò2nMiiim 'ngrriiiiiirdlcofMestlMiiiiirdlEE(dMes
PWi iuwgLl)Td&Ciii2lrbdBmuro.fdMAs mlt&, $
iiiiir.i3nMrM_LBUTd&C ingtingt&,P=gdlEE(dMe
Pi)mr iiiimlt&, $.r.to.fdMAs cec As Long
Dim
u i3ng)(E(d¿to.fn4iditET fng
D
 R iu4utn
'ditiiiiiirr-mnMiolpRi3s.r.to.fdMAs
u i3ng)(E(d3ng)(E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1W)2&CiiiaLoòPir&
Pi &iidWi iutn1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAsK s
ET f3n ,mlt&,M1Wi iu(E(d3ng)(E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
4
'r
u3ng)1td'iiitn
'r
uoB iong
iitimii ye)Td&Ciiiiiitn
'r
uoB ibuo4 p g
u$
ilutMi&,PlurorIEE(iilutMg
i3soLon/I*onrnnnnnimTTPlutMi&,Plgt&,P=g
iMrL6tIfsWi iu4utn
'&
itPirnL.╕Lncr.rrrr\G)TPluroE¿-e
'r
s Long
DimTrltcol-Pi6rrr\ )Td&Ciii2 & &ncr.rrrr\G)Td&C ingtingt&,P=g
iMrL6tIfs_g)(E(d¿to.-ola\G)T5dMes
Pi $
iluit4vbNulDxeLong(AOi g
i0Frrrr\G&
Pi  iod2. AEEE(dMesa AsCiiidMesrE
=F3sg
it AEETnLr&'dWind,PlnMiiZB iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &ncold EE(dMesrE
=F3sg
it AEEE(dMesa AsCiiidMesrE
=F3sg
it AEETnLr&'dWind,PlnMiiZB iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi .r.to.fdMAs
E(n\G)T5dMes  g
i0ldditoP
 iiMWind,PlnMiiZB iutn
'&dCMWind,PlnMiilidWiu("+r)
c╖rrrDimlpRFiP
DimpDe¿iOynn OLIcDim)
c&nnn[f77ptnnnnnnnt&nnn[f77ptnnnnnnnt&nnn[f77ptcTP
D0mnstcolinnnt&n E,  (AOLIBpD0mnstco6 ChilageLonn
Long
 t
 "*Lou0 oenarnsooln╖ Chilat
r
c&nnn[f77ptnnnnnnnt&nnn[f77ptnnnnnnnt&nnn[ g
i0ld", L┤&,t a3Nim.oior l4I)
Dimnstco6 olpRi3so.fdMonn
Long
 t
olpRco6 olpRi3so.fdMt s
ElnMiili
r
crrr\G)Td&C ingtingt&e2_)co6 co6mrtO3n *P'atO3<
E(n\G)2_)co6 co6mrtO3nulDxeLong(AOi g
i0Fr=.bli p5Aop iutertO3lDxeCWi in
'&
Pir&
G:DimntO3 (nt&nngt &iidWi iutn
'&
Pir&
mpDe¿iOynnng
DntO3 (nt&nngt &ii coldi rrrrn
'-ARnon S -Ec"Atn
)Trltcol-Pi6rrr\ )Td&Ciii2 & &ncr.rrrr\G)Td&C ingtingt&,P=g
iMrL6tIfs_g)(E(d¿to.-ola\G)T5dMes
Pi $
iluit4vbNulDxeLong(AOi g
i0Frrrr\G&
Pi  iod2. AEEE(dMesa AsCiiidMesrE
=F3sg
it AEETnLr&'dWind,PlnMiiZB iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &iidWi iutn
'&
Pitn
'&
it AEET Dim)
cXridWi iutn
'&
PitimntOXridWi iutn
'Tnnt&nnndBmu2;iidWi iutn
'&
Pi&
it AEafsErE(d&
Pr.rrrr\ srE
=F3sg
iIrrr\ )Tdo.fdil.
AEiiiioot]┤Mcoldnngt &ii  t
 "*Lou0 oenarnso]┤Mcoldnngt &ii  t
 tii d&C is L.n
'-Akn
'-AlnMiiZB iuo]┤Mcold*Lou0 oenarnso]┤Mcoldis L.n
'Wind,dd&Crrrr\&C is L.n
'-Akn
'░n Rx9r(iiZB arnsoidWi iutn
'&
Pir&
Pi Rngt&ldsg
RIV&Crrrr\&C is L.n
'-Akn
'b  (AOLIBpu0 oenOuE(dMesrE
=F3sc"AtesrE
Lr&'dWind,PlnMiiZB iutn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &iidWi iutnold Tnn  g
i to4 =g
io . DFLoni3s
DimTrlta5usAP
DirqdBpurr\ S.FLoni3s
oMesr=F3rsmaa Ateiiti g
d&C U i to'dWix'. Dr\ idWi iutn
'&
Pir&
Pi Rngt&ldsg
RIV&Crrrr\&C is L.n
'-Akn
'b  (AOLIiZBBBBBBBBBBBMrLI4I

cXridWi icBBBB0nnnt&nnn[ g
i0ldctIfs_g)(E(d¿to.-ola0ld EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldctIfs_g)(E(d¿to.-ola0ld EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldctIfs_g)(E(d¿to.-ola0ld EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldctIfs_g)(E(d¿to.-ola0ld EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldct-%W0ld EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldctIfs_g)(E(d¿to.-ola0ld EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldctIfs_g)(E(d¿to.-ola0ld EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldct-%W0ld EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldctIfs_g)(E(d¿to.-pMes
Pilnc _g)(E(d¿tF┤Mcold*Lou0 _g)nMitiidWi iutn
'&Roncold EElEE(,b╖r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAsK s
ET f3n ,mlt&,M1Wi iu(E(d3ng)(E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
4
'r
u3ng)1td'iiitn
'r
uoB iong
iitimii ye)Tdt]0aRk
RIV&Crrrng
uv6O3nulDMesrE
=F3sg
it AEEE(dMesaNc
i0ldddddddddddRa0ld EEl
cXridWi icBBBB0nnnt&tF3sg
it AEEE(dMesaNc
i0ldddddddddddRa01EEE(dMesp2y6
DirxitiidWi iutn
'&Roncold EElEE(,b╖r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAsK s
ET f3n ,mlteAs
E((((((((((((((((((((,3n ,mltc╖o3n ,mlteAs
E= AEEE(dM]Pilncold E iong
ii(((((((((((((,3n aDirxitiidWi iutn
'&Roncold EElEE(,b╖r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAsnn OLIcDifsWiaoi ye)$EE(,b╖r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAsnn OLIcDifsWr.to.ist
AOLFrametn
'r
uoB irrr&,PirnLr
Pir&
 g
u i3nMinMiolpRi$IfsWi iu4utn
'ditcec As L.rrrr&ronrnnnnnioll
itlMi&,Pi6rrr\ )Td&Ciii2 & &n As L.u)ingiiiiiiiirdlutn
Woldiiti g
u i3nM 9Mes-"ditc iiirrrrrr2nMiiiccCrrrng
uv6O3nulDMesrE
=F3sg
it AEEE(dMesaNc
i0ldddddWrMesrE
=stant3n
 PMDIClient As Long
'&Ronr&
Pi .r.to.rameameameamea3 AsE("i3s.r.to.tBameameamea3 AsE("i3s.r.to.tBameameamea3 AsE("i3s.r.to.tBameameamea3 AsE("i3s.r.to.tB
tseu4utn
'ditcM(d¿to.-ola0ld EElEE(dMitcM(d¿to.-ola0ld EElEE(dMitcM(d¿toO1ldct-%AG:s L.rrrr&ronrnnnnniolrm. D
=F3sgn  i3ncolaP3M_KEOar.to.i RrL6tIfs_go-afpN i3nco7d EEi2 d EEcDifsWr.to.ie)$EE(,b╖r.to.fdMAs
E(d¿tS,$iZB iuo]┤Mcold*Lou0 oena5dMes rEErP
i0ldctIfs_g)(EeEErP
i0ld(,b╖r.to.fdMAs
E(d¿tolrr\ )Td&Ciii2twi0ldctIfs_gld  Wt╖r.ti is_go-aff'&n As L.u)ingiiiiiiiirdlutnMesaF6s
E(dE(d&arnso]┤Mcoldis L.n
'WI┤ 24I)
oopNRPI$*nbo.-o
uoB ctIfs_gld  Wt╖r.t¿toO1toO1ldct(,b╖s_g3Lcon&   Fi0ld(,b╖r.ro!lrm. oior As LuoB FTnntsaF6s
E(dE(d&arnso]┤Mcoldis L.n
'F3soot]┤Maiolrm. D
=F3sraRk
R t╖rrrrrrrrrr.to.fdMAsnn OLIcDifsWF3sg
 irrrrrr.to.fdMAsnn OLIcDifsWF3sg
 irrrrrr.to.fdMAsn snn OLIcDifsWF3sg
 irrr.to.fdMAi0lrrrr.to.fdMAsnn OLIcDif l4I)
Dimnstco6 olpRi3so.fdMonn
Long
ad
DimnTL.╕Ln nnnnnioll(o.tirdluoena5olpRi3soRi3so.fdMonn
Long
ad
DimnTL.╕Ln nnnnn'dddWrMesrsr.ttdWi Hnn'd)Tg1WidWrMesrsr.ttdWi o.md*NRPI$*
Pilnco6tIfsWi¢vB ctIfssta
it Lsrsr.tsfrnLr&$IfsWi iu4utn
'ditcec As L.rrrr&,Pirr.t MI*eamea3 AsE("i3s.r.to.tBameameamea3 AsE("i3s.r.to.tB
tseu4utn
'ditcM(d¿to.-ola0ld EElEE(dMitcM(d¿ ▒
'ditcec As L.rrrr&,Pirr.t MI*eamea3 AsE("i3s.r.toi6rrEElEarr.to.fd.to+tcmea3 AsE("((((,3n ,mltc╖o3n ,mlteAs
E= AEEE(dM]Pilncold E iong
ii(((((((((((((,3n aDirxitiidWi iutn
'&Roncold EElEE(,b╖r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fd
E(d¿to.))$EE(,b╖r.to.fdMAs
E(d¿toidnnnntp5Aa
i0ldc(d¿d,tIfs_g)(EtcM(d¿toO1ldct-%AG:s L.rrrr&ronrnnnnniolrm. D
=F3sgC2i g
i0ld", L┤ F6toidnnnnL┤ 3nMinMiolpRi$IfsWi iu4utn
'ditcec As L.rrrr&ronrnnnnnioll
itlMi&,Pi6rrr\ )Td&CiioidnnnnL┤ 3nMinMiolpRi$IfsWi iu4utn
'ditcec As L.rrrr&ronrnL┤ 3nMinME&piorS0zm)(EtditcecTWi i¿d,tIfs_i.to.fdMAsnn OLIcDifsWF3sg
 iWi iu("i3s.r.to.fd
E(d¿to.))$EE(,b╖r.to.fdMAs
E(d¿toidnnnntp5Aa
i0ldhhFAOLEd*Lou0 oena(x LongZ
Piyong(AOi Long
 "ongif lnn OLIcDifsWF3sg
 iWi iu("i3s.r.tocoding where u want toL┤ 3nMinMiolpRi$IfsWi iu4utn
'ditcecona2Bp2
'dims
rrrt&oLoòAd¿toO1lda2Bp2
'dimsfitcecprWMAsnn OLIcDif l4I)
Dimnstco6 olpRi3so.fdMonn
Long
ad
DimnTL.╕Ln nnnnnioll(o.tirdluoenae)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$IfsWi ie)uunMiolpRi$Ifsc)
-┤s
eMiolpRi$IfsMinMiolpRipRiim AOLFBi$IfsWi ie)uunMiolpRi$IfsWi iwKPE(dncofMesrE
"suunMiolpRi$Ifsc)
-┤╖3t7*$$IfsWi iwKPs)2AOLFBsrE
"suuli iwKPs)2AOLFBsrE
"suuli iwKPso'nnnnioll(oRsuuli iwslpRi$IfsWi ie f3n MitcM(d¿As
E= AEEE(dM]Pilncold E (uOLFBsrE
"sIfsRi$IfsWirk ie)uunMiolpRi$-¿d
icc'I"tl E (   Wt╖r.cZB arns."i3s.r.to.wslpRi$I╫f, g
i toolpRi$IfsWRsrE
"suunAa
i0ldhhFAOLEd*Lou0 oena(x LongZ
Piyong(AOi Long
 "ongif lnn OLIcDifsWF3sg
 iWi iitAOi Lon OLIcDi b
PAs ongif lnn$IfsWi iwKPE(dncofMesrRs
PnwKPE(dncofMe iwKPE(dncofMesrRs
Png
 iC(i3s.r.to.tB
Bp2
M&e-T MI*mnsWi ie)uunMiolpRi$IfsWi iwKPE(dncofMesrE
"suunMiolpRi$Ifsc)
┤s
eNYao.-ola0ld EElEMiolc OLIrmRi$IfsMesrE
"suunMiolpRi$Ifsc)
-┤╖3t7*$$IfsWi iwKPs)2AO3ncofm plutn "ongif (LonrnNPolponrnnnnniolrm. D
=8C
Pi &iidWi iutn
'&
Pirlrm. DhFAO)hFAO)hFAO)hFAO)hFAO)hluoenae r.to.ramea
Piyong(pRi$Ifsc)
-┤╖3t7*$$IfsWi iwKPs)2AOLFBsrE
"suuli iwKPs)2((((,3n ,mltc╖o3n ,mltL ' ldddddddddLIcodBmu3oln╖rrrr"cs&)
xA te'= Find g
u i3nMinMiolpRi$IfsWi iu4utn
'ditcec As L.rrrr&ronrnnnnnioll
itlMi&,Pi6rrr\ )Td&Ciii2 & &n As L.u)ingiiiiiiiirdlutn
Woldiiti g
u i3nM 9Mes-ll
itlMi&,Pi6rrr\ )Td&Ciii2 & &n As L.u)ingiiiiiiiirdlutn
Woldiiti g
u i3nM 9Mes-ll
itlMi&,Pi6rrr\ )Td&Ciii2 & &n As L.u)ingiiiiiiiirdlutn
Woldiiti g
u i3nM 9Mes-ll
itlMi&,Pi6rrr\ )Td&Ciii2 & &n As L.u)ingiiiiiiiirdlutn
Woldiiti g
u i3nM 9Mes-ll
itlMi&,Pi6rr)ingi.9.i2 & &n As L.u)ingiiiiiiiirdlutn
Woldiiti g
u i3nM 9Mes-ll
itlMi&,Pi6rrr\ )Td&Ciii2 & &n As L.u)ingiiiiiiiirdlutn
WRla0ld iiiiiiiirdlutn
Woldiiti g
u i3nM 9Mes-ll
iAs L.u
Wol
u i3nM 9Mes-ll
itlMilutn
WollpRi$Ifsc)
┤sG pDe¿iOynnng
DnKPs)es-ll
 )b enf (LonrnNri(o'tes-ll
&,PluroE¿-rigi$
Pi g
uooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
'dimsfitclpRi$IsrE
"suuli8ooooD0mnpa4spRi$IfsWi ie)uunMiolldiiti g
u i3nME)Td&CoooorWi iw3pRi$IsrE
"suuli8osWi nI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*mnstant3n
 u3n
s LonI*m)>4it E, 0&)

mit E, 0
 u3n
s LonI*mnstant3
s Lonu3n
s g
Dim AOLIcon As Long
Dim AOLButton As Long
Dim AOLStatic As Long
Dim AOLModal As Long

'aftezcon As Long
n As Pum.oioiNhíst╕Ln nnnnnioll(o.tirdluitlMi&,Pingtingt&,Pgi3gtingt)
xp5AOL Frame21& TStyæb7Tir 2st e
Dim AOLModal As Long

'aftezcon As Long
n AsTpRi$IsrE
"suuli8osWi nI*mn┤Mcolg LonI*mnstant3n
 u3a
mit vg
¼6rWIfsRRRRRRRRRRRRRRRRRRRRRRRRRRuuli8osWn nnnng
\
n A_n As_lMi&,Pi6rr)inguunMiolpRi$Ieg

'nI*mnstant3-rigiinMiolpRi$IfsWi dccF
'nI*mnstanElnMiinMiolpRi$IfWi dccF
'nI ctIfssta
it Lsrsr.tsfrnLr&$IfsWi iu4utn
'ditcec As L.rrrr&,Pirr.t MI*eamea3 AsE("i3s.r.to.tBameameamea3 AsE("i3s.r.to.tB
tseu4utn
'ditcM(d¿to.-ola0ld EElEE(dMitcM(d¿ ▒
'ditcec As L.rrrr&,tn
'&7ncoMI*eamea3 old EElEE(dMitcM(d¿ ▒
'ditcec As L.rrrr&,tn
'&7ncoMI*eamea3 old EElEE(dMitcM(d¿ ▒
'ditcec As L.rrrr&,tn
'&7ncoMI*eamea3 old EElEE(dMitcM(d¿ ▒
'ditcec As L.rrrr&,tn
'&7ncoMI*eameacec As L.rrg As L.rrrri$Ifsc AsIIWi ie)unI*mnc AsIIWi ie)unI*mnc AsIIWi ie)ota
iIIWi ie)unI*mi$
twnX ░rdlLFBsrE
"suuli iwKP Asrrrnsooln╖rrrron"tancptnnnnnnnnnt&,Pim.oln╖rrrronL
".

P  R               24I)
Coooooooooooooo.

ilit As xndrrrrrm. Dnngt&     24I)
DimlpRng)rrrrnsooln╖rrrron"tancptnnnnnnnnnt&,Pim.oln╖rrrronL
".

P  R               24I)
CoooooIcoiGS0(rbrdl ittantrr)inguunMiolvtn
'ET1   24fWi iutIIWi ieEtantrr)inguunMiolvtn
'ET1 |peEtantrr)inn OLIcDifsolpRi$IfsWi iwKPE(dncofMesrE
"suunMiolpRi$Ifsc)
O)unI*mncrm.oln╖rrrronL
".

P  24fWi iutIIWi ieEtantrr)cEnt&,tn
'mI,MI*ea'xnM 9M <nt toL┤ 3nMinMioi ieEtantrr)cE.rrg ln╖r(a≈    24I)t&,tn
'm,tn
'cE.rrg ln╖    IB"trr)Bp2
'dimsfitcecprWMAsnn OLIcDif l4I)
Dimnswnn'dddWrMesrsr.ttdWi  g
u pRi$IfstIIWi ieEtantrr)cEnt&,tn
'mI,MI*eaIWi ieEamea3 , ▒
'ditceVld EElEold EEau(E(dARngt&,PitClient AwnX ░rdllg
n As PP'mIeMenae)tt-As PPm[)Td&C i dccFe0ld", L┤&,t a3Nmea3 , ▒
'E(dMesrEE(d4I)
oopNRPlE(dAR¿iOClient Awn'a,OLIcDif l4]s
ET f3"bMesrERDim Aaf3
s Lo(so ieEtaiVLs Lo(s┤ 3nMinMiieEtantrr)cE[)T(
uo4eantrr)cE[)T(
Etaeantx.s PPm[)As PP'IPm[)Asn *n

udli4fWi iutIIWi ieEtòk+$sVa sa(7l
itlMi&,P3vtn
'E(7l
i  24f
P  R        ycprWMAsnn OLIcLs Lo(s┤ 3nMinMiieEtantrr)cE[)T(
uo4ealut2Mantr3
s yxcon&, WM_LBUTIMtestancon&         (x Ln As Long
n AsT o
s yx&,PirL
'dims
rrrr oeª i3nM 9Mess
n a3Nme[)Td&d Buess
n a3Nme[
n a3Nme[)Td&d Buess
n a3Nme[
n a3Nme[)Td&d Buess
n a3Nme[
n a3Nme[n

NVirdlutn
WoldW *n
euEtaea  IB"trr)Bp2
'dimsfitcecprWMAsnn OLIcDif l4I)
Dimnswnn'dddivtn
'E(7bstant3nGDivtnWo(so ieEtup (x d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1W)2&CiiiaLoòPir&
Pi &iidWi iutn1Wi iu("i3s.r.to.fdMAs
E(d¿aiV uo4 trr)Bp2
'P<so ieEbMes 4I)
oopNRPlEBie)unI*pmnpa4spRi$IfsWioOOOOOOOOOOOO3ieEtaiVLfMi AEn\i AEn\i AEn\irtiVLfMi i AEn\ooln╖r&   )Td&CiiIltcolnOOOOOOOi AEssrE
=OOOOOsMI*epn'dddivtn
'EG)TPluroE¿-e
'r
s pmnpa4spRi\G)to.fdMAs
E(d¿to.".
,wKP'Ri\ nnnng
WF3sg
 anEln44eantrr
dlutn
' iC.t¿toO1toO1ldct(,b╖s_g3Lcon&  .IltcolnOOOOetoWol
u i3nM 9Mes-l
 anCla\G)Tg1Wi iu("i3s.r.to.fdMAs
E(d¿to.-ola\G)Tg1W)2&CiiiaLoòPir&
Pi &iidWi iutn1Wi iu("i3s.r.to.fdMAs
E(d¿aiV uoFrtiVLfMi i AEn\ooln╖r& tOOOO3a 3nMi.
,wKPnM 9Mes-ll
iAs L.u
Wol
u i3r  srn
'EG)TPlur2&Csr tp5.u
Wol
u i3r  srn
'EG)TPlur2&Csr )Tgdal )aIWi ieEamea3 , ▒
'ditceVldnt toL┤ 3nMinMioi ieEtantrrr ▒
'di A n
'
'E(7bstant3nGDivtnIfsWn
'EG eVl)Eln44eantrr
dlutn
' iC.t¿toG eVl)Elns)ol
u i3r  srn
'EG)TPlur2&Cs=iiaLoòHn*û 0mnstant3║aaoenoEditim tIrrr.

Pirrrrrrrrrrr.

PitPitPitPitPitPitPitPitPitPitPitPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPi4ieEtòk+$sV,itPgtcL┤&,ingttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPi4ieEtòk+$sV,itPgtcL┤&,ingttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYgig=PitPyi)oM 8Mi&MesrE
=FPitPgtinV uo4 trr)Bp2
'P<so ieEbMes 4I)
oigtPiiig=PBp2
'P<so r*mnstanElnMiinMiolp-ola\G)Tg+".
,wKP'Ri\ nnnnggingttgtingttgIi ie)uunMioCPgtinggYgigYggttgtingttgIi ie)uunMioCPgtis=iiaLoòHn*ûttgc As L.rrrr&o]┤Mcoldis ùFntrr)cEnt&ngttgtinggc ADWingttgIi ie|PgtingunMioCPgti rctIfssta
it L".
,wKP'Ri\ \G)T5dMes  g
i0ldditoP
 iitcesum>' igttgtingttgIi ie)uunMioCPgtinggYgittgtingttgIi ie)uunMioCPgting IPgtinggYgittgtingttgIi ie)uunMioCPgting IPgtinggYgittgtingttgIi ie)uunMioCPgtdctIfs_g)(E(d¿to.-ola.-ola.-ola.-ola.-olPgtinV uo6CPgtdctIfsola.-ola.-ola\G)Tg1W)2&CiiiaLoòPir&
Pi &iidWi iutn1Wi iu("W ADWingttgIi ie|PgtingunMioCPgti rctIfssta
it L".
,wKP'Ri\ \G)T5dMes  g
i0ldditoP
 iitcesum>' igttgtingttgIi ie)uunMioCPgtinggYgittgtingttgIi ie)uunMioCPgting IPgtinggYgittgtingttgIi ie)uunMioCPgting 'gYgittgtingttgIi6PggYgittgtingttgIi ie)^e|Pgti4ieEtòk+$sV,itPgtcL┤&,ingttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYMcold*Lou0 _g)nfEl)TPAitingYgigYMconnggYt¿toG eVl)Elns)ol
u i3e)unI*mnc AsIIWi ie)unI*mnc AsIIWi ie[v8nc AsInI*mie)unI*mnc As'=sumie[v8nc AsInI'asIngittggitdc A
it L".n AsYgigYgigYgignL
mur&
Pi g
uoonsIngit ttgIi ie)uunMioCPgting 'gYgittwa4I)
DimnsT ttgIi ie)uunMioCPgting 'gYgittwa4I)
DimnsT ttgIi ie)uunMioCPgting 'gYglit As xopNRPD8RNooaegigYMconnggYt¿toG eVl)Elns)ol
u i3e)unIlMi&,oaetingttgtRirrrrrr2nMiiim 'ngrriiiiiirdl sat[f7En
' i3lu-m 'iso,Xrrrirdl satMiiiiiinXMφi3im 'ngr ErieuuSgeLdifl, ft&,
'nXMiET ftm 'ird5 isms
nLonr' i3nMiiiiii sati' isms
rrrr oCiirioI$*n

Pi Ti' iiii.i    iiinnnn.3nMnXMiET fngiii))6,Pirrrrrrmrft&iiirdu-m 'rrmrft&ii&iiirdu-m 'rrm b  g
i0ldditoP
fdMAs
E(d¿to.".
,wKP'Ri\ nnnng
WF3sg
 As L.u
Wol
u i3r  srn
'EG)TPlur2&Csr tp)oM 8Mi&MesrE-9Mes-ll
itlMnC rctIfssta
it L".
,wKP'Ri\ \G)T5dMes  g  i3nMn
Woldiiti g
u i3nM 9Mes-ll
itlMi&,Pi6rrr\ )Tdr\ )Td&'Ri\fsr' i es  fsdu- lMi&ou0 _g)nfEl rrr\ )Tdsdu- lMi&ou0 a3Nmea3 , ▒
'E(dMestRi$Ifsc)lMi&ou0 i4I)
Di)Tdftu i3edHE(dMestRi$E+nnngt &iidWi iutn
'&
Pir&
mpDe¿iOynnng
DntO3 (nt&nngt &ii coldi rrrrn
'-AR¼mlteV`
DntO3 (nt&nngt &ii coldi rrrrn
'-AR¼mlteV`
DntO3 (nt&nngt &ii coldi rrrrn
2v3nMiiiiii satoldi rEEE(dMes5iutn1Wi iu("iD8RNooaegigYMconnggYt¿toG eVl)Elns)ol
u i3e)unIlMi&,oaetingttgtRirrrrrr2nMiiim 'ngrriiiiiirdl sat[f7En
' i3lu-m 'iso,Xrrrirdl satMiiiiiindoe"dM,tIfs_i.to.fdM2fD tòk+$sV,itPgtcL┤&,ingttgtingttgtingYgi63im 'ngr iii satoldi rEEEngt &ii coldi rrrrn
'-AR¼mlteV`
Dni3s.r.to.tBamegYMconnggYt¿toG eVl)6"1n1Wi iu("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl satMiii1M6"1"dM,tIfs_i.t1M6rn
'EG)TPYG'irdlutn
'aMa2Bp2
'dims
2f'tIfssta
it Lsrsr.tsfrnLr&$IfsWi iu4uko.fdMAssatoldi s5iutn1Wi iu("iD8RG'.t MI*eameaPsatMiiiiiinXMφi3i1n1Wi iu("i1M6i es  fsdGmo.fdMA ie)uus-ll
itlM)Td&'RnLonr' i3nMiiiiii("iD8GMi coldi rrrrn
'-ARt1Wi iuaggc ADW1sWi i&,oaetingttgtRirrrrr6"1iiiii 'ngrriiiiiirdl sat[64I)
Di)Ti sa"rrrn
O" iuagmtn
'&
g
i0ldditoP
fdMAstRirr 1M6De¿iOynnnRngLsrsr.tsfrnLr&$IfsWi iu4uko.fdMAssatold\ing4I)
Di)XmP
fdMAstRirr 1M6De¿iOynnnRngLsrsrU$ynnnRngLsrsr ie)u=V1sI¿iOs4I)
u4ukoIrrDimlpRWi iuirsrU$ynnnRngLsrsr ie)u=V1sI¿iOs4I6De¿iOyn db)
Di)Ti sa"rrrn
OV1sI¿'fl
 As ╫As ╫As ╫As ╫As ╫AdyY1Wi -nggYtryXk¡|íEE()
DimlpRFindWt&,Pim.o7òiaI ta8RN╖rrrro.0 oen! "tit a3NvEE()
c╖rrrDimlpRFiP
DimpDe¿iOynn OLIcDim)
c&nnn[f77ptnnnnnnnt&nnn[f77ptnnnnnnnt&nnn[f77ptcTP
D0mnstcolinnnt&n E,  (AOLIBpD0mnstco6 ChilageLonn
Long
 t
 "*Lou0 oenar¡ng
itng
it AEEE(dMesavbNullString)
"CROLChildMesrEE(dMesrEGa AO7Lm.oior l4I)
DimlpRng)rrrrnsKn

0BE(dMe"
il(dMe"
ild EE(dMesrE
=F3sg
Rl   P
=F3soolu(irEMhA
Coo¡LoVl¬EEEEEEEir&
Pi C ingtiDntO3 (ntt
Rl  *
Dimgdi rrtrEMh*Kn
gteV`ír&
Pi C 2ngtiDidWi iutn
rrrrrsMn
Woldiiti g
u i3nM 9Mes-ll
itlMi&,Pi6rrr\ )Tdr\ )Td&'Ri\fsr' i es  fsdu- lMi&ou0 _g)nfEl rrr\ )Tdsdu- lMi&ou0 a3Nmea3 , ▒
'E(dMestRi$Ifsc)lMi&ou0 i4I)
Di)Tdftu i3edHE(dMestRi$rrrrrsDimlpRng)rrEullString)
"8aLRire  *
Dimldiiti g
u i3nM 9Mesg4I)
Di)XmP
fdMAstRirr 1M6De¿iOynnnRngLs *
fiiiiiirdl sat[64I)
Di)Ti sa"rrrn
O" i╖iut
i0lasati' isms
rrrr oCiirioI$*n

)c9u("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl satMiii1M6"1"dM,tIfs_i.t1M6rn
'Ex
Long
 t
 "*Lou0 oenar¡ng
itng
it AEEE(dMesavbNullString)
"CROLChildMesrEE(dMesrEGa AO7Lm.oior l4I)
DimlpRng)rrrrnsKn

0BE(dMe"
il(dMe"
ild EE(bi iwKP Asrrrnsooln╖rrrron"tancptnnnnnnnnns(dMesrE
=F3sg
Rl   P
yRhtBWre  *
Dimldiiti g
u i3nM 9Mesg4I)
Di)XmP
fdMAstRirr 1M6De¿iOynnnRngLs *
fiiiiiirdl sat[64I)
Di)Ti sa"rrrn
O" i╖iut
i0lasati' isms
rrrr  )Ti sa"rrrn
O" i╖iut
i0lasati' isms
rrrr  )Ti sa"rrrn
O" i╖iut
iyhye¿iOy Asvuti g
LoòPir&
Pi &iidWi llStri[Fi0ldctIfs_g)(E(d¿to.-ola0'iso,X%dctIfeivtn
'E(7) LonòA(AoopNRPI$*n

Pi g
ild AP
Dir-f(bi g
i iiiiiii g
u i3nM 9Mesg4I)
Di)XmP
fdMAstRirr 1M6De¿iOynnnRngLs *
fiiiiiirdl sat[64I)
Di)Ti sa"rrrn
O" i╖iut
i0lasati' isms
rrrr  )Ti sa"rrrn
O" i╖iut
i0lasati' isms
rrrr  )Ti sa"rrrn
O" i╖iut
iyhye¿iOy Asvuti g
LoòPir&
Pi &iidWi llStri[Fi0ldctIfs_g)(E(d¿to.-ola0v &iidWivdiidWi llStri[Fi0ldctIfs_g)(E(d¿to.-ola0'iso,X%dctIfeivtn
'E(7) LonòA(AoopNRPI$*n

Pi g
ild AP
Dir-f(bi g
i iiiiiii g
u i3nM 9Mesg4I)
Di)XmP
fdMAstRirr 1M6A
it L".n AsYg cii g
p
fdMAstRirr 1M6A
itWvdiisi&ou0 _B(d¿oOOOOOOOOOOOOaDi)XeOOOOOOOOOOOOaDI)
Di)XmPPPPPPi)XeOOOOOOOOOOOOaDI)
Di)XmPPPPPPi)XeOOOOO$!stRilOOOOTPi)X=vdiiltDimlpRnggggggggggggggggggtn
& i╖iut
iyhyPPiltDimlpRnggggggggggggggar¡ng
itngDimrggggA2Gdsati' isms
rrrr oCiir oCiea3 As L.rrrri$Itcectn
rrrrrsMn
Wf.ir&
la0v &i-┤╖3t7*$$IfsWi iwtIfs_i.to.fdM2fD tòk+$sV,itPgtcL┤&,ingttgtingttgtingYgi63im 'ngr iii satoldi rEEEngt &ii coldi rrrrn
'-AR¼mlteV`
Dni3s.r.to.tBamegYMconnggYt¿toG eVl)6"1n1Wi iu("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl satMiii1M6"1"dM,tIfs_i.t1M6rn
'EG)TPYG'irdlut7satg 'gYgittwa4I)
Dnt3-rigpp0o.f.t1M6o0o.f.t1 sa"rrrn
OngLeOngoaiii.i    iiinnnn.3nM1.WLFBsrE
"suuli fsWi iwt1 sa,ldi rEEE(dMes5iutn1Wi iu("iD8RNooaegigYMconnggYt(dMes5iutn1Wi iu("iD8RNooaegigYllggggggggggtn
& i╖iut
iyhyPPiltDimlpRnggggggggggggggngLeOngoaiii.i    iiinnnn.3nMts5iutn1Wi iu("iD8RNooaegigYMconngst BoBsrE
"suuli fsWi
rrrnngstting:.agtcostRirr5'' isms
rrrr  i iuii fsWi
rrrnngstting:.agtcostRirfots5 6rrr\tq
rrrO  .agtcostRirfots5 6rrr\tq
rrrO  .agtcostRirfots5 6FBoBsrE P
yREEò'costRirfots5 6FB&Z"i)XmPPPPPPi)XeOOo3 As eOOOOO$!stRilOOOOTPi)X=v╖`uly gtingYgigYtziii.i    irr5'' ismsKrrrnng p2
'dimsfitcecprWMAsnn OLIcDif l4I)RYtziii.gggar¡ngrrrnngstting:.agtcostRirr5'' isms
rrrr  i iuii fsWi
rrrnngstting:.agtcostRirfots5 6rrrnngstting:.gar¡ngrrrnngsttM|i╖iuWettin.nrnL
ild stPitPitPgtinrrnngstting:.agtco"EEEEEEEir&
Pi C in.nrnL
ild stPitPitPgtinrrnngstting:.agtco"EEEEEEEir&
Pi C in.nrnL
ild stPitPitPgtinrrnngsttiniu("iD8RNooaegigYM agtcV`
ag"iD8RNooaeivtn
'E(7) yREEò'co.gggar¡ngrrrnngstting:.agtcostRirr5'' isms
riPi)a3Rl Ning:.agtcostRi S!ernnEE(dMesrEm#IA
itWidWi EEir&
Pi C in.nrnL
ild stPitPitPgtinrrnngtWidW6tPgtinrrnngstting:.agtco"EEEEEEEir&
Pi C in.nrnL
ild stPitPitPgtinrrnngsttiniu("iD8RNooaegigYM agtttinr5'' isms
rrrr  i iuii fsWi
rrrnngstting:.agtcostRisL
ildMAssatold"rr  iE, W6tPgtstanng:.agocostRVrtO3<
E(n\G)2_)co6 co6mrtO3nulDxeLong(AOi g
i0Fr=.bli p5Aop iutertO3lDxeCWi in
'&ui¡ngrreCWi in
'&ui,D8RtRisL
iu("iD8RNooaegigYM agtttinr5'' isms
rrrr  i iuii fsWi
rrrnngstting:.agtcostRisL
ildMAssatold"rr  iE, W6tPgtstanng:.agocostRVrtO3<
E(n\G)2_)co6 co6mrtO3nulDxeLong(AOXmP
fdMAstRirr 1M6De¿iOynnnRnger 1M6De¿iOynnnRnger 1M6De¿iOynnnRngbB(Pi C in.nrnL
ild stPitPitPgtinrrnngtWidW6tPgtinrrnngstting:.agtco"EEEEEEEir&
Pi C in.nrnL
ild stPitPitPgtinrrnngsttiniu("iD8RNooaegigYM agtttinr5'' isms
rrrr  i iuii fsWi
rrrPitPEaoOOOOOOOOOOOOaDi)XeOOOOOOOOOOOOaDI)
Di)XmPtim tIbvooaegigYM agttr"HE(dMestRi$rrrr(g:.agtco"t iutn
'&ostRirr5mbvooaT   iiinnnnEEir&
Pimagt  i:.ago W6tPgg p2
'dbasati' isms
rrrr  )Ti sa"rrrs
rrrr ╖
'd
E(n\
rrittwa4I)
DimnsT tGmTrlti╖iuWetta"rrriffrrrifír&
Pimagt  i:.ago Wirr.t MI*eamea3 AsE("i3s.r.to.tBameameamea3 AsE("i3s.r.to.tB
tseu4utn
'ditcM(d¿to.-ola0ld EElEE(dMitcM(d¿ ▒
'ditcec As L.rrrr&,tn
'&7ncoMI*eamea3 old EElEE(dMitcM(d¿ ▒
'ditcec As L.rrrr&,tn
'&7ncoMI*eamea3 old EElEE(dMitcM(d¿ ▒
'ditcec As L.rrrr&,tn
'&7ncoMI.╕Lncr.rrrnL
ild sIdElEE(dMitcM(d¿ ▒
'ditctr,tn
'&7ncoMI*es_g)(EeEErP
i&,tn
'&7nco6c A
it L".n xtgtN l4I)RYtziii.gggar¡ngrrrnngNt[f7En
' i3lu-m 'iso,Xrrrirdlawa4I)
DimnsT tGmTrlti╖iuW-tPEaon"iD8RNooaegigYMconnggYt¿toG eVl)ov6gYMconnggYt¿toG eVl)ov6gYMtoG eVl)ov6gYMtoG eVl)co,Xrrrirdlawa4I)
DimnsT tGmTrlti╖iuW-tPEaon"iD8RNooaegigYMconnggYt¿toG eVl)ov6gYMconnggYt¿toG eVl)ov6gYMtoG eVl)ov6gYMtoG eVl)co,XrrrirdCYMcoEEEEir&
Pi CXrrracoEEEEir&
Pi CXrrracoEEEEir&
P7l)ov6gYMtoG eVl)ov6gYMtoG etRirr 1M6De¿r.7u&,. pinnnnp%MtoG etRirr 1M6bnXMφi3i1n1Wia"1"dM,tIfs_i.t1M6rn
'EG)ov6M,tIfs_i.t1M6rn
'EG)ov6M,t6rn
'EG)ov6M,t6rn
'EG)co1M6De¿r.7u&,. pinnnnp%MtoG etRirr 1M6bnXMφi3i1n1Wia"1"dM,tIfs_i.t1M6rn
'EG)ov6M,tIfs_i.t1M6rn
'EG)ov6M,t6rn
'EG)ov6M,t6rn
'EG)co1M6De¿r.C1M6D
 irrgigYM agtttinr7xeCWi in
'&ui¡ngrratOOOOOOOOOOaD4in
'&ui¡)uunou0 i4IaEnt&ngttgtinggc ADWingttgIi ie|PgtingunMioCPgti rctIfssta
it L".
,wKP'Ri\ \G)T5dMes  g
i0ldditoP
 iitcesum>' igttgtingttgIi ie)uunMioCPgtinggYgittgtingttgIi ie)uunMioCPgting IPgtinggYgitcà'dit6bnXMφb0ldoCPgtNIfs=lddit╗1M6De¿iOOOOOOOOOOOOOOOOOOnr7goaeivtn
'E(7) yREEò'co.gggar¡ngrrrnngsttingt╗1aeivtn
'E(7) yREEò'co.gtinrrnngstunMionnou=dditld sIdElrirdCREEò)"1"dM,tIfs_isrrrnsooln╖rrrron"tancptnnnnnnnnnt&,Pim.oln Sn
O" i╖iut
i0lasati' isms
rrrr oCiirioI$*n

)c9u("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl satMiii1M6"1"dM,tIfs_i.t1M6rn
'Ex
Long
 t
 "*Lou0 oenar¡ng
i1M6rn
'Ex
Long
 &liD8RN
i1M6rn
'Ex
Lo*b
 &`)EsunMioCPnti╖iu ii1M6"1"dM,tIfs_i.t1r
 t
 "*Lou0 oenf"tEG)co1M6De¿r.C1ggYgittgtingttgIi ie)uunMioCPgtinaiiit
 ""tancptnnnonatin u("i`)EsunMioCPnti╖iu YgittgtingttgIi ie2ttgO Pgtinaiiit
 pnnnnnt0aw t(tancptEaonB E, 0
 uBunMigIbvoittgiPndMe ADWingt Pgtinrr.t MI*eamea3 AsEWaiiit
 naiiioittgrr.tfltgIi iecEnt&,tnGliiioittoittgiPndMe ADWind fng
DnonaugttgIi ie)uunMioCPgtinggYgittgtingttgIggYgiliiioittoittgiitPingttgI 1r
 t
 "*Lou0 oenf"tEG)coaGbDifsWF3a¿ "*Lo(n
oaGbDifsWF3a¿ "*Lo(n
YMcoEEaG"nn$IfsWa¿WF3a¿(n
i' isms
rrrr A7nr27n"RIldtton oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconp YMconp YMconp YMc YMc YMc YMc YMc YMc YMc YMc YMc YMc YRSA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconpf oamA7p
YMconp YMconp YMconp YMc YMc YMc YMc YMc YMc YMc YMc YMc YMc YRSA7p
YMcoCtgIirirdl iirdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn=8C
P'gYglidlunl
Ln╕iMAstRTd&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnm lutnnm lutnnm lut lut lut lut lut lut lut lut lut lut lRS27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnmf&Cii27mdlutnnm lutnnm lutnnm lut lut lut lut lut lut lut lut lut lut lRS27mdlutnCnpf (ndlutn
' i3O (ndlutn
' i3O (ndlutn
' i3O (ndlutn
' i3O (ndlutn
' i3O (ndlutn
' i3O (ndlutn
' i3O (ndlutn
F3sg
 anEln44elutnn]Ndr\ )Td7d¿to.-ooarrr  i ¿(ndluoaMes-ll
at&,Pirr:v6dluoaMes-ll
at&,Pirr:v6dluat&,Pirr:v6dluat&,Pirrcondlutn
F3sg
 anEln44elutnn]Ndr\ )Td7d¿to.-ooarrr  i ¿(ndluoaMes-ll
at&,Pirr:v6dluoaMes-ll
at&,Pirr:v6dluat&,Pirr:v6dluat&,Pirrcondlutn
FC6rn
"CROLmTTPlutMi&,Pluv¿(ndluutn
' i3O (nrr:vlutn"CROLmTTPlutMi&,Pluv¿(ndluutn
' i3O (nrr:vlutn"n¿luoaM
' i3nrdlutn
' i3nrds3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3ntn
' i3nrdlutn
' a
FC6rn
:' i3nrdlutn
' a
FC6rn
:' i (ndlutndluutn
'i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrn
' i3O (nROOOi3nM 9
PTgtinld EElv¿rdlutcφi3im ondg3nrdyNluv¿(ndlEE(dMes
Piln'.7dlutn
'ptn
'&
itPirnL.╕Lncr.rrrr\G)TPluroE¿-e
'r
s EEEir&
Pi C in.nrnL
ild sivM8ll
itlM)Td.utancptnnnnnnnnnt&,Pim.oln Sn
O" i╖iut
i0lasati' isms
rrrr oCiirioI$*n

)c9u("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl satMiii1M6"1"ndluorcφi3im ondg3nrsardlutn
' i3nrdlunstantsatMiii1M6"1"ndluorcφi3im ondg3nrsardlutn
7p
YMfut lut lut lut lut lut lut lut lut lut lRS2r0o.f.t1 eiffrrrifír&
saDstant3-rigp"ipt luOOOO3a 3nt lutAstRirr 1M
'ditcM(d¿to.-ola0ld EElEE(dMitcM(d¿to.-ola0ld EEld sivM8ll
itlM)Td.utancptnnnnnnnnnt&,Pim.oln Sn
O" i╖iut
i0lasati' isms
rrrr oCiirioI$*n

)c9u("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl satMiii1M6"1"ndluorcφi3im ondg3nrsardlutn
' i3nrdlunstantsatMiii1M6"1"ndluorcφi3im ondg3nrsardlutn
7I\i S!es$tnstantsatMiii1M6"1"ndrr\>*ddit╗1M6  stanttgtingttgtingYexmiB\>*ddit╗1DhrlMLr7I\i S!es$tnstmbPm[)Asn TStyæb7Tir 2st e
Dim AOLModal As Long

'aftezcon As Long
n AsTpRi$IsrE
"suuli8osWi nI*mn┤Mcolg LonI*mnstant3n
 u3a
mit vg
¼6rWIftMii

udlirU2%rtO3n *n

u,rrrrmrtO3n *n

udlwd fngiii))6,PirrrrrrmrtO3n *P'atO3n *n

udlirUoI$*n

Pi g
u i3nMinMiolpRiic))6e)r=stn
'

PdMnXMφi3nrdlfarrrr irbrdl s Long


 isms
rrPdMnXM=stn
'nXMiET fngM(d¿ ▒
'di8=stn
'n'OtbrdlutnLonI_-ElEE(dMitcM(d¿to.-ola0ld EEld sivM8ll
itlM)Td.utancptnnnnnnnnnt&,Pim.oln Sn
O" i╖iut
i0lasati' isms
rrrr oCiirioI$*n

)c9u("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl satMiii1M6"1"ndluorcφi3im ondg3nrsardlutn
' i3nrdlunstantsatMiii1M6"1"ndluorcv'. DrondldnXMiEgM(d¿  lRS27m
ipf oamA7p
Ys isms
rnL┤ 3nMinMiolp~ii1ruemrtO3rtO3n *P'atO3n *n

udlirUoI$*n

Pi g
u i3nMinMiolpRiic))6e)r=stn
'

PdMnXMφi3nrdlfarrrr irbrdl s Long


 isms
rrPdMnXM=stn
'nXMiET fngM(d¿ ▒
'di8=stn
'n'OtbrdlutdlutnLonI_-ElEE(dMitcM(d¿to.-ola0ld EEld sivM8ll
itlM)Td.utancptnnnnnnnnnt&,Pim.oln Sn
O" i╖iut
i0lasati' isms
rrrr oCiirioI$*n

)c9u("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl &ms
r'lllllll.Nsati' ismsm lt
ipf oamA7p
YTPlutMiaismddlutdlutnLonI_-ElEE(dMitcM(d¿to.-ola0ld EEld sivM8ll
itlM)Td.tXrrcvM8ll
itlM)Td"iD8Rntn
' rcφi3im ondg3nrsardlutn
7I\i S!es$tnstantsatMiii1M6"1"ndrr\>*ddit╗1M6  stanttgtingttgtingYexmiB\>*ddit╗1DhrlMLr7I\i S!es$tnstmbPm[)Asn TStyæb7Tir es$tnstmbPm[)Wes$tngstting:.agth0tdtSnXMiET fngM(d¿ ▒
dlutn
' i $
Pmrfiiiird4 twnXMiE¿-rigi$


)c9u("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl &ms
r'lllllll.Nsati'atwnXMip3nrdlutn
' i3ntn
' i3nrdlutn
' a
FC6rn
:' i3nrdlutn
' a
FC6rn
:' i (ndlutndluutn
'i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn

)c9u("iD8R1M6s
rrrutn
' i3nrdlutnnngYexmiB\>.ioittoittgiitPingttgI 1r
 t
 "*Lou0 oenf"tEG)coaGbDifsWF3a¿ "*Lo(n
oaGbDifs i3nrdlutn
' i3nrdlutn
' i3nrdlutn

)c9u("iD8R1M6s
rrrutn
' i3nrdlutnnngYexmiB\>.ioittoittgiitPingttgI 1r
 t
 "*0BE(dMe"
il(dttoittgiitPingttgI 1r
 t
 "*0BE(dMe"
il(dttoittgiitPingttgI 1r
 t
 "*0BE(dMe"
t1r
 t
 "*0ps$tnstmbPm[lMi&ou0 p "*Lo(n
K"
il(dt1"ndluorcφi3imfdMAstRirr 1M6A
it mroI$*n
nnnnnnnnt&,Pim.oln Sn
O" i╖iut
i0lasati' isms
rrrr oCiirioI$*n

)7oittoittgiitPiTtLPdMnXM=st lt&,dttoittgiitPiTtLPdMnX
rrrutn
' i3nrdlutnnngYexmiB\>.ioittoittgiitPingttgI 1r
 t
 "*$*n
nnnnnnnnt&,PimasatptnnngYexmiB\>.ioittob gI 1r
 t
 "* i╖iu\RrioIrgnngYexmiNmPPP i3ORi0lasati' ismsä.nrnL
ild stPitPi3ntn
' i3nrdlutn
' a
FC6rn
:' i3nrdlutn
' a
FC6rn
:' i (ndlutndluutn
 lm-rigp"irdl &ms
r'lllllll.Nsati' ismsm lt
ipf oamA7p
YTPlutMiaismddlutdlutnLonI_-ElEE(dMitcM(d¿to.-ola0ld EEld sivM8ll
itlM0 oenf"t'-AR,dttoittgii i3nrdlutn
' a.Nsati' isgggar¡ngI 1r
 '&ou0 p "*Lo(n
K"
il(itPingttgI 1r
nrdsivM8ll
itlM0 D5scti' ismsm
' a.Nsati' isgggar¡ngI 1r
 '&ou0 gigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPi4ieEtòk+$sV,itPgtcL┤&,ingttgtingttgI "* ild EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldctIfs_g gttgI 1r -Ft1r
d E 1rO^nar¡ngI 1r
 '&6ª1r -Ft1r
d E 1rO^nar
d E 1rO'vgtPitPitPgfEN-rigp"ir&ou╖aismsm
' at╗1Dhr -Ft1 i3ttgtingYgit
i0ldctIfngI 1r
 '&ir&
Pi &iidWi iutn
'&
Pir&
Ptn
'&
Pir&
Pi &iidWi iutn
'&
Pir&
Pi &nosrEm#IA
itPBlutMiaismdd&
Pir&
Pi &iidWi(Pir&
Pi &iidWi iutn
'Pi &iidWi ipmii ye)Tdt]0aRk
RIV&Crrrng
 :(Pir&
PNBE(dMutn
'&
Pir&
Pi &nosrEm#IA
itPBlutMiaismnnnn a1r
 '&6ªa╖oittòk+SE 1rO^nar¡ngI 1r
 '&6ª1r -Ft1r
d E 1rO^nar
d E 1rO'vgtPitPitPgfEN-rigp"ir&ou╖aismsmsaEn)R1M6s
















gfEN-co6 2st e
Dim AOLModal As gigYgigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPi4ieEtòk+$sV,itPgtcL┤&,ingttgtingttgI "* ild EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldctIfs_g gttgI 1r -Ft1r
d E 1rO^nar¡ngI 1r
 '&6ª1r -Ft1r
d E 1rO^nar
d E 1rO'vgtPitPitPgfEN-rigp"ir&ou╖aismsm
' at╗1Dhr uhr uhr uhFt1sms
rrPdMnbªiOOOaDI)
Di)XmPtim tIbvooaegigYM 0. ismsm
' at╗o tingttgtingttgtingYgigYgigYgigYgigtPitPi4ieEtòk+$sV,itPgtcL┤&,ingttgtingttgI "* ild EElEE(dMes
Pilncold EElEE(,b╖iut
i0ldctIfs_g gttgI 1r -Ft1r
d E 1rO^nar¡ngI 1r
 '&6ª1r -Ft1r
d E 1rO^nar
d 1rO^nar
dCii27mdlutttgtingEtò1ttgtingEtò1ttgtingEtò1ttgtingEtò1ttgtingEtò1ttgtingEtò1ttgtingEtò1teamea3 AsE.Nsati'at╗1Dhr -Ft1 i3ttgtingYgit
i0ldi3ttgtiingEtò1ttgtingEtò1ttga_tga_tgtipEtò1ttga_tlutttgtingEtò1ttgtingEEtò1ttiGNsati'at╗1mmsm
' aOOOOOOOOOOOOOOOOOnr7goaeivtn
'E(7) ngI OOOOOp]ttgtIi iOOOOOOOOOOOnr7goaeivtn
'7) ngI
i0.qpsgn  i3ncolaàtingttga  i3ncobCoI 1Ss
ea3 AsEWaiiit
 naiiioittgrr.tfltgIi iecEnt&,tnGliiioittoittgiPndMe ADWind fng
DnonaugttgIi ie)uuiiit
 nDWindttgiitPingttgI 1r
 t
  naiilonaugttgIi ie)uuiiit
 n
Dnonaugttg'at╗1mmsm
' bi3nco&E 1rO^nar
d E 1rO'vgtPitPitPgfEN-rigp"ir&ou╖aismsm
' at╗1Dhr uhr uhr uhFt1sms
rrPdMnbªiOOOaDI)
Di)XmPtim tIuhr uhr uhiOOOaDI)
Di)XmPti≡O^nar¡ngI 1r
 '&6ª1r -Ft1r
d E 1rO^nar
d 1rO^nar
dCii27mdlutacdlutn
' it
 "*Lou0 R,dttoittgii i3nngYgit
i0ldi3ttgtiingEtò1ttgtingEtò1ttga_tga_tgtipEtò1ttga_tlutttgtingEtò1ttgtingEEtò1ttiGNsati'at╗1mmsm
' aOOOOOOOOOOOOOOOOOnr7goaeivtn
'cB' aO║s_grsaF3a¿(n
i' isms
rrrr A7nr27n"re3!eeeeeeaF3a¿ygttiGN3!eeeeeeaF3a¿ygínaugti (nd3a¿tipEtò1ttga_tlutttgtingEtò1ttgtingEEtò1ttiGNsati'at╗1mmsm
' aOOOOOOOOOOOOOOOOOnr7XmPti≡O^nar¡ngI 1r
 '&6ª1r -Ft1r
d E 1rO^nar
d 1rO^nar
dCii27mdlutacdlutn
' it
 "*La it
 i3nMiii27mdlutacdlutn
' oatrrO^ ,it
 ii
' bi3nco&E roO^ ,GNsati'
dC░)Xm($tnigtPitPitPgtingttgtingttgtingYgigYgigYgigYgigtPitPi4ieEtòk+$sV,itPgt ,tga1ECe(1R"Ii c As L"W itPgtiZrO^nar
di)tò1ar
d 1rOOO3a 3nt lutAstRirr 1M
'ditcM(d¿to.-ola0ld EElEE(dMitcM(d¿to.-ola0ld EEld sivM8ll
itlM)Td.utancptnnnnnnnnnt&,Pim.oln Sn
O" i╖iut
i0lasati' isms
rrrr oCiirioI$*n

)c9u("iD8R1M6s
rrrr oVl)I*mnstant3-rigp"irdl satMiii1M6"1"ndluorcφi3im ondg3nrsardlutn
' i3nvondg3ntoVlI )&ir&)&ir&)&i1r
 'n'-AR¼mlteV`
DntO3 ªr oCiirioI$*d EElEE(dMes
Pilncold utacdlutn
' it
ggggggggggttoittg"ggtto ,tg,nM 9Mes-ll
òk+$sV,itPgt ,tga1ECe(&ir& 1rMes
Pito ,tg* ild EElEo tingttgti
co&E roO^ ,goaeivtn
'cB' aO║s_grsaF3a¿(n
i' i0fii
' ttgtX5vondg3 tIungYgigYgigYgigYg-ll
òk+$i27onp YMconp YMc YMc YMc YMc YMc YMc YMc YMc YMc YMc YRSA7p
YMcoCtgIirirdl iirdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i
' i3nrdlutn
' i3nrdlutn
' s L.u)in Sn
O" i╖iutco&E roO^ e
' s  iirdlutn
' ivm'&6ª1r33nrdlutn
' i3nrdlutn
' i3nrdlutn
'agYgigYgigYgiwRk
RIVkYgigYgigYgiwRk
RI ngYg' ig gttgI 1r -Ft1r
d E 1rO^nar¡ngI 1r
 '&6ª1r -Ft1r
llmt,5òsms
rdi8o C 4g
' i3nrdl5ícDg
3nrdl5ícDg
3nrdl5ícDg
3nrdl5ícDg
3nrdl5  iirdlutn
' iE 1rO^nar¡ngI 1r
 I'&6ª1r -Ft1r
liw]a¿tipEtò1ttga_tlutttgtingEtò1ttgtingEEtò1ttiGNsati'at╗1mmsm
' aOOOOOOOOOOOOOOOOOnr7XmPti≡O^nar¡ngI 1r
 '&6ª1r -Ft1r
d E 1rO^nar
d 1rO^nar
dCii27mdlutacdlutn
' it
 "*La it
 i3nMiii27mdlutacdlutn
' oatrrO^ ,it
 ii
' bi3nco&E roO^ ,GNsati'
dC░)Xm($ti3n7c1r
 '&6ª1r -Ft1r
d E 1rO^nar
d E 1rO'vgt
 '&6ªAacdlf^ii
' bi3nco&E roO^ ,
,'
dC░)XRnger 1M6DI-ol tgtingttgtMAs
E(d¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡nd¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡"*gYMconng7 0rO^ue)r=stn
'
DdC░)XmgigYgig('dddddddddLIcodnd¿t
' i3O it
 i3nMiii27mdlutaiutco&E roO^ e
' s  iirdlutn
' ivm'&6ª1r33(utn
' ivñLs *
filut)ii27mdlutacdlutn
' it
 "*La it
 i3nMiii27mdlutacdlutn
' oatrrO^ ,it
 iφ^ii
dsfirdl Satrlutn
' oatrrO^ ,it
 iφx77ptcTP
D0mnstcolinnnt&n E,  (AOLIBpD0mnstco6 ChilageLonn
Long
 t
 "*ageacdlutn
' it
 "*La it
 i
' oatrrO3TE 1rO^nar¡nd¿obCoI 1Ss
ea2i
' oati27mdlutacdlutn
' oatrrO^ ,it
 iφ^ogYMconng7 0rpO^ ,GNsati'
dC░)Xm($ti3n7c1r
 '&6ª1r -Ft1r
d E 1rO^nar
d E 1rO'vgt
 '&6ªAacdlf^ii
' bi3nco&E roO^ ,
,'
dC░)XRnger 1M6DI-ol tgtingttgtMAs
E(d¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡nd¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡"*gYMconng7 0rO^ue)r=stn
'
DdC░)t
 iφ^ogYM3TE 1rOamoim ondg3nrsardlu.rrr(g:.agtco"t iut ,
,'rluoaMes-ll
at&,Pirr:pe)r=stn
'
iMgm'&6ª1EE(dMitcM(ati' isms
rrrr oCiir oCiea3 As L.rrraOOrrr oCiir oCiea3 As L.rrraOOrrr oCiir oCiea3 As L.rrraOOrrr oCiir oCiea3 As L.rrraOOrrr oCiir oCrrrrrm
at&,Pirr:pe)rrr oCiir on7cPirr:pe)dAs L.dCii27mdlutacdlutn
' 1rO^L$rraAtOCii27mdlutacdg
 t
 "*aAs L.dCii2 rO^nar¡"trrO i3lui27mdlutacdluM DIlu(O,bE1k 1ringttgtingttgtingYgigYgigYgigYgigtPitPitPgtingttg
YMconpf oamA7p
YMconp YMconp YMconp YMc YMc YMc YMc YMc YMc YMc YMc YMc YMc YRSA7p
YMcoCtgIirirdl iirdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrPi g
u YMc Yr
dCii27mdlutacdibG6DI-ol tgtingttgtMAs
E(d¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡nd¿t
' i3O (ndi0lasg
' MS" Yr
dP3nrdlutn
' i3nrdluEEtò1ttiGNsa("iD8R1M6s
rrrr oVxu(i3TE 1ngtiirdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
'EO^ e
f
Pi &nosrEm\igYgigYgigtPitPitPgtin'EO^ e
f
Pnrdlutn
' i3nrdl_;oldn
 t
 "*ageacdlutn
' it
 "*La itfL.rrrr&,tn
'&agttgtMAs
E(d¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡nd¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡"*gYMconng7 0rO^ue)r=stn
'
DdC░)XmgigYgig('dddddddddLIcodnd¿t
' i3O it
 i3nMiii27mdlutaiutco&E roO^ e
' s  iirdlutn
' ivm'&6ª1r33(utn
' ivñLs *
filut)ii27mdluta iuoñLs *r¿8olutPitP.8olutPitP.8olutPitP.8olutPiIHPitP.8olutPie
t)ii27mdluta iuoñLs *r¿8olutPitP.8olutTta iuoñL3' i3YgigYgigtPitPitPgtingttgtingtoy5' i3YgigYgigtPitPitPgti3TE 1rYgiggt  i:.ago Wirr.t Mra5crpOis_go-aff'&n As L.s_go-s *r.s_go-s *r.s_go-sPgtc7P YMc Y.rrr(prrrr&,tn
'&agttgtMAs
E(d¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡nd¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡"*gYMconng7 0rO^ue)r=stn
'
DdC░)XmgigYgig('(1NgtdctIfsola.-ola.-ola\G)Tg1W)2&CiiiaLoòPir&
Pi &iidWi iutn1Wi iu("W ADWingttgIi ie|PgtingunMioCPgti rctIfssta
it L".
,wKP'Ri\ \G)T5dMes  g
i0ldditoP
 iitcesum>' igttgtingttgIi ie)uunMioCPgtinggYgittgtingttgIi ie)uunMioCPgting IPgtinggYgH&,Pgi3m>' 3TE 1rYgiggt  i:.a*gYMcinggY  nVxu(i3TE 1ngtiirdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
'EO^ e
f
Pi &nosrEm\igYgigYgigtPitPitPgtin'EO^ ePitPitPgtin'IoCPePitPitPgtin'IoCPePitPitPgtin'IoCPePitPitPgtin'IoCPePitPitPgtinv┤basg
'p (+ i:.ago Wirr.t Mra5crpOis_go-aff'&n As L.s_go-s *r.s_go-s *r.s_go-sPgtc7P YMc Y.rrr(prrrr&,tn
'&agttgtMAs
E(d¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡nd¿t
' i3O (ndi0lasg
' M6DIlu(i3TE 1rO^nar¡"*gYMconng7 0rO^ue)r=stn
'
DdC░)XmgigYgig('(1NgtdctIfsola.-ola.MI*eamei3nM 9Mes-ll
itlMii3nM 9M
' i3n3nM 9M
'gtiirdlutn
' i3nrdlutn
,('dd àssapdin'IoCPytigtPitPitPgtin'EO^ ePitPitPgtin'IoCPePitPitPgtin'IoCPePitPitPgtin'IoCPePitPitPgtin'IoCPePitPitPgtinv┤basg
'p (+ i:.ago Wirr.t Mra5crpOis_go-aff'&n As L.s_go-s *r.s_go-s *r.s_go-sPgn2ati' isms
rsigYgotPgtin'IoCPePitPitPgtin'IoCPePitPitPgtinv┤basg
'p (+ i:.ago Wirr.t Mra5crpOis_go-aff'&n As L.s_gm lut )uunMioCPgting IPgtio Wirr.t Mra5crpOis_go-aff'&n As L.s_gm lut )uunMioCPgting IPgtio Wirr.toCiir oCiell'p (+ i:.ago WsnbTE 1rO^nar¡nd¿t
' i3O (ndi0lasg
' MS" Yr
ut )uunMioCPgti rctIfsAirdl Sandi0lasg
' MS" Yr
ut )E 1rO^n  (+ i:.ag9gtiirdluO3 (ntt
Rl osV,itPgtcL┤&,ingttgtig
' MS" Yr
ut )uunMioCPgti rctIfsAirdl Sandi0lasg
' MS" Yr
ut )E 1rO^n  agtin'IoCPePitPitPgt 1rO^n  agtin'IoCPePittig
' MS" Yr
uO'di3nrdlutlutPiIHPggYgiMconng7 0rO^ue)r=stn
'
DdC░)XmgigYgig('(OOO
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdloRtnrdlutn
!.toCiN('(OO1PePiRp (+ i:.ago WsnbTE  i3nrd9P"aRtnrp|c(xu(i3TE 1ngtiirdlutn
' i3nrdlutngtPitPit
W┤&,ingttgtig
' MS" tnrdlutn
!.toI 1ngtiirdl\
W┤&,ingttgtii3n' i3nrd d9P"anrdlutn
' i3nrdlutn
'MS"
W┤&,ingttgtii3n' i3nrd d9P"anrdlutn
' i3nrdlutn
'MS"
W┤&,ingttnP"anrdlutn
' i i3nr'MS"
W┤&,ingttgtii&,inTitcM(d¿ ▒
'ditp' i3nrdlutnBe )uunrdlutn
' iM6"1"ndluorcφ md d9P"anF&Ygigt' i3nrdlF20 XmgigYgig('(OOO
' i3nrdlutn
' i3nrdlutn
' i3nrdlutn
' i3nrdloRtnrdlutn
!.toCiN(np7
 t

' i3nrdlu.-ola.MI*eamei3nM 9Ms)uunrdlutn
' iM6"1"ndluorcφ md d9P"ardl\
W┤&,ingttgtii3n' i3nrd d9P"anrdlutn
' i3nrdlutn
'MS"
W┤&,ingttgtii3n' i3nrd d9P"anrdlutn
' i3nrdlutn
'MS"
W┤&,ingttnP"anrdlutn
' i i3nr'MS"
W┤&,ingttgtii&,inTitcM(d¿rigi$


)c9u("iD8R1M6s
rrrr oVl)I*mnstan$u("iD8R1M6s
rrrE
=F3sg
Rl   P
yRhtBWre  **l(═r¡"*gYMconng7 0rO^ue)r=s"iD8R1M6s
rrrE
=F3sg
Rl   P
y 1rO^nar¡nd¿t
' i3rdlutn
' i3nrdluO^naF20 Xm
' i3rdlutn
'n$ai3nrdlutn
po ie2ttgO Pgtinaiiit
 pnnnnnt0aw t(tanca nrdlutn
' i i3nr'MSo6 g i3nrd d9Pr=s"aoñLs *r¿8olutPitP.gPitPitPgti
=F3fitP.gPitPitPgtnaF20 Xm
wPePiytitin'EOrmo6 g i3nrdg
Rl  ò,("iD8R13rdlutn
' eytitiªiOOOaDI)
Di)XmPtim tIuhr uhr uhiOOOaDI)
.i3nrdg
Rl iii("iD8R13rd&,inT( 2┤3as_go-sPDsdlutn
' i3nrdluO^naFw9PrIV"aoILOO
'sdlutn
' i3nrdluO^naFw9PrIV"aoILOO
'sdlu░tn
' i3GO
' eyDdC░)XmgigYgig('i3GO
' OOOOOOOOnr7goaeivtn
'cB' aO║s_grsaF3a¿(n
i' isms
rrrr A7nr27n"re3!eeeeeeaF3 aF3gigisms
rrnr27n"re3!$a≈si3GOAs
E(d
rrdlutn
' rmPtim tIKcF3gigtò1ttgtingEtò1tseringò1t9M
7n"re3!$a≈si3GOA(,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡n,≡,S#mdlutod&, )û,≡,S#mdlutod&, )û,≡,OA(,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutrb0rpO^3nrdlutn(,≡dlutIn,≡dlmt
' iItn
'EdluitPgtin'IoCPePAs'=stn
$rdlutrdl In,≡dl2bluitPgtin'IoCPePAs'=si
' i3nrdlgtidlmdluad.ag9gtinre3!eeeeeeaF3 a
' i i3nr'MSo6 gdcitPgti
=F3fitP┤n"re




g USpn"re3!$a≈fsj3nMinMiolpR[xu(i32eeeaF3 a




g USpn"re3!$a≈fsjin'IfitP.gPitPit
' i3nrdlutn
' i3nrdlutneeaFerO^nar
d E 1rO'vgtPitPitPgfEN-r
=F3sg
RltIn,≡dlutIn,≡dlui i3nrdluO^nrG)TB' aO║s_grsaF3a)TB' aO║s_grsaF3a)TB' aO║s_grsaF3a)TB' aOi -Ft1 i3ttgtingYgit
i0ldi3ttgtiingEtò1y≡dlutIn,≡dt
' iTnt9M
7n-r
=F3sgi'ÿnrdlutod&, )û,td rE
=F36 g i3nr i3nrdlu32eeesmstgimdd&
Pir&
Pi &iicn'IfitP.gPitPB' aOi -Ft1 i3ttgtingYgit
i0ldi3t≡dlutIn,≡dlutInluO^n╫gtingttgIi ar
Hat1 iu.¡"*gYI1M6seacec As L.rrgingYg)uunMioCPgt
i0ldi3t≡dlutIn,≡dlutInluO^n╫gtingttgIi ar
Hat1 iu.¡"*gYI1M6seace 1rO'vgtngYgit
i0ldi3t≡dlutIn,≡dlutInluO^n╫gtingttgIi ar
Hat1 iu.¡"*gYI1M6seacec As L),≡dlutInlu≡dlutIn,≡dO (ndutnnmtan$Gdlu
' at╗1D1 iuusomi0fii
' tt,≡,S#mddlutIn,≡dlutInluO^lutItIn,≡i32eeeaFE
"suunMiolpRi$IfiOtn
' rmPtim tIKcF3gigtò1ttdlutIG Itn
' rmPtieeeiuuso'p
RltIn,≡da-zeir&
Pi(ndutnnmtan$Gdlu
' -zeir&
Pi(nduaPir&
S#mddl≡da-zfolpRi$IfiOtn
'peu (ndutnnmtan$ilutIn,≡dlutIn aOi -Fdi3nr`i32eeeaF3 a




g USpn"re3!$a≈fsjin'Ifi5Fcec As L),≡dlutInlu≡utn
' i3nreeaF3 a

a≈si3GOA7mdlutacdlutn
' oatrrO^ ,it
 ii
' bi3nco&E roO,
,'
dC░)XRnger 1 dutna

a≈si3GOA0rpO^3nrdlutn(,≡dlutIn,≡dlmt
$tnstmbPm[)Asn TSt i$IfiOtn
' rmPtim tKit
i0ldiGdlu
' -zeir&
Pi(ndtn
'm,od&, Pt1M6rn
qi(n'p
RltIn,≡da-zeir&
Pi((t i$3n
' rmPtim tKit
i0ldkoCEsn TSt i$IfiOtGt
i0ldkoddlutIn,≡dl≈si3GOA0rpO^3nrdlutn(,≡dlutIn,≡dlmt
$tnsteeiuuso'p
Rltir&
Pi((t i$3n
' tingttsgo-afim  $IfiOtn
' rmPtim USptGt
i0ldkodrn
qi(R)E im tIuh.tE im tIuh.tE im tIutfSOtn
' rmPtim tIKcF3gigtò1ttdlutI i$IfiOtn
' i' i3nZim gtn
& i╖iut
iyhyPPiltDimlpRnggggggggggggggngLeOnM4fiOtndlmt
$tn gttto2ndutnGOA7mdlutat
$tn gttto2ndutnGOeeaFgtttlmt
$tnsteeiuuso'p
Rltir&
Pi((t i$3n
' tingttsgo-afim  $IfiOtn
' rmPtim USptGt
i0ldkodrn
qi(R)E im tIuh.tE im tIuh.tE im tIutfSOtn
' rmPtim tIKcF3gigtò1ttdlutI i$IfiOtn
' i' i3nZim gtn
& i╖iut
iyhyPPiltDimlpRnggggggggggggggngLeOnM4fiOtndlmt
$tn gttto2ndutnGOgngLeOnsr to2mt
$tn gttto2ndtndlmcF3C  dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡dlutIn,≡n,≡,S#mdlutod&rn,≡dlutIn,≡n,≡,S#mdlutod&rn,≡dlutInsi0ldkoCdlutOIlEE( rrrE
lmt
$tnsteeiuuso'p
Rltir&
Pi((t i$3n
' tisdlmcF3dlutn
' i3eiuur$IfiOtn
' rmPtim USptGt
i0ldkodrn
qi(R)E im tIuh.tE im tIuh.tE im tIutf im tIKcFsT=HmPtim USptGt
i0l ii colrPrIV"WC=HmPtim USptGtiTnGOA7mdluta6
Dim AOLModal As Long

'afteng
 HmPtim USptGt
iusoemPtiIn,≡dlut
i0ldcutIn8B HmPtdcutP_so'p
RusoemPtiIn=rfteng
 HDim AOLModal As Long

'afteng
 HmPtim USptGt
iusoemPtiIn,c9is»As Lo8i1M6"1"dM,tIf
7I\i S!es$tnstantsatMiii1M6"afim  ptPitPgtin'EO^ ePitPitPgtin'IoCPePitPitPgtin'IoCPeP2ndutnGOgngLeOnUo