Code: |
Private Sub Form_Load()
Dim cs() As String cs() = Split(Command$, "/") If UBound(cs) > 0 Then COMSend cs(0), cs(1) End If End End Sub |
Zitat: |
Multithreaded, dynamic link (import library for MSVCR80.DLL). Be aware that if you use the Standard C++ Library, your program will need MSVCP80.DLL to run. |