is it possible into a sub to change the Danger's Property Scope and how?

[WomanPro]

I have the following structure and I have a question, is it possible into a sub to change the Danger's Property Scope and how? Any suggestions please?
Any help will be much appreciated. Thank you so much in advanced.

Public Structure EachCpl2PlayLonelies
   Public Cpl2Play As CoupleToPlay
   Public CntLoneliesBfr As Byte
   Public CntLoneliesAftr As Byte
   Private m_Danger As Boolean
   Public Property Danger() As Boolean
     Get
        Return m_Danger
     End Get
     Set(ByVal value As Boolean)
         m_Danger = value
     End Set
   End Property
End Structure

For example

Public Sub ChangeScope(ByVal Cpl2PlayLonelies As EachCpl2PlayLonelies, ByVal flag As Boolean)
   If flag Then
      'Make the property invisible
   Else
      'Let the property as it is
   End If
End Sub