|
|
Private Declare Function ConfigurePort Lib "winspool.drv" Alias "ConfigurePortA" (ByVal pName As String, ByVal hwnd As Long, ByVal pPortName As String) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-MAil: KPDTeam@Allapi.net
MsgBox ConfigurePort("", Me.hwnd, "COM2")
MsgBox ConfigurePort("", Me.hwnd, "LPT1")
End Sub
|
|
