[explorer2]

السلام عليكم ورحمة الله وبركاته

عندي نموذجين
الاول يوجد به تكست بوكس وزر امر

وفي الثاني تكست بوكس

اريد نقل قيمة التكست بوكس الى النموذج الاخر مع زيادة واحد 

جربت التالي

بوضعه في زر الامر

Dim x As Integer
        If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x + 1

        ()Form2.Show

ولكن لم تنجح الطريقة