<?> Type Error...Array of Labels

[HeSaidJoe]

'this gives run time error 13 type mismatch)

Private Sub Label1_Click(Index As Integer)

Dim Pressed As String

If frmMenu.Label1(0) Then Pressed = "1"
If frmMenu.Label1(1) Then Pressed = "2"
If frmMenu.Label1(2) Then Pressed = "3"
If frmMenu.Label1(3) Then Pressed = "4"

Select Case Press
  Case "1"
  MsgBox "menu 1 pressed"
  Case "2"
  MsgBox "menu 2 pressed"
  Case "3"
  MsgBox "menu 3 pressed"
  Case "4"
  MsgBox "menu 4 pressed"
End Select

End Sub