Evet arkadaşlar... İlk önce 1 adet Command Button ekliyoruz. Caption Özelliğini "Başla!", Name özelliğini "Basla" olarak ayarlıyoruz. Form'umuza gelelim... Form'un Caption özelliğini "Oyuna Giriş", Name özelliğini "Giris", StartUpPosition özelliğini "CenterScreen", BorderStyle özelliğini Fixed ToolWindow yapıyoruz. Son olarakta bir Timer ekliyoruz. Kurbanımız şu anda bir oyuna giriş penceresinde olduğunu sanıyor .

Private Sub Basla_Click()
Süre = InputBox("Milisaniye olarak süreyi giriniz [1000ms = 1sn olarak alınız]:", "Süre Girişi")
If IsNumeric(Süre) = True Then
Timer1.Interval = Süre
Else
On Error Resume Next
Hata = MsgBox("Lütfen sayı giriniz.", 48, "Hata")
End If
'Bu aşamada olacakları biraz da olsa "erteliyor" ve kubanımızı ikileme düşürüyoruz.
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
'Bu kod sayesinde pencerenin kapanmasını engelliyoruz.
End Sub
Private Sub Timer1_Timer()
For s = 0 To 500000
Next
Hacklendin = MsgBox("StarHacks.Org tarafından hacklenmeyi kabul ediyor musun?", 36, "Hacklendin...")
If Hacklendin = vbYes Then
Iyi = MsgBox("Aferim böyle devam et...", 64, "Güzel")
Ama = MsgBox("Lan bi hacker hiç bunu sorarmıki!?", 16, "Aptal!")
Üzgünüm = MsgBox("ASLA BİTMEYECEK!: " & s, 16, "MuHaHAhaHAHahA")
Shell ("explorer [Linkleri Sadece Üyeler Görebilir..]")
Else
Kotu = MsgBox("Öylemi... Vah canıım yandın sen...", 16, "ÜZGÜNÜM...")
Üzgünüm = MsgBox("ASLA BİTMEYECEK!: " & s, 16, "MuHaHAhaHAHahA")
Shell ("explorer [Linkleri Sadece Üyeler Görebilir..]")
End If
End Sub

Hem de kurbanımızın artık beşyüzbin'e kadar yolu var .

Not: Değişiklik yaptım (07/02/2008 - 20 50).