TITLE: [9] コントロール配列(Re^3: EVT3.0のVBで質問です。) DATE : 2000-11-18 11:52:00 -------------------------------------------------- くわじです。 デザイン時の苦労を除けば、オブジェクトの配列に代入しておくことで コード上は同じ扱いができそうです。 Public txtInputData(2) As Object と、Object型の配列を宣言しておき、 Private Sub Form_Load() Set txtInputData(0) = Text1 Set txtInputData(1) = Text2 Set txtInputData(2) = Text3 End Sub と、Form_Loadイベント等で配列に配列かしたいコントロールを入れて おけば、 'クリア Private Sub Command2_Click() Dim i As Long For i = 0 To 2 txtInputData(i).Text = "" Next End Sub ってな具合で利用できました。