module1.bas

用keil c和vb开发的单片机通用usb键盘

Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public Declare Function ReadPort1 Lib "EasyD12" (ByRef Data As Byte, ByVal iLen As Byte) As Long


Sub Main()
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub