home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP22 / 309X2902.TXT < prev    next >
Encoding:
Text File  |  1998-05-28  |  509 b   |  23 lines
  1.  
  2. Private Sub cmdStartSession_Click()
  3.  
  4. Dim lonTAPIStatus As Long
  5.  
  6. ' Check to see if a phone number was entered.
  7. If RTrim(txtPhoneNum.Text) = "" Then
  8.     lstStatus.AddItem "Err: No Phone Number Entered"
  9.     Exit Sub
  10. Else
  11.     strPhoneNum = RTrim(txtPhoneNum.Text)
  12. End If
  13.  
  14. ' Initiate the TAPI session with the
  15. ' tapiRequestMakeCall function.
  16. lonTAPIStatus = tapiRequestMakeCall(strPhoneNum, _
  17.     "TAPI Sample", strPhoneNum, "")
  18.  
  19. ' Report the status.
  20. Call TAPIStatus(lonTAPIStatus)
  21.  
  22. End Sub
  23.