Private Sub btnVerdes_Click(ByVal sender As System.Object,

                            ByVal e As System.EventArgs)

            Handles btnVerdes.Click

   ' quitar uno de los estilos y asignar el otro

   Me.grdDatos.TableStyles(1).MappingName = ""

   Me.grdDatos.TableStyles(0).MappingName = "Suppliers"

End Sub

Private Sub btnAzules_Click(ByVal sender As System.Object,

                            ByVal e As System.EventArgs)

            Handles btnAzules.Click

   ' quitar uno de los estilos y asignar el otro

   Me.grdDatos.TableStyles(0).MappingName = ""

   Me.grdDatos.TableStyles(1).MappingName = "Suppliers"

End Sub

Private Sub btnPredeterminados_Click(ByVal sender As System.Object,

                                     ByVal e As System.EventArgs)

            Handles btnPredeterminados.Click

   ' no utilizar estilos en el grid

   Me.grdDatos.TableStyles(0).MappingName = ""

   Me.grdDatos.TableStyles(1).MappingName = ""

End Sub

Fuente 1.