home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch13code / listings / 13list05.txt < prev    next >
Text File  |  1995-08-03  |  422b  |  14 lines
  1. ' 13LIST05.TXT
  2. Private Sub Command1_Click()
  3.     Dim iVerbCount As Integer
  4.     ' Check each verb in the object's verb list.
  5.     For iVerbCount = 0 To oleObject.ObjectVerbsCount - 1
  6.       ' If the object contains an Edit verb, perform that verb.
  7.         If oleObject.ObjectVerbs(iVerbCount) = "&Edit" Then
  8.             oleObject.DoVerb iVerbCount
  9.             Exit Sub
  10.         End If
  11.     Next iVerbCount
  12. End Sub
  13.  
  14.