举个例子，我们可能从LineItem类中重写Amount方法，具体如下：
Public Function Amount() As Single
Return CalcAmount
End Function
Private Function CalcAmount() As Single
Return fQuantity * fPrice
End Function
从这个改变中，我们可以看到公共的方法Amount使用了Private方法来工作。
当我们利用LineItem来创建子类ServiceLine的时候，任何的ServiceLine对象都有一个Amount方法，因为它在基类中声明为Public。另外一方面，这个CalcAmount方法被声明为Private，所以所有的ServiceLine类和任何的客户代码都不能访问它。
这里值得一提的是，既然Amount方法存在于LineItem类中，它就可以访问CalcAmount方法即使在ServiceLine类中不能看到这个方法。
举个例子，在我们的客户代码中我们可以这样做：
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim sl As ServiceLine
sl = New ServiceLine()
sl.Item = delivery sl.Price = 20
sl.DateProvided = Now
MsgBox(sl.Amount, MsgBoxStyle.Information, amount)
End Sub
结果显示在一个消息框中，这样就阐明了CalcAmount方法被成功调用了，虽然客户代码和ServiceLine代码没有直接调用它。
Protected(保护)方法
有时，Public和Private并不能满足我们的要求。假如我们想声明一些变量或者方法为Private，那么这些变量和方法就只能在我们的类中使用；但是当我们声明一些变量和方法为Public或者Friend，那么这些变量和方法就可以在子类和客户代码中使用。但是，有时有声明一些变量和方法，让它们在子类中有效，而在客户代码中不能用，该怎么办呢？这里可以使用Protected辖域。当变量或者方法被声明为Protected的时候，对于任何类外部的代码将不能调用，但是还是可以被由它继续而来的子类调用。
举个例子吧，如下：
Public Class ParentClass
Protected TheValue As Integer
End Class
Public Class SubClass
Inherits ParentClass
Public Function GetValue() As Integer
Return TheValue
End Function
End Class
在上面的代码中我们有一个父类，它有一个Protected成员变量TheValue。这个变量在任何的客户代码中都不能被调用。但是这个变量对于任何的子类都是有效的因为它继续了这个父类。在这个例子中，SubClass有一个Public方法返回了Protected变量的数值，但是这个变量对于类的外部任何客户代码都是无效的。