Membuat Text Berjalan trik Microsoft Visual Basic 6.0

Langkah Pertama Anda Buatlah
1. Timer
dan
1. Label
seperti gambar dibawah ini :
Setelah membuat
1 Timer
dan
1 Label

Sekarang anda Klik 2x pada label
Selanjutnya silahkan anda ketik source code seperti dibawah ini :

Private Sub Form_Load()
Timer1.Interval = 150
Label1.Caption = "SEMOGA BERMANFAT "
End Sub


Lihat gambar :
KLIK PADA GAMBAR UNTUK PERBESAR
Selanjutnya anda klik 2x pada Timer
Lalu ketik source code seperti dibawah ini :

Dim Kalimat As String
Kalimat = Label1.Caption
Label1.Caption = Mid(Kalimat, 2) & Left(Kalimat, 1)


setelah anda ketik maka hasilnya seperti gambar dibawah ini :
KLIK PADA GAMBAR UNTUK PERBESAR
Selesai
coba sekarang anda Tes berhasil atau Tidak caranya tekan F5
atau klik RUN....

Jika berhasil maka hasilnya seperti gambar dibawah ini :
KLIK PADA GAMBAR UNTUK PERBESAR
SELAMAT MENCOBA SEMOGA BERMANFAAT
Mau download Project_nya Buat belajar ?
Silahkan download disini sob

Download Project Text Berjalan VB6