If you need only a few variables, you can pass the variable (s) as a parameter when initializing class 2.
Public Class Class1
Public VariableX As Integer = 1
Public Class Class2
Public Sub New(ByVal VariableX As Integer)
'Here GET the value of VariableX
Debug.Print(VariableX)
End Sub
End Class
Public Sub New()
Dim cls2 As New Class2(VariableX)
End Sub
End Class
, Class2 Class1; , . , . , .