那就声明两个
Dim f11111111 As WinForm.TopicBar = Forms("表A").Controls("分类栏") Dim f22222222 As WinForm.TopicBar = Forms("表B").Controls("分类栏")