Visua Basic 6.0

Cara membuat text bejalan di form visual vasic

1. Tambahkan Label pada Form, namanya label1
     di Caption "Welcome To Rental Best", left + 0
2. Tambahkan Timer pada Form, namanya timer1, interval = 100
3. Ketik listing dibawah ini :
    " Private Sub Timer1_Timer()
       Label1.Left = Label1.Left - 100
       If Label1.Left <= -7000 Then
      Timer1.Enabled = True
      Label1.Left = "7000"
      End If
      End Sub "

 gambarnya sebagai berikut

Untuk Text bolak balik atas bawa

1. Buat Form baru, atur width=5000 height = 3000
2. Masukan label kedalam Form, ganti caption = Selamat Datang
3. Masukan Timer, atur interval menjadi 100
4. Klik dua kali Form  masukan kode di bawah ini
    Dim kebawah As Boolean
    Dim kekanan As Boolean

    Private Sub Form_Load()
    kebawah = True
    kekanan = True
    End Sub

5. Klik dua kali Timer lalu masukan kode di bawah ini
    Private Sub Timer1_Timer()
    If kebawah Then
    Lbl.Top = Lbl.Top + 50
    Else
    Lbl.Top = Lbl.Top - 50
    End If
    If Lbl.Top >= 2760 Then
    Lbl.Top = 2760
    kebawah = False
    End If
    If Lbl.Top <= 120 Then
    Lbl.Top = 120
    kebawah = True
    End If
    If kekanan Then
    Lbl.Left = Lbl.Left + 50
    Else
    Lbl.Left = Lbl.Left - 50
    End If
    If Lbl.Left >= 3240 Then
    Lbl.Left = 3240
    kekanan = False
    End If
    If Lbl.Left >= 120 Then
    Lbl.Left = 120
    kekanan = True
    End If
    End Sub
6. Lihat hasilnya,,,,