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

Berbagi :