Coba coding ini deh
Option Explicit
Dim vCount As Byte
Private Sub Timer1_Timer()
vCount = vCount + 1
If vCount = 100 Then vCount = 0
If vCount Mod 2 = 1 Then
Me.Text1.ForeColor = Me.Text1.BackColor
Else
Me.Text1.ForeColor = vbBlack
End If
End Sub
Iwan Gian wrote:
>
> hallo para master vb
>
> tolong ya bantuannya
>
> giamana ya sintax atau cara untuk membuat
> "angka satu(1)bisa muncul dan hilang pada teks box(SEPERTI KURSOR
> PADA KOMPUTER KITA)
> terimaksih atas bantuannya
> urgent
>
>
>
> [Non-text portions of this message have been removed]
>
>
