--
Dim frm = System.Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name ="frmOuterTableEditor"
Dim obj = frm.controls("C1DockingTab1").tabpages(0).controls("cmbSourceTable")
obj.DropDownStyle = 1
\'For Each c As object In frm.controls("C1DockingTab1").tabpages(0).controls
\'output.show(c.name & " " & c.Gettype.name)
\'Next
End If
End If
没反应了。