[مدرس . كمبيوتر]

[QUOTE=tmrmsr;5144998]

المشاركة الأصلية كتبت بواسطة مدرس . كمبيوتر

[LEFT][LEFT]Function Sum ( Byval First as single , byval second as single ) as single
Dim total as single
Total = first + second
Return total
End function


مثال لعملية الاستدعاء
Dim x as Single
x=sum(4,6)

MessageBox.show(x)

شكرا استاذ تامر
طيب لو عملتها كدة صح
MessageBox.show(sum( 4 , 6 )