Visual Basic 6.0
Kod:
Kod:
Kod:
Sub HarfHarf(ref As Form)
baslik = ref.Caption ' Form başlığı alınıyor
ref.Caption = "" ' Form başlığı siliniyor
ref.Show
For i = 0 To Len(baslik) ' Başlık uzunluğu kadar tekrarlanıyor
If i = 0 Then
ref.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo Son
Else
End If
ref.Caption = Left(baslik, i) ' Başlığın soldan i kadarı seçiliyor
current = Timer
Do While Timer - current < 0.05
DoEvents ' Diğer programların çalışabilmesine
Loop ' olanak tanıyor
Son:
Next i
End Sub
Private Sub Command1_Click()
HarfHarf Me
End Sub