窗体的AfterLoad事件
Dim Cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")For Each File As String In FileSys.GetFiles("D:\Foxtable") Cmb.Items.Add(File)Next