Cara Membuat Text Ketikan Di Vb 6.0
Buatlah Form Seperti Dibawah Ini:

Klik Dua Kali Pada Form,Pilih General,Lalu Ketiklah
Listing Dibawah Ini:
Option
Explicit
Dim
Teks As String
Dim
i As Integer
Dim
digit As Integer
Private
Sub Timer1_Timer()
Teks
= "http://herfikom.wordpress.com.. "
If
digit > Len(Label1) Then digit = -1
digit
= digit + 1
Label1.Caption
= Mid(Teks, 1, digit)
End
Sub
Program
ini dibuat oleh Heri Afrizal di bireuen
Komentar
Posting Komentar
Tulis komentar anda disini.....