[VB6] Visualizzare un testo scorrevole

[kalosjo]

Intanto ti conviene farlo scorrere verso sinistra e non verso destra.

Una cosa del genere:

StatusBar1.Panels(1).Text = mid(StatusBar1.Panels(1).Text,2)
if StatusBar1.Panels(1).Text="" then
  StatusBar1.Panels(1).Text=space(20) & testoiniziale
end if

Dove testoiniziale contiene il testo della StatusBar1, e space(20) ho messo 20, ma dimensionalo in modo da vederlo spuntare da destra.