' MACRO.FRM
Option Explicit
Declare Function SetWindowPos Lib "User" (ByVal p1%, ByVal p2%, ByVal p3%, ByVal p4%, ByVal p5%, ByVal p6%, ByVal p7%) As Integer
Const c0020 = 3 ' &H3%
Const c0022 =-1 ' &HFFFF%

Sub Command1_Click ()
    DoEvents
    AppActivate "America  Online"
    DoEvents
    SendKeys "                                 ROFLMAO{ENTER}", True
    SendKeys "       / /\ \___nn_   ,,_|\_             _/|_,,  . nn____/ /\ \{ENTER}", True
    SendKeys "  ,--/-/   \____\ \_{)}=\_o_\\\       //o__/={(}_/ ./____/    \-\--,{ENTER}", True
    subC8 (1)
    SendKeys "    ŻŻ              Ż                                  Ż               ŻŻ{ENTER}", True
    DoEvents
End Sub

Sub Command10_Click ()
DoEvents
AppActivate "America  Online"
DoEvents
SendKeys "                {(}  {}} ~ ", True
SendKeys "       ===   /\\               Got to take a shit...brb~", True
SendKeys "       |    |  /  /\\~", True
subC8 (1)
SendKeys "       |__|   L_==n~", True
SendKeys "         L|{)}   ||~", True
SendKeys "            {)}{(}     |L~", True
End Sub

Sub Command11_Click ()
FireName.Visible = True
End Sub

Sub Command12_Click ()
GunName2.Visible = True
End Sub

Sub Command13_Click ()
DoEvents
AppActivate "America  Online"
DoEvents
SendKeys "It's time to go out with a bang instead of a whimper...~", True
subC8 (2)
SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~"
SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~"
SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~"
SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~"
SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~"
SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~"
SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~"
SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~"
End Sub

Sub Command14_Click ()
DoEvents
AppActivate "America  Online"
DoEvents
SendKeys "o o~", True
SendKeys "_~", True
End Sub

Sub Command15_Click ()
DoEvents
AppActivate "America  Online"
DoEvents
SendKeys "o |~", True
SendKeys "\|/~", True
SendKeys "/\~", True
End Sub

Sub Command2_Click ()
DoEvents
AppActivate "America  Online"
DoEvents
SendKeys "                               |~", True
SendKeys "                              |.|~", True
SendKeys "                              |.|~", True
subC8 (1)
SendKeys "                             |\./|~", True
SendKeys "                             |\./|~", True
SendKeys "                .\           |\./|           /.~", True
subC8 (1)
SendKeys "                \-.\        |\\.//|        /.-/~", True
SendKeys "                \--./\      |\\.//|      /\.--/~", True
SendKeys "                 \--.| \    |\\.//|    / |.--/~", True
subC8 (1)
SendKeys "                  \---.|\    |\./|    /|.---/~", True
SendKeys "                     \--.|\  |\./|  /|.--/~", True
SendKeys "                        \ .\  |.|  /. /~", True
subC8 (1)
SendKeys "                _  -_-   \ \\ // /  -_- _~", True
SendKeys "               - -/_/_/-    | |    -\_\_\- -~", True
End Sub

Sub Command3_Click ()
Dim l002E As Variant
Macro.Visible = l002E
End Sub

Sub Command4_Click ()
FingerName.Visible = True
End Sub

Sub Command5_Click ()
SuckName.Visible = True
End Sub

Sub Command6_Click ()
DoEvents
AppActivate "America  Online"
DoEvents
SendKeys "               ___~", True
SendKeys "              /      \~", True
SendKeys "             |        |~", True
subC8 (1)
SendKeys "             |   {(}O{)}{(}O{)}~", True
SendKeys "           @    .__{)}~", True
SendKeys "             |  |\___|~", True
subC8 (1)
SendKeys "             |   \__/         |\/\/\/\/|~", True
SendKeys "            /-------\          |        |     |------------------|~", True
SendKeys "           /   /{^}\   \         |        |     |THAT'S NOT A|~", True
subC8 (1)
SendKeys "          /   |   /\  \        |    {(}o{)}{(}o{)}   |BUTTERFINGER!|~", True
SendKeys "         |     \ /  \  |       @      _{)}   |------------------|~", True
SendKeys "         |       \   \ |\       | L___|  /~", True
subC8 (1)
SendKeys "         |         \   \ \      |    /~", True
SendKeys "         |           \   \ \  /    |\~", True
SendKeys "         |{~}{~}{~}{~}  UU U \|  \  \\~", True
subC8 (1)
SendKeys "         \        /| /         ,/\  \\~", True
SendKeys "          \      // |            /  \  \\~", True
SendKeys "          |     ||  \    _ _/    \  \\ \\~", True
subC8 (1)
SendKeys "          |     ||   |  //     |---uuuuu----------|~", True
SendKeys "          |     ||   |  ||      !---|-|-----------|-|--!~", True
SendKeys "          |     |    |  |____   |-|           |-|~", True
subC8 (1)
SendKeys "          |      \__|_______\~", True
SendKeys "          |_________{)}~", True
End Sub

Sub Command7_Click ()
GunName.Visible = True
End Sub

Sub Command8_Click ()
DogName.Visible = True
End Sub

Sub Command9_Click ()
DoEvents
AppActivate "America  Online"
DoEvents
SendKeys "                |\/\/\/\/\/\|~", True
SendKeys "                |           |~", True
SendKeys "                |           |~", True
subC8 (1)
SendKeys "                |      {(}o{)}{(}o{)}~", True
SendKeys "                C        _{)}     ____________________~", True
SendKeys "                 |   ,___| ___| Don't have a cow Man.  |~", True
subC8 (1)
SendKeys "                  |__/     \   She just lost her pacifier.  |~", True
SendKeys "                  /    \      ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ~", True
SendKeys "                 /      \~", True
subC8 (1)
SendKeys "                |   |     |   _|\/ \/ \_~", True
SendKeys "                |   |     |   \          /~", True
SendKeys "                |__|-----|    {(}o{)}{(}o{)} <_~", True
subC8 (1)
SendKeys "                 ||||      |__-_C       /~", True
SendKeys "                   \      ____{)}--{(}    \~", True
SendKeys "                    |   {(}{)}{(}{)}    \__/---'~", True
subC8 (1)
SendKeys "                    |    |      /{^}{^}{^}\~", True
SendKeys "                    |    |    /    \  \~", True
End Sub

Sub Form_Load ()
Dim l0046 As Integer
l0046% = SetWindowPos%(Macro.hWnd, c0022, 0, 0, 0, 0, c0020)
End Sub