تکس باکسی که منفی را بگیرد

[danshno1]

با سلام قطعه کد برنامه در محيط وي بي دات نت
(ميخواهم از همان تکس باکس استفاده نمايم واين تغييرات بوسليه کدي که وجود دارد انجام شود)
تکس باکسي که فقط عدد را بپذيرد و منفي را نيز قبول کند واگر کاربر عددي را وارد کرد اعداد را ويرگول گذاري شوند.(ويرگول بين اعداد بگذارد)
به اين صورت که مثلا: 72،356،000-

[barbodsoft.com]

تو رویداد کی پرس


Private Sub Txt_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txt.KeyPress
If Asc(e.KeyChar) = 13 And Asc(e.KeyChar) = 14 Or Asc(e.KeyChar) = 9 _
Or e.KeyChar = "." Or e.KeyChar = "-" Then Exit Sub

If (Char.IsNumber(e.KeyChar) <> True) Then
e.Handled = True
MessageBox.Show("لطفا فقط عدد وارد کنید")
End If
If (Char.IsPunctuation(e.KeyChar)) Then
e.Handled = True
End If
End Sub


و تو رویداد تکست چنج



Private Sub Txt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt.TextChanged
If Txt.Text <> "-" Then
Dim value As Double = Txt.Text
Txt.Text = value.ToString("#,#", CultureInfo.InvariantCulture)
Txt.SelectionStart = Txt.TextLength
End If
End Sub