Public Class global
 
    Public Shared Status As Integer
 
    'Eingestellte PC-Bildschrimauflösung
    Public Shared LocationX, LocationY, AufloesungWidth, AufloesungHeight As _
      Integer
 
    Public Shared Event LocationChanged()
    Private Shared _Einsatzort As Einsatz
 
    Public Shared Property Einsatzort() As Einsatz
        Get
            Return _Einsatzort
        End Get
        Set(ByVal Value As Einsatz)
            _Einsatzort = Value
            RaiseEvent LocationChanged()
        End Set
    End Property
 
    Public Enum Einsatz
        Zentrale = 1
        Laptop = 2
    End Enum
End Class

    Private Sub MyLocationChanged() Handles global.LocationChanged
        'Standort global speichern
        Try
            If global.Einsatzort = global.Einsatz.Zentrale Then
                NavItemGenehmigung.Visible = True
            Else
                NavItemGenehmigung.Visible = False
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.Message & "; " & ex.Source & ";" & _
              "EventLocationChanged")
        End Try
    End Sub