Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim c As Control
        Dim txtb As TextBox
        For Each c In Me.Controls
            If TypeOf c Is TextBox Then
                txtb = CType(c, TextBox)
                If txtb.Tag <= 100 Then AddHandler txtb.KeyPress, AddressOf _
                  EingabeFilter
                Dim value As Double = CDbl(txtb.Text)
                txtb.Text = value.ToString("f")
            End If
        Next
    End Sub
 
    Private Sub EingabeFilter(ByVal absender As Object, ByVal keyArgs As _
      KeyPressEventArgs)
        Dim asc As Integer = Convert.ToInt32(keyArgs.KeyChar)  ' Ascii-Code 
        ' ermitteln
        Select Case asc
            Case 8, 44, 46, 48 To 57
            Case Else
                keyArgs.Handled = True
        End Select
    End Sub

If txtb.Tag <= 100 ...

Mit freundlichem Gru?

dk-team