The first puppy fails.
[vbcode]
Private Sub Command1_Click()
For index = 0 To Option1.Count - 1
If Option1(index).Value = True Then
Form2.Show
End If
Next
End Sub
[/vbcode]


vbcode Code:
  1. Private Sub Command1_Click()

  2.     For index = 0 To Option1.Count - 1

  3.         If Option1(index).Value = True Then

  4.             Form2.Show

  5.         End If

  6.     Next

  7. End Sub


Code:
Private Sub Command1_Click()
    For index = 0 To Option1.Count - 1
        If Option1(index).Value = True Then
            Form2.Show
        End If
    Next
End Sub

PHP Code:
Private Sub Command1_Click()
    For index = 0 To Option1.Count - 1
        If Option1(index).Value = True Then
            Form2.Show
        End If
    Next
End Sub