Membuat Label Seperti Auto Type di Visual Basic 6.0

Assalamu'alaikum Warrahmatullahi Wabarakatuh

 Untuk membuat sebuah program Visual Basic 6.0 agar terlihat menarik adalah memperbanyak tambahan design seni dengan cara menghias tampilan form tersebut, salah satunya adalah dengan membuat autotype.      

   Apa itu autotype ? autotype adalah sebuah visual pada form dimana terdapat kata atau kalimat yang seolah-olah tertulis otomatis. Dengan menggunakan autotype ini, membuat form akan tampak seperti dinamis dan tidak kaku.

    Berikut adalah cara membuatnya :

1. Buka Visual Basic 6.0, dan pilih Standard.EXE.

2. Masukkan Toolbar berikut :

    - 1 Timer
    - 1 Label

3. Kemudian atur interval timer menjadi 150 dan design seperti ini :

4. Setelah itu, masukkan kode berikut :

Dim j As Integer

Private Sub Form_Load()

Label1.Caption = ""

End Sub

Private Sub Timer1_Timer()

Dim jdl As String

 j = j + 1

    jdl = "Smurf Miner" & vbCrLf & "CP : 0821*65250**" & vbCrLf & "" & vbCrLf & "Created By : Khalifah Muhammad Endarto" & vbCrLf & "Martapura-miner.blogspot.com"

    

    Label1.Caption = Label1.Caption & Mid(jdl, j, 1)

End Sub

5. Jalankan program dan hasilnya seperti ini

Keterangan :
- Pada jdl = untuk membuat tulisan diberi perintah enter, tambahkan & vbCrLf & "tulisan anda". 
- Apabila ingin perinah enter dua kali, tambahkan & vbCrLf & ""  & vbCrLf & "tulisan anda"

Semoga bermanfaat.. ^_^

Wassalamu'alaikum Warrahmatullahi Wabarakatuh