diff --git a/R/virtual-select.R b/R/virtual-select.R
index 02481501..43cd5715 100644
--- a/R/virtual-select.R
+++ b/R/virtual-select.R
@@ -268,8 +268,11 @@ updateVirtualSelect <- function(inputId,
 #' # Prepare choices from a data.frame
 #' demoVirtualSelect("prepare-choices")
 #'
+#' # Theming with bslib
+#' demoVirtualSelect("bslib-theming")
+#'
 #' }
-demoVirtualSelect <- function(name = c("default", "update", "choices-format", "prepare-choices")) {
+demoVirtualSelect <- function(name = c("default", "update", "choices-format", "prepare-choices", "bslib-theming")) {
   name <- match.arg(name )
   runApp(
     shinyAppFile(
diff --git a/inst/examples/virtual-select/bslib-theming/app.R b/inst/examples/virtual-select/bslib-theming/app.R
new file mode 100644
index 00000000..5524e4e0
--- /dev/null
+++ b/inst/examples/virtual-select/bslib-theming/app.R
@@ -0,0 +1,56 @@
+library(shiny)
+library(shinyWidgets)
+library(bslib)
+
+# Custom rules to match virtual select CSS classes to Boostrap classes
+vs_rules <- c(
+  ".vscomp-toggle-button { @extend .btn }",
+  ".vscomp-toggle-button { @extend .btn-outline-secondary }",
+  ".vscomp-toggle-button { @extend .text-start }",
+  ".vscomp-arrow::after { @extend .border-dark }",
+  ".vscomp-arrow::after { @extend .border-start-0 }",
+  ".vscomp-arrow::after { @extend .border-top-0 }",
+  ".vscomp-option:hover { @extend .bg-primary }",
+  ".vscomp-option  { @extend .bg-light }",
+  ".vscomp-search-wrapper { @extend .bg-light }",
+  ".vscomp-toggle-all-label { @extend .bg-light }"
+)
+
+# Light theme
+light <- bs_add_rules(
+  bs_theme(preset = "bootstrap"),
+  vs_rules
+)
+
+# Dark theme
+dark <- bs_add_rules(
+  bs_theme(preset = "bootstrap", bg = "black", fg = "white"),
+  vs_rules
+)
+
+ui <- fluidPage(
+  theme = light,
+  checkboxInput("dark_mode", "Dark mode"),
+  tags$h2("bslib theming for Virtual Select"),
+  virtualSelectInput(
+    inputId = "single",
+    label = "Single select :",
+    choices = month.name,
+    search = TRUE
+  ),
+  virtualSelectInput(
+    inputId = "multiple",
+    label = "Multiple select:",
+    choices = setNames(month.abb, month.name),
+    multiple = TRUE
+  )
+)
+
+server <- function(input, output, session) {
+  observe(session$setCurrentTheme(
+    if (isTRUE(input$dark_mode)) dark else light
+  ))
+}
+
+if (interactive())
+  shinyApp(ui, server)
diff --git a/man/demoVirtualSelect.Rd b/man/demoVirtualSelect.Rd
index 20d89e8e..92f2fc16 100644
--- a/man/demoVirtualSelect.Rd
+++ b/man/demoVirtualSelect.Rd
@@ -5,7 +5,7 @@
 \title{Demo for \code{\link[=virtualSelectInput]{virtualSelectInput()}}}
 \usage{
 demoVirtualSelect(
-  name = c("default", "update", "choices-format", "prepare-choices")
+  name = c("default", "update", "choices-format", "prepare-choices", "bslib-theming")
 )
 }
 \arguments{
@@ -32,5 +32,8 @@ demoVirtualSelect("choices-format")
 # Prepare choices from a data.frame
 demoVirtualSelect("prepare-choices")
 
+# Theming with bslib
+demoVirtualSelect("bslib-theming")
+
 }
 }