If (FBL1.Text = " ") Or FBL1.Text = String.Empty Then
FBL1.Text = "0"
End If
Dim DblFBL1 As Double = Convert.ToDouble(FBL1.Text)
Dim StrPaintType As String = PaintType.Text
If (StrPaintType = "EA") Then
If VirginRadio.Checked Then
If (DblFBL1 < 2.0 Or DblFBL1 > 5.0) Then
FBL1.BackColor = Color.Salmon
Else
FBL1.BackColor = Color.LightGreen
End If
End If
If RepaintRadio.Checked Then
FBL1.BackColor = Color.LightGreen
End If
End If
If (StrPaintType = "EB") Then
If VirginRadio.Checked Then
If (DblFBL1 < 2.5 Or DblFBL1 > 5.0) Then
FBL1.BackColor = Color.Salmon
Else
FBL1.BackColor = Color.LightGreen
End If
End If
If RepaintRadio.Checked Then
FBL1.BackColor = Color.LightGreen
End If
End If