กำหนดให้ ผู้ใช้สามารถป้อนเฉพาะตัวเลขหรือจุดทศนิยนใน TextBox

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    Handles TextBox1.KeyPress
  If e.KeyChar <> ControlChars.Back Then
     e.Handled = Not (Char.IsDigit(e.KeyChar) Or e.KeyChar = ".")
  End If
End Sub