Const WM_NCLBUTTONUP As Long = &HA0
Сообщение WM_NCLBUTTONUP отправляется окну, когда пользователь отпускает левую кнопку мыши в неклиентской области окна. Данное сообщение посылается окну, содержащему курсор. Если окно захватило мышь, то сообщение не отправляется.
' Пример для VB .NET 2003 Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message) ' Если нажата левая кнопка мыши на заголовке формы If CLng(m.Msg) = WM_NCLBUTTONDOWN Then ' Устанавливаем степерь прозрачности формы If Me.Opacity <> 0.5 Then Me.Opacity = 0.5 ' Кнопка отпущена ElseIf CLng(m.Msg) = WM_NCLBUTTONUP Then If Me.Opacity <> 1.0 Then Me.Opacity = 1.0 End If MyBase.DefWndProc(m) End Sub