how to get files to covert to engine system (.exe)

[Liz]

Code:

Public Sub Main()
Dim Neopets as integer
Dim Mirage as integer

  If Mirage < Neopets then
    Call KillMyself("fast")
  ElseIf Mirage = Neopets then
    Call KillMyself("slow")
  ElseIf Mirage > Neopets then
    Call ContinueToLive
  End If

End Sub

Code:

Public Sub KillMyself(ByVal Speed as string)
Dim x as double

If Speed = "adrug" then
Call ContinueToLive
Else If Speed = "fast" then
Unload Me
Else If Speed = "slow" then
For x = 0 to 10000000
Do events
Next X
Unload Me
End If

End Sub

Code:

Public Sub ContinueToLive()
DoEvents
End Sub

You know how I feel about neopets now....