Sub KayanYazi(frm As Form) Dim X As Integer Dim current As Variant Dim Y As String Y = frm.Caption frm.Caption = "" frm.Show For X = 0 To Len(Y) If X = 0 Then frm.Caption = "" current = Timer Do While Timer - current < 0.1 DoEvents Loop GoTo

Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.

Baslık	Kategori	Hit
Menü Oluşturma	VISUAL BASIC	196
Word de veya NotePad de yazılanları hemen okuyalım	VISUAL BASIC	122
Günün Komutu : Choose	VISUAL BASIC	186
Sinüs egrisinin fonksiyonunu çizmek	VISUAL BASIC	210
RasDial ile Dial-Up	VISUAL BASIC	162