home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap26 / country.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-06-11  |  737 b   |  26 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6690
  8.    Height          =   4545
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4140
  12.    ScaleWidth      =   6690
  13.    Top             =   1170
  14.    Width           =   6810
  15. Attribute VB_Name = "Form1"
  16. Attribute VB_Creatable = False
  17. Attribute VB_Exposed = False
  18. Private Sub Form_Load()
  19.     Dim lpszCountryCode, lpszCityCode As String * 40
  20.      retval& = tapiGetLocationInfo(lpszCountryCode, lpszCityCode)
  21.      
  22.      MsgBox Str(retval&)
  23.      
  24.      MsgBox lpszCountryCode + "/" + lpszCityCode
  25. End Sub
  26.