Как зафиксировать форму на экране - Visual Basic .NET

Формулировка задачи:

Привет.

Вопрос с другого форума.

программы-часы, которую можно расположить на обоине рабочего стола, чтобы нельзя было как-то задеть, передвинуть и т.д.

Как в Visual Basic .NET зафиксировать форму своей программы на экране, чтобы ее нельзя было как-то задеть, передвинуть и т.д.?

Решение задачи: «Как зафиксировать форму на экране»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    Protected Overrides Sub WndProc(ByRef m As Message)
        Const WM_SYSCOMMAND As Integer = &H112
        Const SC_MOVE As Integer = &HF010 'сообщение о движении
        Const SC_MINIMIZE As Integer = &HF020& 'сообщение о сворачивании
        Const SC_MAXIMIZE As Integer = &HF030& 'сообщение о разворачивании
        Const SC_SIZE As Integer = &HF000& 'сообщение о изменении размеров
 
 
        Select Case m.Msg
            Case WM_SYSCOMMAND
                Dim command As Integer = m.WParam.ToInt32() And &HFFF0
                If command = SC_MOVE Or _
                 command = SC_SIZE Or _
                 command = SC_MINIMIZE Or _
                 command = SC_MAXIMIZE _
                 Then Return
        End Select
        MyBase.WndProc(m)
    End Sub