Private Sub statwrite(Textbox As String, port As Integer, Stat As Integer)
Dim Text As String
Dim Color As String
Dim Textboxtemp As String
 
Select Case Stat
Case 0:
Text = "Offline"
Color = &H80000005
 
Case 1:
Text = "OK"
Color = &HFF00&
 
Case 2:
Text = "Error"
Color = &HFF&
End Select
 
Textboxtemp = "teb" & Textbox & port
 
Textboxtemp.BackColor = Color