module1.bas

来自「TMS（小型票务管理VB+Access）」· BAS 代码 · 共 20 行

Attribute VB_Name = "Module1"
Option Explicit
Declare Sub ReleaseCapture Lib "user32" ()
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Public Started As Boolean
Sub CenterForm(frm As Form)
    If Mainform.Picture1.Visible = True Then
        frm.Left = ((Mainform.Width - Mainform.Picture1.Width) - frm.Width) \ 2
    Else
        frm.Left = ((Mainform.Width) - frm.Width) \ 2
    End If
    frm.Top = (Mainform.ScaleHeight - frm.Height) \ 2
End Sub
Sub Main()
    ChDrive App.Path
    ChDir App.Path
    frmSplash.Show
End Sub