<?> 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

[Psyrus]

******************************

...

Select Case Press
Case "1"
MsgBox "menu 1 pressed"

...

******************************

Should be

Select Case Pressed

[HeSaidJoe]

that's what I get for watching tv and writing.

Duh...

Thanks

[HeSaidJoe]

that was a dumb dumb but not the dumb dumb I need to
correct the situtation