Dim frm As New Form2 Dim arr As New ArrayList arr.Clear() arr.AddRange(ComboBox1.Items) frm.ComboBox1.Items.AddRange(arr.ToArray) frm.Show()