加上
basemainform.controls("mainpages").backcolor = Color.FromARGB(70,130,180)
或者
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