Komputer, sekarang ini bukan lagi hal baru buat kita. Tetapi mungkin kita tak pernah tahu bagaimana sejarah dan perkembangan komputer. Klik di sini untuk dapat tahu sejarah dan perkembangan komputer.
Pertama siapkan 1 form kemudian tambahkan 1 Timer ubah intervalnya jadi 500. Kemudian ketikan rumus berikut Dim teks As String Private Sub Form_Load() teks = "ANIMASI TEXT BERJALAN " End Sub Private Sub Timer1_Timer() a = Left(teks, 1) c = Len(teks) b = Right(teks, c - 1) teks = b + a form1.Caption = teks End Sub Kemudian run
Komentar
Posting Komentar