Apı Uygulaması - Sleep

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

amacımız formun üzerine for-next döngüsüyle ağır çekimle 1'den 25'e kadar sayı yazdırmak.

şimdi formun load olayına şunları yazalım:

..................................................
private sub form_load()
show
dim i
for i= 1 to 25
sleep 500 ' siz 500'ü değiştirebilirsiniz
print i
next
end sub

Categories: Visual Basic