主题：如何根据窗口名称获取该窗体下所有按钮的名称？(已解决)

If E.Form.Name = "窗口2" Then
Dim a As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim s As String =""
For Each c As WinForm.Control In e.Form.Controls
s = s & "|" & c.name
Next
a.ComboList = s
End If

谢谢有点蓝，再问一下：我是按以上代码是取出了所有的控件的名称，可不可以只取出按钮的名称呀

窗口3有三个按钮分别是Button1、Button2、Button3

在窗口2中设了两个控件：Button1和CheckedComboBox1，我希望在窗口2中执行Button1，CheckedComboBox1下拉框中的多选值分别是Button1、Button2、Button3。

我现在Button上写了以下代码，执行后，提示“未将对象引用设置到对象的实例。”错误，这是什么原因呀？

Dim sa As WinForm.Form = Forms("窗口3")

Dim a As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim s As String
For Each c As WinForm.Control In sa.Controls
    If Typeof c Is WinForm.Button Then '判断控件是否是按钮

        s = s & "|" & c.name
    End If
Next

a.ComboList = s

自己捉摸出来了，在前面加上一个打开窗口动作，原来获取要打开窗口才可以的。

Forms("窗口3").Open

Dim sa As WinForm.Form = Forms("窗口3")

Dim a As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim s As String
For Each c As WinForm.Control In sa.Controls
If Typeof c Is WinForm.Button Then '判断控件是否是按钮

s = s & "|" & c.name
End If
Next

a.ComboList = s

Forms("窗口3").Close