Formのキャプションバーのクリックを拾う

Public Class Form1

    Inherits Form

    Private ReadOnly WM_NCLBUTTONDOWN As Integer = &HA1

    Protected Overrides Sub WndProc(ByRef m As Message)

        Select Case (m.Msg)

            Case WM_NCLBUTTONDOWN

                Me.Text = ("クリックされました。")

        End Select

        MyBase.WndProc(m)

    End Sub

End Class

   ←備忘録項目に戻る