Cara Membuat Text Ketikan Di Vb 6.0



Buatlah Form Seperti Dibawah Ini:
Memuat foto
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

Postingan populer dari blog ini

Cara Membuat File PDF dari Microsoft Word

Program Mencari Bilangan Prima Dengan Vb 6.0