在主窗体的Form_load()中的最前面加入下列代码: DimX0Aslong DimY0AsLong '让窗体居中 X0=Screen.Width Y0=Screen.Height X0=(X0-Me.Width)/2 Y0=(Y0-Me.Height)/2 Me.MoveX0,Y0->