[vb.net]访问基类中的字符串变量有关问题

[vb.net]访问基类中的字符串变量问题

Public MustInherit Class Class1
    Public str1 As String
    MustOverride Sub MySub()
End Class
Class MyClass1 : Inherits class1
    Public Overrides Sub MySub()
        str1 = "再见！巴西世界杯"
    End Sub
End Class
Class MyClass2 : Inherits Class1
    Public Overrides Sub MySub()
        MsgBox(str1)
    End Sub
End Class

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim cla1 As Class1
        cla1 = New MyClass1
        cla1.MySub()
        cla1 = New MyClass2
        cla1.MySub()
    End Sub
End Class

使用基类时的情况不一样，如何基类成员的有一个过程向str1赋值，然后另一个过程获取str1值呢
我知道 基类成员加上Shared时能实现。 Public Shared str1 As String
不使用shared共享情况下如何解决问题吗。

不希望今天看到辱骂我的事件出现。

请尊重每个人的人格和尊严。是普世价值——人权中的一部分。



------解决方案--------------------
VB.NET 中多个类共用一个事件通道   

------解决方案--------------------
不使用shared共享情况下，做不到。