Komik bir şaka programı (VB)

Merhaba arkadaşlar öncelikle böyle bir programı Google amcada arıyordum bir kaç kaynak buldum fakat hoşuma gitmedi bende bunlardan esinlenerek bu kodları yazdım umarım hoşunuza gider

Programda kullanılacak nesneler:1 adet command ve güzel bir resim size kalmış orası

Programı açıklamak gerekirse; programı açtıktan sonra örneğin commanda verebiliceğiniz bir dikkat çekici isimle örneğin"beyninizi okuyan program"diye kişi buna basınca hata mesajıyla karşılaşcak mesajda"beyin bulanamdı" diyecek size vereceğim kodlarda programın işlevi bu ancak sizin yaratıcılığınızla bunu daha da komik hale getirebilirsiniz hadi iyi eğlenceler

kod:

Kod:

Private Declare Sub Sleep Lib "kernel32" ( _
ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Command1.Caption = "LÜTFEN BEKLEYİN"

Sleep 2000

MsgBox "Error: Beyin Bulunamadı!"


End Sub