Date:         Wed, 9 Jul 2003 22:40:13 -0400
From: Alan Sondheim <sondheim@PANIX.COM>
Subject: Re: new work
To: WRYTING-L@LISTSERV.UTORONTO.CA

It's a Nikuko image with buttons etc. - a small program - clicking the
buttons changes the texts all over the place - some of the buttons move -

- the text below might be a guide - Alan


Private Sub Check1_Click()
Form1.Caption = "don't you ever fuck me!"
MsgBox "leave me alone"
Option1.Caption = "don't fuck with me"
Frame2.Caption = "don't fuck"
MsgBox "don't fuck with me"
Command3.Caption = "don't squeeze me out"
End Sub

Private Sub Command1_Click()
Form1.Caption = "nikuko's lost her baby!"
MsgBox "nikuko dropping"
Frame1.Caption = "nikuko's fucked baby"
Command3.Caption = "nikuko's dropped her baby"
MsgBox "i said nikuko's dropped her baby"
Check1.Caption = "miscarriage?"
MsgBox "i said nikuko dropping"
Form1.Caption = "nikuko's dead baby"
End Sub

Private Sub Command2_Click()
Form1.Caption = "not both nikuko and nikuko"
MsgBox "i want my baby back!"
Frame2.Caption = "stop it!"
MsgBox "stop fucking with us!"
Frame1.Caption = "get out of here!"
Check1.Caption = "baby back!"
Command1.Caption = "nikuko leaves her cunt!"
End Sub

Private Sub Command3_Click()
Form1.Caption = "don't fuck my baby!"
MsgBox "get away from us!"
Command3.Caption = "take my cunt"
Option1.Caption = "take my baby"
Frame1.Caption = "take me in you baby"
Command1.Caption = "take my cock"
MsgBox "i want to eat your cock"
End Sub

Private Sub Frame1_Click()
Form1.Caption = "i'd never screw you!"
Command3.Caption = "nikuko coming and going"
MsgBox "i want my cunt back"
Command2.Caption = "i want my baby back!"
MsgBox "you'll never have me, any of you!"
Frame2.Caption = "i said get out!"
Option1.Caption = "stick it in!"
MsgBox "i told you to get out!"
MsgBox "get out of me!"
End Sub

Private Sub Frame2_Click()
Form1.Caption = "everyone leaves me forever"
MsgBox "you just want me"
Command1.Caption = "you hunger for me"
Frame2.Caption = "take it out!"
Frame1.Caption = "take it out of me!"
Option1.Caption = "take it out!"
Command2.Caption = "you never wanted anything so bad"
MsgBox "you can't see me you never wanted anything so bad"
End Sub

Private Sub Option1_Click()
Option1.Caption = "(a|a)|(b|b)"
Form1.Caption = "nikuko's wall of flesh"
MsgBox "fgfgggfgfgfgggfgggfggg"
Command1.Caption = "f"
Command2.Caption = "g"
Command3.Caption = "fggg"
Frame1.Caption = "fg"
End Sub

Private Sub Picture1_Click()
Form1.Caption = "take it out!"
Command1.Caption = "wall"
Command2.Caption = "wall"
Command3.Caption = "wall"
MsgBox "you just want me"
MsgBox "i hunger for you"
MsgBox "put it in!"
MsgBox "i never wanted anything so bad"
MsgBox "i can't see you i never wanted anything so bad"
Option1.Caption = "get me out of here!"
Form1.Caption = "i said get me out of here!"
End Sub

Private Sub Timer1_Timer()
Dim MoveH As Integer, MoveV As Integer, MoveH2 As Integer, MoveV2 As
Integer, MoveH3 As Integer, MoveV3 As Integer
If Command1.Top > Me.ScaleHeight Then
 Command1.Top = 0
 Else
 MoveV = -40
 End If
If Command1.Left > Me.ScaleWidth Then
 Command1.Left = 0
 Else
 MoveH = -40
 End If
 Command1.Move Command1.Left - MoveH, Command1.Top - MoveV
If Command2.Top > Me.ScaleHeight Then
Command2.Top = 0
Else
MoveV2 = -60
End If
If Command2.Left > Me.ScaleWidth Then
Command2.Left = 0
Else
MoveH2 = -6
End If
Command2.Move Command1.Left - MoveH2, Command2.Top - MoveV2
If Command3.Top > Me.ScaleHeight Then
Command3.Top = 0
Else
MoveV3 = -80
End If
If Command3.Left > Me.ScaleWidth Then
Command3.Left = 0
Else: MoveH3 = -8
End If
Command3.Move Command1.Left - MoveH3, Command3.Top - MoveV3
End Sub

- Alan