array di pulsanti

[icorock]

ho un array di 4 pulsanti come questo:

Private Sub Command1_Click(Index As Integer)
Select Case Index
On Error Resume Next
Case 0
WebBrowser1.GoBack
Case 1
WebBrowser1.GoForward
Case 2
WebBrowser1.Refresh
Case 3
WebBrowser1.Stop
End Select
End Sub

quando premo su uno dei 4 pulsanti mi da il seguente errore:

Errore di compilazione
Istruzioni ed etichette non valide tra Select Case e la prima proposizione Case

Ho ricontrollato più volte il tutto e non riesco a capire il perchè dell'errore......sto impazzendo
aiutooooo!!!

[ladyBlu]

scrivi così:

Private Sub Command1_Click(Index As Integer) 
On Error Resume Next 

   Select Case Index 
       Case 0 
             WebBrowser1.GoBack 
       Case 1 
             WebBrowser1.GoForward 
       Case 2 
             WebBrowser1.Refresh 
       Case 3 
             WebBrowser1.Stop 
    End Select 
End Sub

on error resume next devi metterlo prima.

[icorock]

Originariamente inviato da ladyBlu
scrivi così:

Private Sub Command1_Click(Index As Integer) 
On Error Resume Next 

   Select Case Index 
       Case 0 
             WebBrowser1.GoBack 
       Case 1 
             WebBrowser1.GoForward 
       Case 2 
             WebBrowser1.Refresh 
       Case 3 
             WebBrowser1.Stop 
    End Select 
End Sub

on error resume next devi metterlo prima.

Ti ringrazio infinitamente
ora funziona

[ladyBlu]

di niente, figurati.