Visst, jag är nybörjare, men nu måste jag vara extra korkad!? Jag trodde verkligen jag kunde detta.

Jag vill ha en select Case sats där det först blir Case 1, sen Case 2 osv till och med Case 10, sen ska den börja om på Case 1. Detta måste ju gå att göra med en enkel loop, men jag har provat och provat utan lycka...

Jag vill helst ha enklast möjliga kod...

Hoppas det var något sånthär du menade... :O)


Private Sub Command1_Click()
Static Index As Integer
Select Case Index
Case 0
MsgBox "Noll"
Index = 1
Case 1
MsgBox "Ett"
Index = 2
Case 2
MsgBox "Två"
Index = 3
Case 3
MsgBox "Tre"
Index = 4
Case 4
MsgBox "Fyra"
Index = 5
Case 5
MsgBox "Fem"
Index = 6
Case 6
MsgBox "Sex"
Index = 7
Case 7
MsgBox "Sju"
Index = 8
Case 8
MsgBox "Åtta"
Index = 9
Case 9
MsgBox "Nio"
Index = 0
End Select
End Sub


Private Sub Command2_Click()
Dim Index As Integer
For Index = 1 To 10
MsgBox "Tal: " & Index
Next
End Sub


Private Sub Command3_Click()
Dim Index As Integer
Do Until Index > 10
Index = Index + 1
MsgBox "Tal: " & Index
Next
End Sub