below are the code i edited which come from you..i add the code you posted in previous to find the port but i guess there still lacking in this..
Option Explicit
' this is added to allow the sleep call
Private Declare Sub Sleep Lib "kernel32" ( _
ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim mystr As String
With MSComm1
FoundIt = False // when i run this vb app. an error occurs here stating not define...
'find USB port
ComFail = False
FailErr = False
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
On Error Resume Next
.CommPort = 2 ' *************** YOU MAY NEED TO CHANGE THIS OR ADD MY CODE TO FIND THE COM PORT************************
.Settings = "9600,N,8,1"
On Error Resume Next
.InputLen = 0
.DTREnable = True
.RTSEnable = True
.RThreshold = 4
.SThreshold = 3
.PortOpen = True
End With
End Sub
Private Sub LEDOn(col As Long)
Shape1.BackColor = col
End Sub
Private Sub LEDOff()
Shape1.BackColor = &HFFFFFF
End Sub
Private Sub MSComm1_OnComm()
Dim strData As String
Static strBuffer As String
Dim strWords() As String
Dim intPos As Integer
Dim boComplete As Boolean
Dim mystr As String
Sleep 1000 ' this waits one second between readings from the Arduino
mystr = "" ' set the string to nothing
mystr = MSComm1.Input
intPos = InStr(mystr, "<")
If intPos > 0 Then
Select Case Mid(mystr, 1, 3) ' strip off the CR/LF
Case "<Y>"
Text1.Text = ("The pressures value is 80 psi")
Call LEDOn(&HFFFF&) ' this is in hex
Case "<B>"
Text1.Text = ("The pressures value is 60 psi")
Call LEDOn(&HFF0000) ' this is in hex
Case "<R>"
Text1.Text = ("The pressures value is 20 psi")
Call LEDOn(&HFF&) ' this is in hex
Case "<G>"
Text1.Text = ("The pressures value is 40 psi")
Call LEDOn(&HFF00&) ' this is in hex
Case Else
Call LEDOff
End Select
End If
End Sub
i appreciate most your help! 