Cara membuat Teks Berjalan Dengan Vb6.0
-Buka program vb 6.0
-Buatlah sebuah form dengan ukuran standard EXE
- Lalu buatlah 2 label dan isikan nama sesuai dengan keinginan anda
-Buat 2 Buat Timer
-atur interval Timer menjadi 20
lalu copaska source code dibawah ini
Dim Red, Green, Blue As Integer
Private Sub Timer1_Timer()
If Blue <= 255 Then
Blue = Blue + 50
Else: Blue = 0
Green = Green + 50
End If
If Green >= 255 Then
Green = 0
Red = Red + 50
End If
If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub
Private Sub Timer2_Timer()
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then
Label2.Left = Form1.Width
End If
End Sub
lalu anda tes
