🔒 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
  • 459
    Views
  • 2
    Participants
Last reply from:
Koykoy200078

Online now

Members online
970
Guests online
745
Total visitors
1,715

Forum statistics

Threads
2,275,574
Posts
28,964,202
Members
1,231,870
Latest member
Dabojax
Back
Top