Class Form2 Inherits Form Sub test() Handles Me.FormClosing Me.Owner.Show() End Sub Public Overloads Sub Show(ByVal Owner As IWin32Window, _ ByVal ListBox_DATA As ListBox.SelectedObjectCollection) Dim LB2 As New ListBox With {.DataSource = ListBox_DATA} Me.Controls.Add(LB2)'↑初期化の時に、ついでにデータも設定しちゃう版 Me.Show(Owner) End Sub End Class