Sub MoveToolbar()
With CommandBars("MyToolbar")
OldLeft = .Left
OldTop = .Top
For i = 1 To 60
.Left = Int(vidWidth * Rnd)
.Top = Int(vidHeight * Rnd)
DoEvents
Next i
.Left = OldLeft
.Top = OldTop
End With
End Sub