[silverlight]

كود :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim originalNo As Double = 10
       Dim sameNo As Double = 10
       Dim AddNo As Double = 4

       Me.Text = SolveEquation(originalNo, sameNo, AddNo)
   End Sub

   Private Function SolveEquation(originalNo As Double, sameNo As Double, numberToAdd As Double) As Double
       Dim result As Double = originalNo + sameNo + numberToAdd
       result /= 2
       result -= originalNo
       Return result
   End Function
End Class