[hassanalhawy]

أنظر لهذا التعديل وستعجب له

Function Sum(ByVal First As Short, ByVal second As Short) As Byte
Dim total As Short
total = First + second
Return total

End Function



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Sum(255, 1))
End Sub

ستجد أن الخطأ ظهر فى سطر Return total