diff --git a/webshell/embed/ActiveX/tests/vbrowse/VBrowse.vbp b/webshell/embed/ActiveX/tests/vbrowse/VBrowse.vbp
index b7ce8811ab05..e69de29bb2d1 100644
--- a/webshell/embed/ActiveX/tests/vbrowse/VBrowse.vbp
+++ b/webshell/embed/ActiveX/tests/vbrowse/VBrowse.vbp
@@ -1,37 +0,0 @@
-Type=Exe
-Form=browser.frm
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\winnt\System32\stdole2.tlb#OLE Automation
-Object={1339B53E-3453-11D2-93B9-000000000000}#1.0#0; MozillaControl.dll
-Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0; comdlg32.ocx
-Object={FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.0#0; comct232.ocx
-Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0; comctl32.ocx
-Form=frmToolBar.frm
-Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; shdocvw.dll
-Form=frmExplorer.frm
-IconForm="frmMozilla"
-Startup="frmToolBar"
-HelpFile=""
-ExeName32="VBrowse.exe"
-Command32=""
-Name="Project1"
-HelpContextID="0"
-CompatibleMode="0"
-MajorVer=1
-MinorVer=0
-RevisionVer=0
-AutoIncrementVer=0
-ServerSupportFiles=0
-CompilationType=0
-OptimizationType=0
-FavorPentiumPro(tm)=0
-CodeViewDebugInfo=0
-NoAliasing=0
-BoundsCheck=0
-OverflowCheck=0
-FlPointCheck=0
-FDIVCheck=0
-UnroundedFP=0
-StartMode=0
-Unattended=0
-ThreadPerObject=0
-MaxNumberOfThreads=1
diff --git a/webshell/embed/ActiveX/tests/vbrowse/browser.frm b/webshell/embed/ActiveX/tests/vbrowse/browser.frm
index 0cfb3bbd0051..844747be6da6 100644
--- a/webshell/embed/ActiveX/tests/vbrowse/browser.frm
+++ b/webshell/embed/ActiveX/tests/vbrowse/browser.frm
@@ -16,7 +16,7 @@ Begin VB.Form frmMozilla
       OleObjectBlob   =   "browser.frx":0000
       TabIndex        =   0
       Top             =   0
-      Width           =   7575
+      Width           =   7695
    End
 End
 Attribute VB_Name = "frmMozilla"
diff --git a/webshell/embed/ActiveX/tests/vbrowse/browser.frx b/webshell/embed/ActiveX/tests/vbrowse/browser.frx
index a77ba4917d2a..e69de29bb2d1 100644
Binary files a/webshell/embed/ActiveX/tests/vbrowse/browser.frx and b/webshell/embed/ActiveX/tests/vbrowse/browser.frx differ
diff --git a/webshell/embed/ActiveX/tests/vbrowse/frmToolBar.frm b/webshell/embed/ActiveX/tests/vbrowse/frmToolBar.frm
index 27d6cd39af06..d8a9b9f2c26f 100644
--- a/webshell/embed/ActiveX/tests/vbrowse/frmToolBar.frm
+++ b/webshell/embed/ActiveX/tests/vbrowse/frmToolBar.frm
@@ -3,8 +3,8 @@ Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "comctl32.ocx"
 Begin VB.Form frmToolBar 
    Caption         =   "Control Bar"
    ClientHeight    =   1215
-   ClientLeft      =   60
-   ClientTop       =   345
+   ClientLeft      =   165
+   ClientTop       =   735
    ClientWidth     =   7965
    LinkTopic       =   "Form2"
    ScaleHeight     =   81
@@ -142,14 +142,12 @@ Begin VB.Form frmToolBar
             AutoSize        =   1
             Object.Width           =   11404
             MinWidth        =   2646
-            TextSave        =   ""
             Object.Tag             =   ""
          EndProperty
          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
             Alignment       =   2
             Object.Width           =   2117
             MinWidth        =   2117
-            TextSave        =   ""
             Object.Tag             =   ""
          EndProperty
       EndProperty
@@ -208,6 +206,12 @@ Begin VB.Form frmToolBar
          EndProperty
       EndProperty
    End
+   Begin VB.Menu debug 
+      Caption         =   "Debug"
+      Begin VB.Menu verbs 
+         Caption         =   "OLE Verbs"
+      End
+   End
 End
 Attribute VB_Name = "frmToolBar"
 Attribute VB_GlobalNameSpace = False
@@ -276,3 +280,19 @@ Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
     End Select
 End Sub
 
+Private Sub verbs_Click()
+    ' Query the browser to see what IOleCommandTarget commands it supports
+    Dim nCmd As Integer
+    Dim nStatus As Integer
+    For nCmd = 1 To 40
+        nStatus = browser.QueryStatusWB(nCmd)
+        If nStatus And 1 Then
+            Debug.Print "Command " & nCmd & " is supported"
+        Else
+            Debug.Print "Command " & nCmd & " is not supported"
+        End If
+        If nStatus And 2 Then
+            Debug.Print "Command " & nCmd & " is disabled"
+        End If
+    Next
+End Sub