EDUCATION

Langkah-langkah membuat tulisan berjalan,
1. Buka VB 6.0
2. Buat Form1 dengan caption = (Tulisan Berjalan)
3. Tambahkan satatusBar
4. Tambahkan code.

Copas aja brow...

Dim Counter As Integer
Private Sub Form_Load()
Counter = 0
Timer1.Interval = 50 'Atur kecepatannya di sini
With StatusBar1
.Panels(1).Width = 4000
.Panels(1).Alignment = sbrRight
End With
End Sub

Private Sub Timer1_Timer()
Dim Kalimat As String
Dim pnlX1 As Panel
Set pnlX1 = StatusBar1.Panels(1)
Kalimat = "PROGRAM TULISAN BERGERAK"
Counter = Counter + 1
DoEvents
pnlX1.Text = TulisJalan(Counter, Kalimat, 150)
End Sub

Public Function TulisJalan(Hitung As Integer, _
strKalimat As String, Panjang As Integer)

If Hitung = Len(strKalimat) + Panjang Then
Hitung = 0
ElseIf Hitung > Len(strKalimat) Then
TulisJalan = strKalimat & Space(Hitung - _
Len(strKalimat))
Else
TulisJalan = Mid(strKalimat, 1, Hitung)
End If
End Function


Anda mungkin lebih keren untuk memodifikasinya..
heheh.. silahkan mencoba...