'define a datarow object to hold a record from Crusts table
        Dim row2 As PizzaDataSet.CrustsRow
        'go through all the rows in the table
        For Each row2 In Me.PizzaDataSet.Crusts.Rows
            Dim rdb As New RadioButton
            rdb.Name = "CheckBox" & row2.CrustID
            rdb.Text = row2.CrustName
            rdb.Tag = row2.CrustPic
            rdb.AutoSize = True
            Me.fpcrusts.Controls.Add(rdb)
            '  AddHandler rdb.CheckedChanged, AddressOf CrustCheckChanged

            AddHandler rdb.CheckedChanged, AddressOf anything

        Next



    Private Sub anything(ByVal sender As System.Object, ByVal e As System.EventArgs) ' handles pic bo
        Dim radiobutton1 As RadioButton = CType(sender, RadioButton)
        Me.PictureBox1.Image = Image.FromFile("C:\vbhwk2pizza\" & radiobutton1.Tag.ToString)
    End Sub