Private Sub TxtSsendvalue1_Validating(ByVal sender As Object, ByVal e As _
  System.ComponentModel.CancelEventArgs) Handles TxtSsendvalue1.Validating
 
 Select Case Me.CBSset1.SelectedItem()
 
            Case "int"
                Me.TxtSsendvalue1.Text = CInt(Me.TxtSsendvalue1.Text)
 
 
        End Select
 
    End Sub

hallo ich lerne gerade visual donet und m?chte gern an den Foren teilnehmen