Cara membuat teks berjalan lurus pada visual basic 2008

Salam buat teman2 semua......!!!!

Hari saya mau membagikan buat kita bagaimana "cara membuat teks berjalan pada visual basic 2008" sebenarnya hal ini adalah bisa di bilang hal biasa dan tutorialnya juga sudah banyak pada  blog/website para sahabat blongger yang lain.

jadi saya juga tidak ada bosannya bagi kita untuk membagikan tutorial ini walaupun sudah banyak di internet seperti yang sekarang ini, alasan utama saya untuk membagikan tutorial ini adalah untuk mengingat saya kembali atau pun saya ingin belajar lebih mendalam lagi tentang pemrograman..........

Baik langsung saja kita masuk dengan langkah-langkah sebagai berikut :

1. Buat new project, standard EXE
2. Masukan satu buah label dan satu buah timer
3. Atur properti interval timer menjadi 100 dan Enabled = true
4. Masukan kode program berikut :
   

   Private Sub Timer1_Timer()

   
   

   Label1.Left = Label1.Left + 100

   
   

   End Sub

5. Lalu jalankan programnya dengan menekan F5, dan lihat apa yang terjadi.................!!!
   Kemungkinan besar yang terjadi adalah teks anda berjalan tetapi tidak akan kembali lagi....
6. Ok,,,, Nah untuk bisa teksnya berjalan terus atau dengan kata lain kembali dan kembali lagi maka gantikan langsung kode program di atas tadi dengan code program dibawah ini :
   

   Private Sub Timer1_Timer()

   If Label1.Left >= Label1.Width Then   

   Label1.Left = -Label1.Width

   Else   

   Label1.Left = Label1.Left + 100

   End If

   End Sub

7. Baik,,,,, jika code program telah berhasil di tulis semua, maka jalan kembali dan lihat apa yang pada komputer anda........................................

sekian tutorial di atas,,,,,semoga bermanfaat bagi teman-teman yang mau mencoba......