MSComm Communication

Private Const Max_Packetsize as long=1024

Private Sub cmdTest_Click()


SetupPort MSComm1


If Err.Number=0 then

MsgBox “Ok”


MsgBox “Gagal” vbCrlf & Err.Description

End If

End Sub

Private Function SetupPort(objCom as MSComm)

With ObjCom
















End with

End Function

One response to “MSComm Communication

  1. source code vb6: how to control multi out sound.
    example : from computer(with 8sound application) – usb hub(8channel out) – soundboster(8) – speaker(8).
    “How to control output sound to channel out(usb hub)??


    Thank you

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s