改变父窗体的Listbox的内容，子窗体Listbox也跟着改变

我的Form1是父窗体
Form2是子窗体
每个窗体里包含一个ListBox
然后根据Form1里的ListBox的选值改变Form2里Listbox的选值
ListBox里我设置的是1,2,3,4,5,6 6个值然后可以对应改变
Form1代码如下:
Public Class Form1

    Private Sub ListBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        Form2.ListBox1.SelectedItem = Me.ListBox1.SelectedItem
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form2.Show()

    End Sub
End Class
Form2代码如下：
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MdiParent = Form1
       


    End Sub
End Class