I am using VB 6 and trying to select 1 of 3 matrixes depending on 1 of 3
option buttons using the case statement.  Display is a variable 1-3 of the
matrix to be displayed. Option Buttons are named SelectMatrix (0),
SelectMatrix (1), & SelectMatrix (2) . The problem is the Case SelectMatrix
has to be set to a test expression but this always prints out the 1st case
for every option button selected.

Private Sub SelectMatrix_Click(Index As Integer)
Dim Display As Integer
Select Case SelectMatrix(0)
   Case SelectMatrix(0).value = True
       Picture4.Cls
    Display = 0
Case SelectMatrix(1).value = True
       Picture4.Cls
    Display = 1
Case Else
       Picture4.Cls
    Display = 2
End Select
    'test code below to see what was selected
    Picture4.Print Display
End Sub


thanks
Kirk




--- UseNet To RIME Gateway {at} 2/11/05 6:45:35 PM ---