[حافظ حافظ]

شكرا اخ سعود تم حل المشكلة و بارك الله فيك.استخدمت هكذا

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If rowcount() = 0 Then
           TextBox5.Text = Val(TextBox1.Text)
       Else
           TextBox5.Text = Val(TextBox1.Text) + 1
       End If
   End Sub