home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / iPhone_sty213964162009.psc / Form1.frm < prev   
Text File  |  2009-01-06  |  13KB  |  331 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4860
  5.    ClientLeft      =   60
  6.    ClientTop       =   360
  7.    ClientWidth     =   10785
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4860
  10.    ScaleWidth      =   10785
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox txtAdd 
  13.       Appearance      =   0  'Flat
  14.       Height          =   285
  15.       Index           =   2
  16.       Left            =   4560
  17.       TabIndex        =   8
  18.       Top             =   1740
  19.       Width           =   1095
  20.    End
  21.    Begin VB.TextBox txtAdd 
  22.       Appearance      =   0  'Flat
  23.       Height          =   285
  24.       Index           =   1
  25.       Left            =   4560
  26.       TabIndex        =   5
  27.       Top             =   1380
  28.       Width           =   1095
  29.    End
  30.    Begin VB.TextBox txtAdd 
  31.       Appearance      =   0  'Flat
  32.       Height          =   285
  33.       Index           =   0
  34.       Left            =   4560
  35.       TabIndex        =   4
  36.       Top             =   1020
  37.       Width           =   1095
  38.    End
  39.    Begin Project1.UserControl1 UserControl11 
  40.       Height          =   285
  41.       Left            =   5700
  42.       TabIndex        =   2
  43.       Top             =   480
  44.       Width           =   915
  45.       _ExtentX        =   1614
  46.       _ExtentY        =   503
  47.       Caption         =   "Delete"
  48.       Enabled         =   -1  'True
  49.       BackStyle       =   3
  50.    End
  51.    Begin VB.TextBox txtKey 
  52.       Appearance      =   0  'Flat
  53.       Height          =   285
  54.       Left            =   4560
  55.       TabIndex        =   1
  56.       Top             =   480
  57.       Width           =   1095
  58.    End
  59.    Begin Project1.mtListBox mtListBox1 
  60.       Height          =   4575
  61.       Left            =   180
  62.       TabIndex        =   0
  63.       Top             =   120
  64.       Width           =   3735
  65.       _ExtentX        =   6588
  66.       _ExtentY        =   8070
  67.    End
  68.    Begin Project1.UserControl1 UserControl12 
  69.       Height          =   285
  70.       Left            =   5700
  71.       TabIndex        =   3
  72.       Top             =   1740
  73.       Width           =   915
  74.       _ExtentX        =   1614
  75.       _ExtentY        =   503
  76.       Caption         =   "Add"
  77.       Enabled         =   -1  'True
  78.       BackStyle       =   3
  79.    End
  80.    Begin Project1.mtListBox mtListBox2 
  81.       Height          =   4575
  82.       Left            =   6840
  83.       TabIndex        =   11
  84.       Top             =   120
  85.       Width           =   3735
  86.       _ExtentX        =   6588
  87.       _ExtentY        =   8070
  88.    End
  89.    Begin Project1.UserControl1 UserControl13 
  90.       Height          =   300
  91.       Left            =   4020
  92.       TabIndex        =   12
  93.       Top             =   4395
  94.       Width           =   2715
  95.       _ExtentX        =   4789
  96.       _ExtentY        =   529
  97.       Caption         =   "Exit Listbox Demo"
  98.       Enabled         =   -1  'True
  99.       BackStyle       =   3
  100.    End
  101.    Begin VB.Label Label1 
  102.       AutoSize        =   -1  'True
  103.       BackStyle       =   0  'Transparent
  104.       Caption         =   "Key"
  105.       Height          =   195
  106.       Index           =   3
  107.       Left            =   4080
  108.       TabIndex        =   10
  109.       Top             =   540
  110.       Width           =   270
  111.    End
  112.    Begin VB.Label Label1 
  113.       AutoSize        =   -1  'True
  114.       BackStyle       =   0  'Transparent
  115.       Caption         =   "Val 2"
  116.       Height          =   195
  117.       Index           =   2
  118.       Left            =   4080
  119.       TabIndex        =   9
  120.       Top             =   1800
  121.       Width           =   360
  122.    End
  123.    Begin VB.Label Label1 
  124.       AutoSize        =   -1  'True
  125.       BackStyle       =   0  'Transparent
  126.       Caption         =   "Val 1"
  127.       Height          =   195
  128.       Index           =   1
  129.       Left            =   4080
  130.       TabIndex        =   7
  131.       Top             =   1440
  132.       Width           =   360
  133.    End
  134.    Begin VB.Label Label1 
  135.       AutoSize        =   -1  'True
  136.       BackStyle       =   0  'Transparent
  137.       Caption         =   "Key"
  138.       Height          =   195
  139.       Index           =   0
  140.       Left            =   4080
  141.       TabIndex        =   6
  142.       Top             =   1080
  143.       Width           =   270
  144.    End
  145. End
  146. Attribute VB_Name = "Form1"
  147. Attribute VB_GlobalNameSpace = False
  148. Attribute VB_Creatable = False
  149. Attribute VB_PredeclaredId = True
  150. Attribute VB_Exposed = False
  151. Option Explicit
  152.  
  153.  
  154. Private Sub Form_Load()
  155.  
  156.  
  157. Randomize Timer
  158.  
  159.  
  160.  
  161.  
  162.  
  163. mtListBox1.SortBy = Value1
  164. mtListBox1.Caption = "Currency Table"
  165. mtListBox1.OnlyOneColumn = True
  166.  
  167.  
  168. mtListBox1.AddItem "AFA", "Afghanistan Afgani (AFA)"
  169. mtListBox1.AddItem "TZS", "Tanzanian Shilling (TZS)"
  170. mtListBox1.AddItem "THB", "Thai Baht (THB)"
  171. mtListBox1.AddItem "TTD", "Trinidad/tobago Dollar (TTD)"
  172. mtListBox1.AddItem "TND", "Tunisian Dinar (TND)"
  173. mtListBox1.AddItem "TRL", "Turkish Lira (TRL)"
  174. mtListBox1.AddItem "TMS", "Turkmenistan Manat (TMS)"
  175. mtListBox1.AddItem "AED", "Uae Dirham (AED)"
  176. mtListBox1.AddItem "UGS", "Ugandan Shilling (UGS)"
  177. mtListBox1.AddItem "UAK", "Ukraine Hryvna (UAK)"
  178. mtListBox1.AddItem "USD", "United States Dollar (USD)"
  179. mtListBox1.AddItem "UYP", "Uruguay Peso (UYP)"
  180. mtListBox1.AddItem "UZS", "Uzbekistan Sum (UZS)"
  181. mtListBox1.AddItem "VUV", "Vanuatu Vatu (VUV)"
  182. mtListBox1.AddItem "VEB", "Venezuelan Bolivar (VEB)"
  183. mtListBox1.AddItem "VND", "Vietnam Dong (VND)"
  184. mtListBox1.AddItem "YDD", "Yemeni Dinar (YDD)"
  185. mtListBox1.AddItem "YER", "Yemeni Rial (YER)"
  186. mtListBox1.AddItem "ZRZ", "Zaire Zaire (ZRZ)"
  187. mtListBox1.AddItem "ZMK", "Zambian Kwacha (ZMK)"
  188. mtListBox1.AddItem "ZWD", "Zimbabwe Dollar (ZWD)"
  189. mtListBox1.AddItem "MXV", "Mexican Unidad de Inversion (MXV)"
  190. mtListBox1.AddItem "PEN", "Peruvian Nuevo Peso (PEN)"
  191. mtListBox1.AddItem "UYU", "Uruguayan Peso Uruguayano (UYU)"
  192. mtListBox1.AddItem "TRY", "New Turkish Lira"
  193. mtListBox1.AddItem "IDR", "Indonesian Rupiah (IDR)"
  194. mtListBox1.AddItem "IRR", "Iranian Rial (IRR)"
  195. mtListBox1.AddItem "IQD", "Iraqi Dinar (IQD)"
  196. mtListBox1.AddItem "IEP", "Irish Punt (IEP)"
  197. mtListBox1.AddItem "ISS", "Israeli Shekel (ISS)"
  198. mtListBox1.AddItem "ITL", "Italian Lira (ITL)"
  199. mtListBox1.AddItem "JMD", "Jamaica Dollar (JMD)"
  200. mtListBox1.AddItem "JPY", "Japanese Yen (JPY)"
  201. mtListBox1.AddItem "JOD", "Jordanian Dinar (JOD)"
  202. mtListBox1.AddItem "KTS", "Kazakhstan Tenge (KTS)"
  203. mtListBox1.AddItem "KES", "Kenyan Shilling (KES)"
  204. mtListBox1.AddItem "KWD", "Kuwaiti Dinar (KWD)"
  205. mtListBox1.AddItem "KYS", "Kyrgyzstan Som (KYS)"
  206. mtListBox1.AddItem "LAK", "Laos New Kip (LAK)"
  207. mtListBox1.AddItem "LVR", "Latvian Lat (LVR)"
  208. mtListBox1.AddItem "LBP", "Lebanese Pound (LBP)"
  209. mtListBox1.AddItem "LSM", "Lesotho Loti (LSM)"
  210. mtListBox1.AddItem "LRD", "Liberian Dollar (LRD)"
  211. mtListBox1.AddItem "LTT", "Lithuanian Lit (LTT)"
  212. mtListBox1.AddItem "LUF", "Luxembourg Franc (LUF)"
  213. mtListBox1.AddItem "MOP", "Macau Pataca (MOP)"
  214. mtListBox1.AddItem "MWK", "Malawi Kwacha (MWK)"
  215. mtListBox1.AddItem "MYR", "Malaysian Ringgit (MYR)"
  216. mtListBox1.AddItem "MTL", "Maltese Lira (MTL)"
  217. mtListBox1.AddItem "MRO", "Mauritania Ouguiya (MRO)"
  218. mtListBox1.AddItem "MUR", "Mauritius Rupee (MUR)"
  219. mtListBox1.AddItem "MXN", "Mexican Peso (MXN)"
  220. mtListBox1.AddItem "MVS", "Moldova Lei (MVS)"
  221. mtListBox1.AddItem "MNT", "Mongolia Tugrik (MNT)"
  222. mtListBox1.AddItem "MAD", "Moroccan Dirham (MAD)"
  223. mtListBox1.AddItem "MZM", "Mozambique Metical (MZM)"
  224. mtListBox1.AddItem "MMK", "Myanmar Kyat (MMK)"
  225. mtListBox1.AddItem "ANG", "Netherland Antilles Guilder (ANG)"
  226. mtListBox1.AddItem "NZD", "New Zealand Dollar (NZD)"
  227. mtListBox1.AddItem "NIC", "Nicaragua Cordoba (NIC)"
  228. mtListBox1.AddItem "NGN", "Nigeria Naira (NGN)"
  229. mtListBox1.AddItem "NOK", "Norwegian Krone (NOK)"
  230. mtListBox1.AddItem "OMR", "Omani Rial (OMR)"
  231. mtListBox1.AddItem "PKR", "Pakistani Rupee (PKR)"
  232. mtListBox1.AddItem "PAB", "Panamanian Balboa (PAB)"
  233. mtListBox1.AddItem "PGK", "Papua New Guinea Kina (PGK)"
  234. mtListBox1.AddItem "PYG", "Paraguay Guarani (PYG)"
  235. mtListBox1.AddItem "PSS", "Peruvian New Sol (PSS)"
  236. mtListBox1.AddItem "PHP", "Philippines Peso (PHP)"
  237. mtListBox1.AddItem "PLN", "Polish Zloty (PLN)"
  238. mtListBox1.AddItem "PTE", "Portuguese Escudo (PTE)"
  239. mtListBox1.AddItem "QAR", "Qatari Riyal (QAR)"
  240. mtListBox1.AddItem "ROL", "Romanian Leu (ROL)"
  241. mtListBox1.AddItem "RUB", "Russian Ruble (RUB)"
  242. mtListBox1.AddItem "RWS", "Rwanda Franc (RWS)"
  243. mtListBox1.AddItem "STD", "Sao Tome Dobra (STD)"
  244. mtListBox1.AddItem "SAR", "Saudi Riyal (SAR)"
  245. mtListBox1.AddItem "SCR", "Seychelles Rupee (SCR)"
  246. mtListBox1.AddItem "SLL", "Sierra Leone Leone (SLL)"
  247. mtListBox1.AddItem "SGD", "Singapore Dollar (SGD)"
  248. mtListBox1.AddItem "SKK", "Slovakia Koruna (SKK)"
  249. mtListBox1.AddItem "SIT", "Slovenia Tolar (SIT)"
  250. mtListBox1.AddItem "SBD", "Solomon Island Dollar (SBD)"
  251. mtListBox1.AddItem "SOS", "Somali Schilling (SOS)"
  252. mtListBox1.AddItem "ZAR", "South African Rand (ZAR)"
  253. mtListBox1.AddItem "KRW", "South Korean Won (KRW)"
  254. mtListBox1.AddItem "ESP", "Spanish Peseta (ESP)"
  255. mtListBox1.AddItem "LKR", "Sri Lankan Rupee (LKR)"
  256. mtListBox1.AddItem "SHP", "St. Helena Pound (SHP)"
  257. mtListBox1.AddItem "SDD", "Sudanese Pound (SDD)"
  258. mtListBox1.AddItem "SRG", "Surinam Guilder (SRG)"
  259. mtListBox1.AddItem "SZL", "Swaziland Lilangeni (SZL)"
  260. mtListBox1.AddItem "SEK", "Swedish Krona (SEK)"
  261. mtListBox1.AddItem "CHF", "Swiss Franc (CHF)"
  262. mtListBox1.AddItem "SYP", "Syrian Pound (SYP)"
  263. mtListBox1.AddItem "TWD", "Taiwan Dollar (TWD)"
  264. mtListBox1.AddItem "TJS", "Tajikistan Ruble (TJS)"
  265. mtListBox1.AddItem "ALL", "Albanian Lek (ALL)"
  266. mtListBox1.AddItem "DZD", "Algerian Dinar (DZD)"
  267. mtListBox1.AddItem "ADP", "Andorran Peseta (ADP)"
  268. mtListBox1.AddItem "AOK", "Angolan Kwanza (AOK)"
  269. mtListBox1.AddItem "XCD", "Antigua Dollar (XCD)"
  270. mtListBox1.AddItem "ARS", "Argentine Peso (ARS)"
  271. mtListBox1.AddItem "AMD", "Armenia Dram (AMD)"
  272. mtListBox1.AddItem "AUD", "Australian Dollar (AUD)"
  273. mtListBox1.AddItem "ATS", "Austrian Schilling (ATS)"
  274. mtListBox1.AddItem "AZS", "Azerbaijan Manat (AZS)"
  275. mtListBox1.AddItem "BSD", "Bahamas Dollar (BSD)"
  276. mtListBox1.AddItem "BHD", "Bahraini Dinar (BHD)"
  277. mtListBox1.AddItem "BDT", "Bangladesh Taka (BDT)"
  278. mtListBox1.AddItem "BBD", "Barbados Dollar (BBD)"
  279. mtListBox1.AddItem "BES", "Belarus Rouble (BES)"
  280. mtListBox1.AddItem "BEF", "Belgian Franc (BEF)"
  281. mtListBox1.AddItem "BZD", "Belize Dollar (BZD)"
  282. mtListBox1.AddItem "XOF", "Benin Franc (XOF)"
  283. mtListBox1.AddItem "BMD", "Bermudian Dollar (BMD)"
  284. mtListBox1.AddItem "BTN", "Bhutan Ngultrum (BTN)"
  285. mtListBox1.AddItem "BOP", "Bolivian Boliviano (BOP)"
  286. mtListBox1.AddItem "BWP", "Botswana Pula (BWP)"
  287. mtListBox1.AddItem "BRL", "Brazil Real (BRL)"
  288. mtListBox1.AddItem "GBP", "British Pound (GBP)"
  289. mtListBox1.AddItem "BND", "Brunei Dollar (BND)"
  290. mtListBox1.AddItem "BGL", "Bulgarian Lev (BGL)"
  291. mtListBox1.AddItem "XAF", "Cameroon Franc (XAF)"
  292. mtListBox1.AddItem "CAD", "Canadian Dollar (CAD)"
  293. mtListBox1.AddItem "BPS", "Canton & Enderbury Island Pound (BPS)"
  294. mtListBox1.AddItem "CVE", "Cape Verde Escudo (CVE)"
  295. mtListBox1.AddItem "KYD", "Cayman Islands (KYD)"
  296. mtListBox1.AddItem "CLP", "Chilean Peso (CLP)"
  297. mtListBox1.AddItem "CNY", "China Renminbi (CNY)"
  298. mtListBox1.AddItem "COP", "Colombian Peso (COP)"
  299. mtListBox1.AddItem "KMF", "Comoros Franc (KMF)"
  300. mtListBox1.AddItem "CRC", "Costa Rica Colon (CRC)"
  301. mtListBox1.AddItem "HRK", "Croatian Kuna (HRK)"
  302. mtListBox1.AddItem "CUP", "Cuban Peso (CUP)"
  303. mtListBox1.AddItem "CYP", "Cypriot Pound (CYP)"
  304. mtListBox1.AddItem "CZK", "Czech Koruna (CZK)"
  305. mtListBox1.AddItem "DKK", "Danish Krone (DKK)"
  306. mtListBox1.AddItem "DJF", "Djibouti Franc (DJF)"
  307. mtListBox1.AddItem "DOP", "Dominican Republic (DOP)"
  308. mtListBox1.AddItem "NLG", "Dutch Guilder (NLG)"
  309. mtListBox1.AddItem "ESS", "Ecuadoran Sucre (ESS)"
  310. mtListBox1.AddItem "EGP", "Egyptian Pound (EGP)"
  311. mtListBox1.AddItem "SuistBoxItBoxIt ar SIt ar SIt ar SIt ar SItP  =   tEE1egeT", "Slovenia Tolar (SIT)"UBezkoroBraStu3
  312. riI
  313. mtLiskoroBraStu3
  314. riI
  315. mtLiskoroBraStu3
  316. riI
  317. mtLiskoroBraStu3AdduriI
  318. mtLiskorItem "DKK",iAddItem lNI
  319. mtLiskoroBraStu3Adduria"
  320. mtListBox1.AddItem "CCunican raStu3
  321. riI
  322. mtLiskoroBraStu3"
  323. mtListBox1.AddItem "N3T", "Slovenia Tolar (SIT)))))))tu3aiMD)"
  324. mtLiListBo "Cnn rpriotnb9)"
  325. mtListBox1.AddItem "simriIGIf2 stBox1
  326. mtft Dsim stBox1
  327. mtem "SZ"b
  328. mtListBosimtLiS", "S DsiHZU4oroBe
  329. rBIc", "S DsisiHZU4oroBe
  330. rUovenia Toox1.rtioBreItem "eso dItemkrtisiHZU4oroBe
  331. rUovenia Toox1.rtioBreIteuNeToox1.rtioOtanhm "HR