Private Sub btn_dif_Click(sender As Object, e As EventArgs) Handles btn_dif.Click
Dim total As Double = Val(txt_realOD1.Text) - Int(txt_od1_std.Text)
If total = txt_od1_std.Text Then
sum_od1.Text = total
ElseIf total >= txt_od1_min.Text Then
sum_od1.Text = total
ElseIf total <= txt_od1_max.Text Then
sum_od1.Text = total
ต้องการส่วนนร้แสดงผลลัพธ์เป็นอักษรสีเขียว
ElseIf total < txt_od1_min.Text Then
sum_od1.Text = total
ต้องการส่วนนร้แสดงผลลัพธ์เป็นอักษรสีแดง
End If
End Sub