博科技 noo 例:移动窗体中所有控件 ( Controls Private Sub form Click Dim obl As object For each ob1 In Controls ob1 Left= obl. Left +20 程序 Next ob1 计 End sub ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 例:移动窗体中所有控件 (Controls) Private Sub form_Click() Dim ob1 As Object For Each ob1 In Controls ob1.Left = ob1.Left + 20 Next ob1 End Sub