🔒 Closed Vb6 marquee

Status
Not open for further replies.
mga master/coder po jan pa tulong po kung paano gawin yung marquee forever yung pa balikbalik lang yung text, salamat po in advance
 
Dim i As Byte
dim txtSample As String

txtSample = Space(150) & " Forever "
Private Sub Timer1_Timer()
i = i + 1
StatusBar1.Panels(3).Text = Mid(txtSample, i)
If i > Len(txtSample) Then i = 1
End Sub

try mo
 
Status
Not open for further replies.

About this Thread

  • 4
    Replies
  • 467
    Views
  • 2
    Participants
Last reply from:
Koykoy200078

Trending Topics

Online now

Members online
582
Guests online
3,369
Total visitors
3,951

Forum statistics

Threads
2,306,500
Posts
29,172,201
Members
1,194,887
Latest member
don_96
Back
Top