TEXT BERJALAN DAN BERKELIP(VB) .ocx

CARA MEMBUATNYA SEBAGAI BERIKUT:

1.     1. Buka vb,pilih activ x  control

2.      2.Buat sebuah label dan sebuah timer

3.      3.Lalu tulis scrip ini di code view

Dim counter As Integer
Dim i As Long
Dim merah, hijau, biru As Integerjavascript:void(0)


Private Sub Timer1_Timer()
i = i + 1
If i = 1000000 Then i = 0 'Supaya tdk overflow, dsb...
merah = Int(255 * Rnd) 'Bangkitkan angka random untuk merah
hijau = Int(255 * Rnd) 'Bangkitkan angka random untuk hijau
biru = Int(255 * Rnd) 'Bangkitkan angka random untuk biru
Label1.ForeColor = RGB(merah, hijau, biru) 'Campur tiga warna
If i Mod 2 = 0 Then 'Jika counter habis dibagi 2
Label1.Visible = True 'Tampilkan label
Else 'Jika counter tidak habis dibagi 2
Label1.Visible = False 'Sembunyikan label
End If 'Akhir pemeriksaan
Dim Kalimat As String
Kalimat = "This ocx make by :NANANG SIGIT P selamat menikmati!"
counter = counter + 1
DoEvents
Label1.Caption = TulisJalan(counter, Kalimat, 3)
End Sub

Public Function TulisJalan(hitung As Integer, strKalimat As String, _
Panjang As Integer)
If hitung = Len(strKalimat) + Panjang Then
hitung = 0
ElseIf hitung > Len(strKalimat) Then
TulisJalan = strKalimat & Space(hitung - Len(strKalimat))
Else
TulisJalan = Mid(strKalimat, 1, hitung)
End If
End Function
Private Sub Form_Load()
i = 0 'Inisialisasi detik
Timer1.Interval = 100 'Kalau 1000 biasanya lompat 1 detik
Label1.Caption = "Ini contoh tulisan kelap-kelip"

End Sub

4.      4.Klik timer satu dan ganti di tab propertis interval jadi 100

5.      5.Ganti nama user control1 jadi tulisanberjalan dg klik kanan dan user control1propertis

6.      6.Save as di folder baru

7.      7.Klik file klik make tulisanberjalan.ocx

8.      8.close program dan file ocx sudah jadi. contoh programnya bisa di download disini>>