forms - VBA：格式化所有表单的文本框

Question

我曾经在我的一个项目中使用一个模块来格式化excel工作簿中所有用户表单的文本框，代码看起来像：

Sub TxtBx(i As Integer)
    Dim uf As UserForm
        For Each uf In UserForms
            With uf("TextBox" & i)
                If .Text Like "" Then
                ......................................

现在我将我的项目移动到一个应用程序，我需要相同的模块进行格式化。那么在 Windows 窗体应用程序中怎么说：

Module Module1
        Sub TxtBx(i As Integer)
            Dim f As  System.Windows.Forms.Form
            For Each f As System.Windows.Forms            
                With f("TextBox" & i)
                .....................

Answer 1

我无法使用.Net。我将它切换到 VB6，它看起来像：

Sub TxtBx(i As Integer)
    s.Language = "VBScript"
    For Each uf In Forms
        With uf("TextBox" & i)
            If .Text Like "" Or .Text Like "-" 
..................