saya buat procedure sbb:
Private Sub Form_Load()
Me.TimerInterval = 50
Countloop = 0
End Sub
Private Sub Form_Timer()
On Error Resume Next
Dim TxtDefault As String
Dim TxtDemo As String
TxtDefault = " copyri...@2010,CW"
TxtDemo = " Demo"
Me.Caption = TxtDefault & Space(Countloop) & TxtDemo
Countloop = Countloop + 1
If Countloop = 115 Then
Countloop = 1
End If
End Sub
----- Original Message -----
From: "aksankurdin" <[email protected]>
To: [email protected]
Date: 5 Mei 2010 15:12
Subject: Form Bergetar
>
> apa yang dilakukan event on timer ?
>
> aksan kurdin
> - Perlihatkan kutipan teks -
>
>
------------------------------------
SPAM IS PROHIBITEDYahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)
<*> To change settings via email:
[email protected]
[email protected]
<*> To unsubscribe from this group, send an email to:
[email protected]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
