เช็คจุดทศนิยมใน Textbox ห้ามกรอกเกิน 1 จุด Visual Basic2005

        Select Case e.KeyChar
            Case "."
                e.Handled = False 
            Case "0" To "9"
                e.Handled = False
            Case Chr(8), Chr(13), Chr(46)  // กด enter , backspace
                e.Handled = False
            Case Else 
                e.Handled = True
        End Select