试试这样
Dim frm As WinForm.Form = Forms("窗口1")frm.openfrm.Baseform.Visible = Falsefrm.Baseform.ShowDialog