Not a Member Yet,
Click here to Register
How do you like the new design?






ID: 41
Viewed: 2436
Added: Dec 01, 2001
Version:
Snippet uploaded by: Mark
Written By: Mark
Demo: Sorry, no demo



User Rated at: 0 Stars
Rate This:

Thank you for your vote. Please wait...

It appears you already voted for this snippet

It appears your vote value was empty

Animates the titlebar by adding one letter at a time. It then keeps repeating it over and over.

Highlight all by clicking in box
<!---Declaration--->
Dim w As Long 'animated title bar

Highlight All
<!---Code--->
'create a timer and call it timTitle
'then add the following code:

Private Sub timTitle_Timer()
'this timer animates the title bar
w = w + 1
If w = 0 Then Me.Caption = ""
If w = 1 Then Me.Caption = " G"
If w = 2 Then Me.Caption = " Gu"
If w = 3 Then Me.Caption = " Gue"
If w = 4 Then Me.Caption = " Gues"
If w = 5 Then Me.Caption = " Guess"
If w = 6 Then Me.Caption = " Guessi"
If w = 7 Then Me.Caption = " Guessin"
If w = 8 Then Me.Caption = " Guessing"
If w = 9 Then Me.Caption = " Guessing "
If w = 10 Then Me.Caption = " Guessing G"
If w = 11 Then Me.Caption = " Guessing Ga"
If w = 12 Then Me.Caption = " Guessing Gam"
If w = 13 Then Me.Caption = "Guessing Game"
If w = 14 Then w = 0
End Sub
;


No Comments to show

Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.


Replying to a Comment...


Adding your comment. Please wait...

Thanks for adding your comment!. After further review it will be added.

There was a problem adding your comment. Please try again.

Please complete all the fields in the form before sending.

© 2002 - 2017 snippetlibrary.com All Rights Reserved. Conditions