startup.bas

饲料生产控制系统

Attribute VB_Name = "StartUp"
Private Sub Main()
    
    ' 傾僾儕働乕僔儑儞偺僀儞僗僞儞僗偑惗惉偝傟偰偄側偄帪偼婲摦偡傞
    If App.PrevInstance = False Then
        Dim frm000 As HFrm000
        Set frm000 = New HFrm000

        Call frm000.Show(1)  '  .Show(vbModal)

    ' 婛偵婲摦拞偱偁傞巪傪昞帵 (悇彠偟傑偣傫)
    Else
        Call MsgBox("椦寭儊僯儏乕偼婛偵婲摦拞偱偡")
    End If

End Sub