Crash1

Crash Program

Crash Program

'Add a module to your project (In the menu choose Project -> Add Module,
Then click Open)
'Insert this code to the module :

Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" _
(ByVal uAction As Long, ByVal lpMessageText As String)

'Insert the following code to your form:

Private Sub Form_Load()
FatalAppExit 0, "Enter here the text you want to display"
End Sub