Kode programnya :
Private Sub Form_Load()
LbTedc.Left = Me.Width
LbJam.Caption = Time
LbTgl.Caption = Format(Date, "dd-mm-yyy")
End Sub
Private Sub Timer1_Timer()
LbTedc.Left = LbTedc.Left - 100
tleft.Text = LbTedc.Left
If LbTedc.Left < -2000 Then LbTedc.Left = Me.Width
End Sub
Salam ilmu pengetahuan ^^
wew ssaya ga ngrti heheee salam kenal :D :D
BalasHapusdipelajari dulu ka programnya :)
BalasHapus: ) ia deh oia follow sukses ditunggu Follow back'a salam kenal ^_^
BalasHapusoke... salam kenal balik :)
BalasHapus^_^ ia programer ya Keren ^_^
BalasHapusthanks ya :)
BalasHapusKok langsung kodenya ???
BalasHapusdari kodingnya kan bisa dilihat mana label, text box dan lain-lainnya kk :)
BalasHapuskalau yang bisa pasti tau kk tapi mungkin buat pemula agak sulit mengartikannya
soalnya panjang kalau dijelasin dari awal kk :)
kalau mau lengkapnya email saya aja (lihat di kontak diatas)