Como evitar que no muevan el form

[coyote20]

excelente ya me funciono quedaria de esta manera para los que necesiten este truquillo

Private Ypos, Xpos

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

CenterToScreen()
Ypos = Location.Y
Xpos = Location.X

End Sub

Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Move

If (Xpos > 0) Then
Location = New Point(Xpos, Ypos)
End If
End Sub
End Class

----------------------------------------------

el formulario no se mueve pero cuando intento arrastrarlo se ve unos pantallasos del mismo formulario como si fuera una sombra es nomrmal eso ???