[ابراهيم ايبو]

السلام عليكم اخي الكريم

تفضل هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Nmbr As Decimal = Val(TextBox1.Text / 1000)
       TextBox2.Text = String.Format("{0:0}", Nmbr) '  لتقريب العدد
       TextBox2.Text *= 1000
   End Sub