Chapter 4 - Working With Menus and Dialog Boxes - Part 3

Dim IndexValue As Integer

Private Sub Button1_Click( _
  ByVal sender As System.Object, _
  ByVal e As System.EventArgs) _
  Handles Button1.Click
  If IndexValue = 1 Then
    If RadioButton1.Checked = True Then
      Debug.Write("Index1 True - Radio1 True" & vbCrLf)
      PictureBox1.Image = _
        System.Drawing.Image.FromFile("..\Yay.bmp")
    Else
      Debug.Write("Index1 True - Radio1 False" & vbCrLf)
      PictureBox1.Image = _
        System.Drawing.Image.FromFile("..\Boo.bmp")
    End If
  End If
  If IndexValue = 2 Then
    If RadioButton2.Checked = True Then
      Debug.Write("Index2 True - Radio1 True" & vbCrLf)
      PictureBox1.Image = _
        System.Drawing.Image.FromFile("..\Yay.bmp")
    Else
      Debug.Write("Index2 True - Radio1 False" & vbCrLf)
      PictureBox1.Image = _
        System.Drawing.Image.FromFile("..\Boo.bmp")
    End If
  End If