vb6.0 动态添加的按钮控件，如何在下次打开窗体时还在窗体上

[ajunajun]

使用下面的命令能够动态添加按钮控件数组：

Dim Maxid As Integer
Private Sub Command1_Click()
   Maxid = Maxid + 1                        '按钮计数递增。
   Load Command2(Maxid)                      '创建新按钮。
   '将新按钮放置在上一个按钮下方。
   Command2(Maxid).Move Command2(Maxid - 1).Left, Command2(Maxid - 1).Top + 400
   Command2(Maxid).Visible = True                '显示新按钮。
   Command2(Maxid).Caption = "命令按钮" & Maxid + 1
End Sub

可是，在下次打开窗体时新添加的按钮就不存在了，如何在下次打开窗体时动态添加的控件还在窗体上？

[笨狗先飞]

Dim Maxid As Integer

Private Sub Command1_Click()
   Maxid = Maxid + 1                        '按钮计数递增。
   Load Command2(Maxid)                      '创建新按钮。
   '将新按钮放置在上一个按钮下方。
   Command2(Maxid).Move Command2(Maxid - 1).Left, Command2(Maxid - 1).Top + 400
   Command2(Maxid).Visible = True                '显示新按钮。
   Command2(Maxid).Caption = "命令按钮" & Maxid + 1
   SaveSetting App.Title, "Config", "Maxid", CStr(Maxid)
End Sub

Private Sub Form_Load()
    Dim S As String, I As Integer
    S = GetSetting(App.Title, "Config", "Maxid", "0")
    If IsNumeric(S) Then Maxid = CInt(S)
    If Maxid > 1 Then
        For I = 1 To Maxid
            Load Command2(I)
            Command2(I).Move Command2(I - 1).Left, Command2(I - 1).Top + 400
            Command2(I).Visible = True
            Command2(I).Caption = "命令按钮" & I + 1
        Next
    End If
End Sub