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
