module1.bas

这是一套农村电费计算程序的源码。能够对用户电费进行计算、查询、打印。

Attribute VB_Name = "Module1"
Global Const LISTVIEW_BUTTON = 11


Public fMainForm As frmMain
Public string1(1 To 14) As String '用于窗体间传递数据用
Public boolean1(1 To 5) As Boolean '用于窗体间传递数据用
Public pathM As String, tmp As String




Sub Main()
    
    frmSplash.Show
    frmSplash.Refresh
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash


    fMainForm.Show
End Sub