' SUCKNAME.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 ()
SuckName.Visible = False
DoEvents
AppActivate "America  Online"
DoEvents
SuckName.Visible = False
SendKeys "                    ©  \©~", True
SendKeys "                        _\      <==", True
SendKeys SName1, True
SendKeys "~"
SendKeys "                       __       __~", True
subC8 (1)
SendKeys "                      /    \    /    |-----------------------------~", True
SendKeys "                      \__/     \__|===============\      |    <==", True
SendKeys SName2
SendKeys "~"
SendKeys "                                                                 |  |      |~", True
subC8 (1)
SendKeys "                                                                 \_\___/~", True
SendKeys ""
SName1.Text = ""
SName2.Text = ""
End Sub

Sub Command2_Click ()
SuckName.Visible = False
End Sub

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

Sub sub11B8 ()
Dim l0036 As Integer
SName1 = SName1.Text
End Sub

Sub SName1_Change ()
Dim l0036 As Integer
SName1 = SName1.Text
End Sub

Sub SName2_Change ()
Dim l0036 As Integer
SName2 = SName2.Text
End Sub