Efeito bacana

[Nathan Cruz]

E ai galera meu nome é Nathan Cruz e este é meu primeiro tópico.
Fiz um efeito bacana no form e queria compartilhar com vocês. O efeito é mais ou menos assim: O form fica quase transparente quando é arrastado para outro lugar da tela, vamos lá, espero que gostem, e desculpe se tiver feito algo de errado pois não conheço direito as ferramentas do fórum.

Crie um novo projeto, e insira esse código:

Public Class Form1
    Private Const Clicar As Integer = &HA1
    Private Const soltar As Integer = &HA2
    Private Const Mover As Integer = &HA0
    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case Clicar
                If Me.Opacity <> 5.0 Then
                    Me.Opacity = 0.1
                End If
            Case soltar
                If Me.Opacity <> 1.0 Then
                    Me.Opacity = 1.0
                End If

            Case Mover
                If Me.Opacity <> 1.0 Then
                    Me.Opacity = 1.0
                End If
        End Select
        MyBase.WndProc(m)
    End Sub
End Class

Agora é só executar, arraste a janela e veja o efeito.
É só isso galera bem simples.