module1.bas

对家庭的开支有一个全面的了解和统计

Attribute VB_Name = "Module1"
Public fmainform As frmmain
Public username As String
Public lblcaption As String
Sub main()
Dim flogin As New frmLogin
flogin.Show vbModal
If Not flogin.Success Then
   End
End If
Unload flogin
Set fmainform = New frmmain
fmainform.Show
End Sub