[asemshahen5]

تفضل أخي العزيز :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim d As New ArrayList
        d.Clear()
        d.AddRange(Split(TextBox1.Text, ".").ToArray)
        TextBox1.Text = d(0) & "." & d(1) + 1
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim d As New ArrayList
        d.Clear()
        d.AddRange(Split(TextBox1.Text, ".").ToArray)
        TextBox1.Text = d(0) & "." & d(1) - 1
    End Sub