[shado1796]

الحمد لله انحلت المشكلة هذا حلها ،،

ضعوا هذا الكود في اوامر الكلاس Class

كود :

Dim Multiplier As String  
Dim Calc1, Calc2 As Integer

هذا الكود ضعوه في زر الحساب Button

كود :

Multiplier = "*"
  TextBox2.Text = Val(TextBox1.Text) * Val("0.91440")

Textbox1= المتر ( القيمة الاكبر من اليارد )
1 متر = 0.91440 يارد
Textbox2 = فراغ الناتج ( الي يعطينا ناتج التحويل فيه )

تحياتي للجميع ،،