I've read on a few topics abt this in this forum and i have try the source code that have been suggested. Unfortunately it did not work on my project and i do not know why.
[CODE]
Private sub form_load()

ndName = txbFullName
lblUser.Caption = "You are now login as " & ndName

end sub

Private Sub Timer1_Timer()
lblUser.Move lblUser.Left + 1
End Sub[CODE]