public class Test
public Shared Sub Main
Dim objMyObject As YourClass
objMyObject = New YourClass()
Console.WriteLine(objMyObject.AddTwoNumbers(1, 2))
objMyObject = Nothing
End Sub
End Class
Public Class YourClass
Private m_intHeight As Integer
Public Property Height() As Integer
Get
Return m_intHeight
End Get
Set(ByVal value As Integer)
If m_intHeight < 10 Then Exit Property
m_intHeight = value
End Set
End Property
Public Function AddTwoNumbers(ByVal intNumber1 As Integer, _
ByVal intNumber2 As Integer) As Long
AddTwoNumbers = intNumber1 + intNumber2
End Function
End Class
|