C# と VB.NET の質問掲示板

すいませんご質問があります。

1個目
_07_Shouhin.ComboBox1.Items.Clear()をいれましたら

radiobuttonを切り替えする時に、ラジオボタン１（初期値）からラジオボタン２に切り替えしたら
「System.ArgumentException: 'データソース プロパティを設定したときに Items コレクションを変更することはできません。'」

ソースコード
module追加しました

Public Sub AAD()'すべてクリアする
        list.Clear()
        _07_Shouhin.PictureBox1.Image = Nothing
        _07_Shouhin.ComboBox1.Items.Clear()'ここです。
        _07_Shouhin.TextBox1.Clear()
        _07_Shouhin.TextBox2.Clear()
        _07_Shouhin.TextBox3.Clear()
    End Sub

2個目
 _07_Shouhin.ComboBox1.SelectedItem = Nothingに変更したら

System.NullReferenceException: 'オブジェクト参照がオブジェクト インスタンスに設定されていません。'
場所は

Public Sub AAb()'テキストボックス表示
        'Textbox1=品名
        _07_Shouhin.TextBox1.Text = _07_Shouhin.ComboBox1.GetItemText(_07_Shouhin.ComboBox1.SelectedItem)

        Dim selectedValue = DirectCast(_07_Shouhin.ComboBox1.SelectedValue, (Number As Integer, Picture As Image))'ここ

        'Textbox3=値段
        _07_Shouhin.TextBox3.Text = CStr(selectedValue.Number)
        _07_Shouhin.PictureBox1.Image = selectedValue.Picture
    End Sub

module使用しています。

radiobuttonを切り替えする時に前のコンボボックスのアイテムをクリアしたい事です。

1個目と2個目がエラー発生しました。回避させたいんですがお願いいたします。

全体のコード
---------------------------------------------------------

Imports System.ComponentModel
Imports System.Globalization
ublic Class _07_Shouhin

    Private Sub _07_shouhin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.ReadOnly = True
        TextBox3.ReadOnly = True
end sub

 Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        AAb()'テキストボックス表示

    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs)
        '  PictureBox1.Image = DirectCast(ComboBox1.SelectedValue, (Number As Integer, Picture As Image)).Picture
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            aaa()'コンボボックスのアイテム表示
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            RadioButton1.Checked = False
            AAD()'クリアする
        End If
    End Sub
End Class
--------------------------------------------------------------------------------------------------------------------------
module

----------------------------------
Imports System.ComponentModel
Imports System.Globalization

Public Module Test_000
    Private list As New Dictionary(Of String, (Number As Integer, Picture As Image))()
list.Add(“あ”, (0, My.Resources.A00))
list.Add(“い”, (0, My.Resources.A00))

        _07_Shouhin.ComboBox1.DisplayMember = "key"
        _07_Shouhin.ComboBox1.ValueMember = "value"
        _07_Shouhin.ComboBox1.DataSource = New BindingSource(list, Nothing)
        _07_Shouhin.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
    End Sub
Public Sub AAb()
        'Textbox1=品名
        _07_Shouhin.TextBox1.Text = _07_Shouhin.ComboBox1.GetItemText(_07_Shouhin.ComboBox1.SelectedItem)

        Dim selectedValue = DirectCast(_07_Shouhin.ComboBox1.SelectedValue, (Number As Integer, Picture As Image))

        'Textbox3=値段
        _07_Shouhin.TextBox3.Text = CStr(selectedValue.Number)
        _07_Shouhin.PictureBox1.Image = selectedValue.Picture
    End Sub
 Public Sub AAD()
        list.Clear()
        _07_Shouhin.PictureBox1.Image = Nothing
        _07_Shouhin.ComboBox1.SelectedItem = Nothing
        _07_Shouhin.TextBox1.Clear()
        _07_Shouhin.TextBox2.Clear()
        _07_Shouhin.TextBox3.Clear()
    End Sub
End Module

----------------------------------------------------------


1.Public Sub AAD()=クリアする
2.Public Sub AAb()=テキストボックス表示
3.Public Sub aaa()=コンボボックスのアイテム表示です。

やりたい事
・コンボボックスのアイテム表示をすべてクリアしたい（1，2個目でエラー発生）
他は多分大丈夫だと思いますか。コンボボックスのアイテム表示をクリアが出来ずにいます。

よろしくお願いします。