module.bas

VB编写的简单销售管理系统

Attribute VB_Name = "Module"
Dim X0 As Integer
Dim Y0 As Integer

Public Sub MoveToCenter()
    '移到屏幕正中
    X0 = Screen.Width
    Y0 = Screen.Height
    X0 = (X0 - VB.Screen.ActiveForm.Width) / 2
    Y0 = (Y0 - VB.Screen.ActiveForm.Height) / 2
    VB.Screen.ActiveForm.Move X0, Y0
End Sub