Forms("标题窗口").show() '共有窗口 Forms("导航窗口").show() '共有窗口 Forms("主窗口").show() '主窗口 Forms("导航窗口").Panel.parent.parent.parent.BringToFront '提升窗口 BaseMainForm.controls("MainPages").BringToFront '遍历当前的共有窗口,设置颜色和边框样式 For Each obj As object In BaseMainForm.Controls obj.BackColor = Color.FromARGB(70,130,180) Next