-
Code:
'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
-
******************************
...
Select Case Press
Case "1"
MsgBox "menu 1 pressed"
...
******************************
Should be
Select Case Pressed
-
<?>
that's what I get for watching tv and writing.
Duh...
Thanks
-
<?>
that was a dumb dumb but not the dumb dumb I need to
correct the situtation