Sub sendButton_Click
tempLabel.Text = ""
humidLabel.Text = ""
If tempLabel.Text =39 Then
Label3.Text = "FIELD"
Label3.TextColor = Colors.Red
else If tempLabel.Text =40 Then
Label3.Text = "FIELD"
Labe3.TextColor = Colors.Green
else If tempLabel.Text = Then
Label3.Text = "FIELD"
Label3.TextColor = Colors.Blue
End If
Dim Buffer() As Byte
Buffer = "Arun".GetBytes("UTF8")
TcpStreams.Write(Buffer)
End Sub
Sub sendButton_Click
tempLabel.Text = ""
humidLabel.Text = ""
If tempLabel.Text =39 Then
Label3.Text = "FIELD"
Label3.TextColor = Colors.Red
else If tempLabel.Text =40 Then
Label3.Text = "FIELD"
Label3.TextColor = Colors.Green
else If tempLabel.Text = <Missing value here> Then
Label3.Text = "FIELD"
Label3.TextColor = Colors.Blue
End If
Dim Buffer() As Byte
Buffer = "Arun".GetBytes("UTF8")
TcpStreams.Write(Buffer)
End Sub
Plus we're not actually sure what you're attempting to do and what the problem is... At a guess it doesn't compile