Barra de ajuste

Boas...

Tenho uma dúvida

Como extrair o valor atual do contrôle activeX tipo FlatScrollBar "MSComCtl2.FlatScrollBar.2"

para usar num módulo de ajuste de opacidade de um form?

obrigado pela atenção!

Boa tarde!

Creio que algo mais ou menos como no código abaixo ajudaria:

Código:


Dim objScrollBar As MSComctlLib.FlatScrollBar
Set objScrollBar = Me.Controls("NomeDoControle")

Dim intValor As Integer
intValor = objScrollBar.Value



Nesse caso, você pode usar a variável "intValor" para ajustar a opacidade do formulário. Lembrando que caso a biblioteca (Microsoft Windows Common Controls 6.0 (SP6)) ainda não esteja presente, será preciso adicioná-la (instalar).