08/02/19 23:24:56
URLﾘﾝｸ(jeanne.wankuma.com)
' Load イベントで配列を動的に作成してフォームに加える
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
' Load ステートメントを使用してコントロールを作成する
Call Load(Me.Text1(i))
' ここで、プロパティなどを必要に応じて設定します
Me.Text1(i).Text = "Text" & CStr(i + 1)
Me.Text1(i).Top = Me.Text1(0).Top + (240 * i)
' 初期値で False になっているので True にする
Me.Text1(i).Visible = True
Next i
End Sub