Public Class ClassLibrary1
    Public Shared numShared As Integer ' Class Variable
    'Private Shared numShared As Integer ' Class Variable
    Public numInstance As Integer   ' Instance Variable
    'Private numInstance As Integer   ' Instance Variable

    Public Sub Test()
        numShared = 1
    End Sub
End Class

Public Class ClassLibrary2
    Public Sub Test()
        ClassLibrary1.numShared = 2
        Dim c As New ClassLibrary1
        c.numInstance = 2
    End Sub
End Class