Namespace Test

    Public Class Father
        Friend Shared _x As Integer = 1
        Public Sub New()

        End Sub
    End Class

    Public Class Child
        Inherits Father

        Public Sub New()

        End Sub

    End Class

End Namespace

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim f1 As New Father
            Dim c1 As New Child
            f1._x = 1
            MessageBox.Show("Father Class 's  Shared Attribues X Has Been Modify to:" + f1._x.ToString())
            c1._x = 123
            MessageBox.Show("Child Class 's  Shared Attribues Has Been Modify to:" + c1._x.ToString())
            MessageBox.Show("In The End Father Class 's  Shared Attribues X Has Been Modify to:" + f1._x.ToString())
        End Sub