module1.bas

七星彩抽采程序

Attribute VB_Name = "Module1"
Public mAdocon As New ADODB.Connection
Sub main()
    mAdocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\qxc.mdb;Persist Security Info=False"
    mAdocon.CursorLocation = adUseClient
    Form1.Show 1
End Sub
Sub setFORM(frm As Form)
    frm.Left = (Screen.Width - frm.Width) / 2
    frm.Top = (Screen.Height - frm.Height) / 2
End Sub