Protected Overrides Sub DefWndProc(ByRef message As System.Windows.Forms.Message)
' -- Trap left mouse click down on titlebar
If CLng(message.Msg) = &HA1 Then
If Me.Opacity <> 0.5 Then Me.Opacity = 0.5
' -- Trap left mouse click up on titlebar
ElseIf CLng(message.Msg) = &HA0 Then
If Me.Opacity <> 1.0 Then Me.Opacity = 1.0
End If
MyBase.DefWndProc(message)
End Sub
No hay comentarios