Understand, thank you
			
			Private Sub btnToggle_Click (e As BANanoEvent)
    iBorder = iBorder + 1
    VAlert1.ColoredBorder = True
    Select Case iBorder
    Case 1
        VAlert1.BorderType = vuetify.ALERT_BORDER_LEFT
    Case 2
        VAlert1.BorderType = vuetify.ALERT_BORDER_RIGHT
    Case 3
        VAlert1.BorderType = vuetify.ALERT_BORDER_TOP
    Case 4
        VAlert1.BorderType = vuetify.ALERT_BORDER_BOTTOM
    Case 5    
        VAlert1.BorderType = vuetify.ALERT_BORDER_NONE
        iBorder = 0
    End Select
End Sub
Private Sub btnType_Click (e As BANanoEvent)
    iType = iType + 1
    VAlert1.Dark = False
    Select Case iType
    Case 1
        VAlert1.AlertType = vuetify.ALERT_TYPE_ERROR
        VAlert1.Caption = "Error Alert"
    Case 2
        VAlert1.AlertType = vuetify.ALERT_TYPE_SUCCESS
        VAlert1.Caption = "Success Alert"
    Case 3
        VAlert1.AlertType = vuetify.ALERT_TYPE_WARNING
        VAlert1.Caption = "Warning Alert"
    Case 4
        VAlert1.AlertType = vuetify.ALERT_TYPE_INFO
        VAlert1.Caption = "Info Alert"
    Case 5
        VAlert1.AlertType = vuetify.ALERT_TYPE_NONE
        VAlert1.Caption = "Normal Alert"
        iType = 0
    End Select
End Sub
Private Sub btnProminent_Click (e As BANanoEvent)
    Select Case iProm
    Case 0
        VAlert1.Prominent = True
        iProm =1
    Case 1
        VAlert1.Prominent = False
        iProm = 0        
    End Select
End Sub
Private Sub btnDense_Click (e As BANanoEvent)
    Select Case iDense
        Case 0
            VAlert1.Dense = True
            iDense =1
        Case 1
            VAlert1.Dense = False
            iDense = 2
        Case 2
            VAlert1.Visible = False
            iDense = 3
        Case 3
            VAlert1.Visible = True
            iDense = 0        
    End Select
End Sub
Private Sub btnShaped_Click (e As BANanoEvent)
    Select Case iColor
    Case 0
        VAlert1.Shaped = True
        iColor = 1
    Case 1
        VAlert1.Shaped = False
        iColor = 2
    Case 2
        VAlert1.Outlined = True
        iColor = 3
    Case 3
        VAlert1.Outlined = False
        iColor = 4
    Case 4
        VAlert1.Dismissible = True
        iColor = 5
    Case 5
        VAlert1.Dismissible = False    
        iColor = 6
    Case 6
        VAlert1.Icon = "mdi-share-circle"
        iColor = 7
    Case 7
        VAlert1.Icon = ""
        iColor = 0
    End Select
End Sub
	#if css
::-webkit-scrollbar {
  background: transparent;
  width: 12px !important;
}
::-webkit-scrollbar-thumb {
  background: #606060 !important;
  border-radius: 100px !important;
}
#End If