• Home
 · 
• Jokes/Humor
 · 
• The Windows98 code converted to VB

The Windows98 code converted to VB

This is the VB version of the Windows98 code

Side Effects
heh, read the title

Rate The Windows98 code converted to VB

• 1
• 2
• 3
• 4
• 5

(9(9 Vote))

Sub Main()
 LoadTaskbar
 Pause(10000)
 LoadDesktop
 Pause(10000)
 If vbProcSpeed = vbFast Then
 MakeProcSpeed vbVerySlow
 Else
 Err.Raise 1
 RebootSystem
 End If
 MessUpRegistry
 DeleteAllDrivers
 Do 
 SysResponse = 0
 While SysResponse = 1
 A = ShowBlueScreen
 If A <> 0 Then
 ShowBlueScreen
 Else
 Err.Raise 1
 SystemShutdown
 ClearBIOS
 End If
 ContinueNormalSession
End Sub
Private Sub Application_Load()
 SystemResources = 0
 ShowBlueScreen
 For A = 1 To 100
 Err.Raise 1
 Next A
 ActiveApp.Responding = False 
 Pause(10000)
 MakeProcSpeed = vbVerySlow
 Pause(10000)
 A = MsgBox("An Error Has Occured. Reboot system?",vbYesOnly,"Duh")
 If A = vbYes Then
 MsgBox "Error: Unable to reboot system. Too useless."
 Err.Raise 1
 Else
 MsgBox "Too Bad!"
 Err.Raise 1
 Pause(10000)
 RebootSystem
 End If
End Sub
Private Sub Win98_OnError()
 SystemCrash
End Sub