إظهار نافذة الخطأ البيضاء

هذا الكود يستخدم لاظهار نافذة الخطأ البيضاء المخيفة الخاصة بالويندوز

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

Private Sub Form_Load() 
FatalAppExit 0, "Contactez le revendeur de ce programme" & vbLf & vbLf & "(Cette source provient de http://www.vbfrance.com/)" 
End Sub