Private Sub tmrUDP_Tick(sender As Object, e As EventArgs) Handles tmrUDP.Tick Try Dim ep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) Dim receiveBytes() As Byte = subscriber.Receive(ep) lblColor.Text = ASCII.GetString(receiveBytes) If lblColor.Text = "b" Then btnBlue.Visible = False ElseIf lblColor.Text = "r" Then btnRed.Visible = False End If Catch ex As Exception End Try End Sub