module1.bas

mnnnml , ,l, ,mk mmkkmlklmkkkkkkkkkkkkkm,mkl

Attribute VB_Name = "Module1"
Public gz_user As String
Sub Main()
    App.HelpFile = fullpath("html\myhelp.chm")
    Dim f As New frmLogin
    f.Show vbModal
End Sub
Function fullpath(filename As String)
    temp = App.Path
    If Right$(temp, 1) <> "\" Then temp = temp & "\"
    fullpath = temp & filename
End Function