valuechanged事件
If val(e.sender.Text) < 0 Then
e.sender.BackColor = Color.Red
Else
e.sender.BackColor = Color.White
End If