Private Sub Form1_MouseDown(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles Me.MouseDown
 
    If e.Button = Windows.Forms.MouseButtons.Right Then
         If e.X < 10 Then
            ToolStrip1.Dock = DockStyle.Left
         ElseIf e.Y < 10 Then
            ToolStrip1.Dock = DockStyle.Top
         ElseIf e.Y > Me.Height - 50 Then
            ToolStrip1.Dock = DockStyle.Bottom
         Else
            ToolStrip1.Dock = DockStyle.None
            ToolStrip1.Location = New Point(e.X, e.Y)
         End If
    End If
End Sub