设置框架及其'；将元素还原为默认vb6

我需要对框架做很多工作，我想知道是否有可能快速设置一个框架，包括文本框、标签、进度条等等。。。返回到VB6中的默认值。 因为我现在唯一能做的就是在我将框架的可视性设置为false时自己设置它们，所以我可以做任何事情

---

提前感谢。

尝试一个for循环，并遍历表单上的每个控件，将其设置为默认值。像这样的

Dim-Ctl作为对照

对于me.controls中的每个Ctl ctl.value=ctl.defaultvalue 下一个

---

干杯

首先，谢谢你的回答。但是我不能得到像这样的文本框的defautlvalue。至少我有这个想法，再次谢谢你。

Option Explicit

'~~~ When a button is clicked..
Private Sub Command1_Click()
    Dim cntl As Control

    For Each cntl In Me.Controls '~~~ Loop through all the controls in the form

        If TypeOf cntl Is TextBox Then  '~~~ if the control is a TextBox..
            cntl.Text = ""              '~~~ ..set the Text as empty
        ElseIf TypeOf cntl Is ComboBox Or TypeOf cntl Is ListBox Then   '~~~ if the control is ComboBox/ListBox..
            cntl.Clear                  '~~~ ..clear the items
        ElseIf TypeOf cntl Is CheckBox Then '~~~ if the control is a CheckBox..
            cntl.Value = vbUnchecked        '~~~ ..uncheck it
        ElseIf TypeOf cntl Is OptionButton Then '~~~ if the control is an OptionButton(radio buttons)..
            cntl.Value = False                  '~~~ ..set it's value to False
        End If

    Next
End Sub