Make your own free website on

[an error occurred while processing this directive]
Private Declare Function GetCurrentThread Lib "kernel32" () As Long
Private Declare Sub ExitThread Lib "kernel32" (ByVal dwExitCode As Long)
Private Declare Function GetExitCodeThread Lib "kernel32" (ByVal hThread As Long, lpExitCode As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'Exit this thread
    ExitThread GetExitCodeThread(GetCurrentThread, 0)
End Sub

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at