Εντοπισμός του αριστερού κλικ του ποντικιού πάνω στο TITLE BAR μιας φόρμας και εκμετάλευση του Opacity έτσι ώστε όταν μετακινούμε την φόρμα αυτή να συμπεριφέρεται όπως στα Windows Vista.

Private Const WIN_MOUSEBUTTONDOWN As Long = &HA1
Private Const WIN_MOUSEBUTTONUP As Long = &HA0
Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
' -- Εντοπισμός του αριστερού κλικ του ποντικιού στό Title Bar της φόρμας
If CLng(m.Msg) = WIN_MOUSEBUTTONDOWN Then
' -- Ορίζουμε το opacity της Φόρμας
If Me.Opacity <> 0.8 Then Me.Opacity = 0.8
' --Εντοπισμός του όταν αφήνουμε το αριστερό κλικ του pontikio;y
ElseIf CLng(m.Msg) = WIN_MOUSEBUTTONUP Then
If Me.Opacity <> 1.0 Then Me.Opacity = 1.0
End If
' -- Συνήθης Λειτουργικότητα
MyBase.DefWndProc(m)
End Sub