如下：
梁平ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！
PrivateSubForm_Resize()
Command1.Top=(Me.Height-Command1.Height)\2
Command1.Left=(Me.Width-Command1.Width)\2
EndSub
把Command1换成你想要居中的控件名就可以了（正确排版就是上面那样的）
VB：
VisualBasic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。[1]
“Visual”指的是开发图形用户界面(GUI)的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。“Basic”指的是BASIC(BeginnersAll-PurposeSymbolic InstructionCode)语言，是一种在计算技术发展历史上应用得最为广泛的语言。
VisualBasic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件，用于高效生成类型安全和面向对象的应用程序[2] 。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
设置控件位置使用Top,Left属性，要在屏幕居中，利用VB内置对象 Screen
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
当然，如果你只是一开始（第一次显示）居中，设置 StartupPosition=2即可
StartPosition属性有如下选项，分别含义如下：
CenterParent 窗体在其父窗体中居中。
CenterScreen 窗体在当前显示窗口中居中，其尺寸在窗体大小中指定。
Manual 窗体的位置由Location属性确定。
WindowsDefaultBounds 窗体定位在Windows默认位置，其边界也由Windows默认决定。
WindowsDefaultLocation 窗体定位在Windows默认位置，其尺寸在窗体大小中指定。
CenterScreen的意思并不是屏幕居中(是相对的),它是在"当前显示窗口"中居中。当用Show()方法时应选择CenterScreen,用ShowDialog()方法时应选择CenterParent,这样才能让要显示的窗口居中。
form窗体有一个属性是startposition，把它设置为centerscreen就是居中。
代码为
me.startposition
=
formstartposition.centerscreen。
如果是非要计算分辨率的话：
my.computer.screen.bounds.width
是分辨率中的宽度
my.computer.screen.bounds.height
是分辨率中的高度
那么
me.top
=
(my.computer.screen.bounds.height
-
me.height)
/
2
me.left
=
(my.computer.screen.bounds.width
-
me.width)
/
2
就是让窗体居中啦～
方法一:
Me.Left=Screen.Width/2-Me.Width/2
Me.Top=Screen.Height/2-Me.Height/2
方法二:
将窗体的StartUpPosition属性设为2,屏幕中心
实现vb程序全屏运行。
1.打开Microsoft Visual Studio 2008/2010或者Visual basic应用软件；
2.新建一个windows窗体应用程序；
3.选中窗体，在右下角窗体属性中找到windowstate和formborderstyle两项。分别将其属性更改为Maximized和None（windowstate：Maximized/formborderstyle：None）；
4.按F5运行看看是不是已经全屏运行了。
实现vb程序居中运行。
在主窗体的Form_load()中的最前面加入下列代码：
Dim X0 As long
Dim Y0 As Long
'让窗体居中
X0=Screen.Width
Y0=Screen.Height
X0=(X0-Me.Width)/2
Y0=(Y0-Me.Height)/2
Me.MoveX0,Y0-