Public Class clsA
    private x as Decimal

    Public Sub abc()
        x = 1D
    End Sub    

    Public Sub defg()
        Dim y as Decimal
        y = x
    End Sub
End Class