Membuat Label Bergerak di Visual Basic 6.0

Pada kesempatan kali ini saya akan menjelaskan bagaimana membuat Label Bergerak di Visual Basic 6.0,
ok langsung aja Check it out !

langkah - langkahnya sebagai berikut :

• buka Visual Basic 6.0
• buat satu buah label ganti caption terserah anda

• buatlah sebuah from dan dua buah timer berikan interval masing-masing 20

• masukan Coding di bawah ini: 

Dim Red, Green, Blue As Integer 

Private Sub Timer1_Timer() 

If Blue <= 255 Then Blue = 50

If Blue = 0 Then Green = 50

If Green >= 255 Then Green = 0

Red = Red + 50

If Red >= 255 Then

Red = 0

End If

Label1.ForeColor = Int(RGB(Red, Green, Blue))

Label1.Refresh

End Sub 

  

Private Sub Timer2_Timer()

Label1.Left = Label1.Left - 15

If Label1.Left <= -Label1.Left Then

Label1.Left = Form1.Width

End If 

End Sub

  

•  tekan tombol start dan label anda bergerak

sekaian posting saya kali, semoga Beramanfaat.