#prompt
Class CTest1
Protected
  m_Name As String
  Virtual Sub DoPrintMsg()
  End Sub

Public
  Sub CTest(AName As String)
    m_Name = AName
  End Sub

  Sub PrintMsg()
    DoPrintMsg()
  End Sub
End Class

Class CInheritsTest
  inherits CTest1
Protected
  Override Sub DoPrintMsg()
    Print m_Name
  End Sub
Public
  Sub CInheritsTest(AName As String)
    CTest(AName)
  End Sub

  Sub PrintMsg2()
    Print m_Name
  End Sub
End Class

Dim A As CInheritsTest("hoge")
A.PrintMsg()   '何も起きない
A.PrintMsg2()

#prompt
Sub AProc(Num As Long)
  Print Str$(Num)
End Sub

Class CTest2
Private
  Sub AProc()
    Print "AProcメソッドの呼び出し"
  End Sub
Public
  Sub BProc()
    AProc(10)
  End Sub
End Class

Dim A As CTest2
A.BProc()