Membuat Text Bergerak

kali ini kita akan coba membuat program text bergerak, sebelum kita mulai mengerjakannya kita siapkan bahan-bahannya yaitu secangkir kopi, tiga tahu isi, hehehe becanda.

Pertama kita buka program vibi kita caranya klik start->program->Microsoft Visual Basic 6.0 selanjutnya akan muncul jendela tampilan awal Microsoft Visual Basic 6.0 dan pilih project pilih aja Standart EXE dan klik Open..

selanjutnya tambahkan satu picturebox, dua commandbutton, satu label, satu timer dengan properties sbb:
Picturebox : name= Picture1
Appearance=flat
Label(diletakkan di tengah picturebox) : name=label1
Backstyle=transparent
Caption= Tulisan Ini Berjalan.....
Timer : name=timer1
Interval=1
Enable=false
Commandbutton : name=command1
caption=start
name=command2
caption=stop

setelah kita mendesain form tersebut dobel klik pada timer1 dan ketikkan code sebagai berikut:

If (Label1.Top + Label1.Height = Picture1.Top) Then
Label1.Top = Picture1.Top + Picture1.Height
End If
Label1.Top = Label1.Top – 3

Kemudia dobel klik lagi pada command1 dan ketik kode sbb:

Timer1.Interval = 1

Dan langkah terakhir dobel klik pada command2 ketikkan kode sbb:

Timer1.Interval = 0

Selesai sudah selamat mencoba....