Code:
Private Sub cmdAsk_Click()
MSComm1.Output = "ask//"
If (MSComm1.CommEvent = comEvReceive) Then
 
       Attente (300)
        
           MyStrg = MSComm1.Input
Dim I As Integer
For I = 1 To Len(MyStrg)
Dim Relays(15) As Boolean

Next I
Dim FirstByte As Byte
Dim SecondByte As Byte
Dim intRelay As Integer
   FirstByte = Asc(Mid(MyStrg, 1, 1))
   SecondByte = Asc(Mid(MyStrg, 2, 1))
    For I = 7 To 0 Step -1
       Relays(intRelay) = FirstByte And 2 ^ I
       intRelay = intRelay + 1
    Next I
    For I = 7 To 0 Step -1
       Relays(intRelay) = SecondByte And 2 ^ I
       intRelay = intRelay + 1
    Next I
        For I = 0 To 15
     ' "fStatusTrue" & CStr(I + 1) & ".Visible = " & CStr(Relays(I))
    '  Text1.SelText = "fStatus" & CStr(I + 1) & ".backcolor = " & CStr(Relays(I)) & vbCrLf
    Text1.SelText = "Relay state for relay: " & CStr(I + 1) & " is  " & CStr(Relays(I)) & vbCrLf
        
    Dim R As String
    R = CStr(I + 1)
   ' MsgBox R
       If CStr(Relays(I)) = False Then

      Text2.SelText = "fStatus" & R & ".BackColor = &HFF&"
        fStatus(R).BackColor = &HFF&
        Else
      Text2.SelText = "fStatus" & R & ".BackColor = &HC000&"
      fStatus(R).BackColor = &HC000&
        End If
    Next I

            lstConnection.Text = lstConnection.Text & FirstByte & SecondByte & vbCrLf
            SendMessage lstConnection.hWnd, WM_VSCROLL, SB_BOTTOM, 0
            End If
End Sub
So I am hoping to change the color of my 16 Frames Red if False Green if True
On Form Load I set them all to Red

Code:
fStatus1.BackColor = &HFF&
fStatus2.BackColor = &HFF&
fStatus3.BackColor = &HFF&
fStatus4.BackColor = &HFF&
fStatus5.BackColor = &HFF&
fStatus6.BackColor = &HFF&
fStatus7.BackColor = &HFF&
fStatus8.BackColor = &HFF&
fStatus9.BackColor = &HFF&
fStatus10.BackColor = &HFF&
fStatus11.BackColor = &HFF&
fStatus12.BackColor = &HFF&
fStatus13.BackColor = &HFF&
fStatus14.BackColor = &HFF&
fStatus15.BackColor = &HFF&
fStatus16.BackColor = &HFF&