get the index of the control array

[markyeoj]

Private Sub btnSubmit_Click()

Dim intIndex As Integer



If chk(intIndex) = vbChecked Then

Select Case intIndex
Case 0
Image1.Picture = LoadPicture("C:\Users\myrna\Documents\a VB VB\Pictures vb vb vb\1pc chicken.jpg")
Case 1
Image1.Picture = LoadPicture("C:\Users\myrna\Documents\a VB VB\Pictures vb vb vb\french fries.jpg")
Case 2 ' could also use "Case Else" here
Image1.Picture = LoadPicture("C:\Users\myrna\Documents\a VB VB\Pictures vb vb vb\hamburger.jpg")
Case 3
Image1.Picture = LoadPicture("C:\Users\myrna\Documents\a VB VB\Pictures vb vb vb\beef steak.jpg")
Case 4
Image1.Picture = LoadPicture("C:\Users\myrna\Documents\a VB VB\Pictures vb vb vb\lasagna.jpg")
Case 5
Image1.Picture = LoadPicture("C:\Users\myrna\Documents\a VB VB\Pictures vb vb vb\spaghetti.jpg")
Case 6
Image1.Picture = LoadPicture("C:\Users\myrna\Documents\a VB VB\Pictures vb vb vb\mexican green wave pizza.jpg")
End Select
End If
End Sub

that's my code, I created a control array of chkbox and the index is 0 to 6..
what I want is.. to get the index of the selected checkbox and use it in a select case statement, but my code is not working..