Application VisualBasic Script

Sub CreateAToolbar()
    Dim TBar As CommandBar
    Set TBar = CommandBars.Add
    With TBar
        .name = "MyToolbar"
        .Top = 0
        .Left = 0
        .Visible = True
    End With
End Sub