[QUOTE=مدرس . كمبيوتر;5144954][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)
|