Tack vare Andreas och Sven så har jag fått min Array att fungera perfekt.
Den lser in och visar i LCD1 tilel författare med mera. Vad jag ville utöka med var att jag ville ha 2 sec mellan caption bytet, och försöker så här:

<code>
Private Sub songlista_Click()
'*********
LCD1.Caption = "Ny sång laddas"
Index = 0
Timer1.Interval = 4000
Timer1.Enabled = True
Timer2.Interval = 2000'Tiderna för timer 2
Timer2.Enabled = True
'*********
end sub

Private Sub Timer1_Timer()
Timer2_Timer'Här velle jag ha 2 sec pause innan nästa caption-byte

LCD1.Caption = arr(Index)'Här vissas captionen, beroende på index
Do
Index = (Index + 1) Mod 7
Loop Until Len(arr(Index))'om arr(index) är tomt, hoppar vi över den
End Sub

Private Sub Timer2_Timer()
LCD1.Caption = ""
End Sub
</code>
Resultatet blir, att om någonting visas, så går det jättefort, men oftast så visas ingenting.
Hur bör jag bygga om denna?

Jag gör ett försök...

<code>
Private Sub songlista_Click()
'*********
LCD1.Caption = "Ny sång laddas"
Index = 0
Timer1.Interval = 4000
Timer1.Enabled = True
Timer2.Interval = 2000 'Tiderna för timer 2 2000
'*********
end sub

Private Sub Timer1_Timer()
'Timer2_'Här velle jag ha 2 sec pause innan nästa caption-byte Timer
Timer2.Enabled = True

TimerLCD1.Caption = arr(Index)'Här vissas captionen, beroende på index
Do
Index = (Index + 1) Mod 7
Loop Until Len(arr(Index))'om arr(index) är tomt, hoppar vi över den
End Sub

Private Sub Timer2_Timer()
LCD1.Caption = ""
Timer2.Enabled = False
End Sub
</code>

/Johan

Tack fungera kanon

Fick en idé när du presenterade dit problem. Nog aldeles för avancerat för dig. Men det är rätt fantastiskt när man förstår det.

Programarkivet:En rund collection utan förälderklass

Tack för förtroendet... :-)
Den idén skall jag nog nappa på sedan, inte helt fel.