' 13LIST06.TXT
Private Sub Command1_Click()
    Dim iVerbCount As Integer
    ' Check each verb in the object's verb list.
    For iVerbCount = 0 To oleObject.ObjectVerbsCount - 1
      ' If the object contains an Edit verb, perform that verb.
        If oleObject.ObjectVerbs(iVerbCount) = "&Open" Then
            oleObject.DoVerb iVerbCount
            Exit Sub
        End If
    Next iVerbCount
End Sub