Spostare i menu top-left-bottom-right

Private Sub ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim combo As ToolStripComboBox = CType(sender, ToolStripComboBox)
Select Case combo.SelectedIndex
Case 0
MenuStrip1.Dock = DockStyle.Top
Case 1
MenuStrip1.Dock = DockStyle.Bottom
Case 2
MenuStrip1.Dock = DockStyle.Left
MenuStrip1.Width = 50
Case 3
MenuStrip1.Dock = DockStyle.Right
MenuStrip1.Width = 50
Case Else
MenuStrip1.Dock = DockStyle.Top
End Select
End Sub