Sombra no form de traz

[Denis Luiz 0]

Olá pessoal

 

Teria um modo de quando eu abrir um form Dialog fazer o de traz receber uma sombra por cima (como se fosse em web?)

O ShowDialog() já impede que o form de traz seja acessado mas queria que fosse escurecido pra ficar mais visível.

[Joffre Mota 0]

    Private Sub EsmaecerForm()
       Dim cont As Integer
       For cont = 90 To 10 Step -10
           Me.Opacity = cont / 100
           Me.Refresh()
           Threading.Thread.Sleep(50)
       Next
   End Sub

 

Eis o código para fazer esmaecer.

 

Abraço!

 

Obs.: Para voltar o form ao normal, dentro do evento "GotFocus" coloque o código "Me.Opacity = 1.0"