Public Class TeButton
    Inherits System.Windows.Forms.Button
    Private _authorization As Boolean = False
    Property Authorization() As Boolean
        Get
            Authorization = _authorization
        End Get
        Set(ByVal Value As Boolean)
            _authorization = Value
        End Set
    End Property

    Private _authorizationLevel As Byte = 0
    Property AuthorizationLevel() As Byte
        Get
            AuthorizationLevel = _authorizationLevel
        End Get
        Set(ByVal Value As Byte)
            _authorizationLevel = Value
        End Set
    End Property

    Private Sub TeButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        If Authorization Then
            If CheckAuthorization() Then
                ' authorized
            Else
                ' not authorized
                ' VORREI CHE IN QUESTO CASO NON VENISSE ESEGUITO
                ' IL CODICE DELL'EVENTO ONCLICK GENERATO NEL
                ' FORM IN CUI IL CONTROLLO E' UTILIZZATO
            End If
        Else
            ' nothing
        End If
    End Sub

    Private Function CheckAuthorization() As Boolean
        Return IIf(TeAuthorizationVars.currentAuthorizedLevel >= AuthorizationLevel, True, False)
    End Function

End Class