这段代码小弟我都糊涂了，帮帮小弟我吧

这段代码我都糊涂了，帮帮我吧！
这段代码我都糊涂了，帮帮我吧！


Public     Class     Class_1    

              Public     Overridable     Function     GetMyName()     As     String    
                              Return         "Class_1     "    
              End     Function    

              Public     Function     GetMeType()     As     String    
                              Return     Me.GetType.ToString    
              End     Function    

End     Class    

Public     Class     Class_2    
              Inherits     Class_1    

              Public     Overrides     Function     GetMyName()     As     String    
                              Return         "Class_2     "    
              End     Function    

              Public     Overridable     Function     GetMyBassName()     As     String    
                              Return     MyBase.GetMyName    
              End     Function    

              Public     Overridable     Function     GetMyClassName()     As     String    
                              Return     MyClass.GetMyName    
              End     Function    

End     Class    


Public     Class     Class_3    
              Inherits     Class_2    

              Public     Overrides     Function     GetMyName()     As     String    
                              Return         "Class_3     "    
              End     Function    
End     Class    


执行代码：    
Dim     m_Class_2     As     New     Class_3    
            Dim     m_String     As     String    

  m_String     &=         "GetMyBassName     --         >     "     &     m_Class_2.GetMyBassName     &     vbCrLf