Dim str As String = ""For Each frm As WinForm.Form In forms str &= frm.Name & "|"Nextforms("窗口1").Controls("ComboBox1").ComboList = str.trim("|")