edit text

[HOSSEINI 10]

سلام

من میخوام از موجودی edit text برای شرط استفاده کنم داخل اجرا خطا میده علت چیه؟

Sub Button2_Click
Dim a As Double
a=gr.Text
   If RadioButton2.Checked Then
   gr.Text=size.Text*30
   lab.Text="میزان تزریق گریس برای هر سمت از والو"
 Else  If size.text<5 Then
       gr.Text=size.Text*30
   lab.Text="میزان تزریق گریس "


    End If
End Sub

[پژمان نیکروان 6,055]

سلام خوش اومدی.

راستش من اصلا نفهمیدم... یکم بیشتر توضیح بده که میخوای چه اتفاقی بیفته.

درضمن میتونی کد هارو توی پوشش کد قرار بدی تا درست نمایش داده بشه.

اینجوری زودتر به جواب میرسی.