If Forms("窗口1").Opened Then

    Dim frm As WinForm.Form

    frm = Forms("窗口1")

    Dim r As Row =  Tables("表A").current

    If r IsNot Nothing AndAlso r.IsNull("第一列") = False  Then

        Dim lst As new List(of String)

        lst.AddRange(r("第一列").split(","))

        For Each c As WinForm.Control In frm.Controls

            If Typeof c Is WinForm.button Then \'判断控件是否是文本框

                Dim t As WinForm.button = c \'使用特定类型的变量引用控件

                If lst.Contains(t.Text)

                    t.Theme = "Windows8Red"

                End If

            End If

        Next

    End If

End If