module2.bas

用户MODBUS规约通信编程,起参考作用.

Attribute VB_Name = "Module2"
Sub Main()
    
    Dim f As New frmsplash1
    f.Left = 4000
    f.Top = 2500
    
    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