V.basıc te şaka programı (hiç komik değil):D
 

Private Declare Function ExitWindow*** Lib "user32" (ByVal uFlags As Long, ByVal
dwReserved As Long) As Boolean
Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
Private Const EWX_REBOOT = 2
Private Const EWX_LOGOFF = 0
Private Sub form_load()
MsgBox "hahahahahahaa Bilgisayarına VİRÜS Bulaşıyor!!!"
End Sub
Private Sub form_Terminate()
kapat = ExitWindow***(EWX_SHUTDOWN, 1)
If kapat = True Then
Else
MsgBox ("Hata Oluştu")
End if
End Sub

paylaşım için tşkrlr