cardstore2.bas

系统集成项目的售后服务管理系统

Attribute VB_Name = "Module2"
Private Sub Main()
frmSplash.Show

DoEvents

'Load Form1
'Load qry_in
'Load in_manage
'Load in_query
'Load PhoneRecords
'Load qryphone
'Load PhoneQuery
'Load supRecord
'Load frmPerson

x = 0
For i = 1 To 100000
x = i * 2
Next i

Form1.Visible = True

Unload frmSplash

End Sub