Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

home *** CD-ROM | disk | FTP | other *** search

/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / AddressBoo202555302001.psc / Address_Book2 / Form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 2001-05-25 | 34.0 KB | 1,069 lines

VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "Address Book" ClientHeight = 6915 ClientLeft = 150 ClientTop = 495 ClientWidth = 8595 Icon = "Form1.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 6915 ScaleWidth = 8595 StartUpPosition = 2 'CenterScreen Begin VB.CommandButton cmdViewPic Caption = "View Pic" Height = 495 Left = 4680 TabIndex = 24 Top = 5760 Width = 855 End Begin VB.CommandButton cmdSort2 Caption = "Z TO A" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5520 TabIndex = 35 Top = 2280 Width = 855 End Begin VB.CommandButton cmdClear Caption = "Clear Search List" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1095 Left = 7080 Picture = "Form1.frx":030A Style = 1 'Graphical TabIndex = 28 Top = 3600 Width = 1095 End Begin VB.ListBox List2 Height = 2595 Left = 6720 TabIndex = 27 Top = 600 Width = 1695 End Begin VB.TextBox TxtPhoto BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1680 MaxLength = 100 TabIndex = 25 Top = 4440 Width = 2295 End Begin MSComctlLib.ImageList ImageList1 Left = 5280 Top = 720 _ExtentX = 1005 _ExtentY = 1005 BackColor = -2147483643 ImageWidth = 16 ImageHeight = 16 MaskColor = 12632256 _Version = 393216 BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} NumListImages = 11 BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":074C Key = "" EndProperty BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":0BA0 Key = "" EndProperty BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":0FF4 Key = "" EndProperty BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":1448 Key = "" EndProperty BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":15A4 Key = "" EndProperty BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":19F8 Key = "" EndProperty BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":1E4C Key = "" EndProperty BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":23E8 Key = "" EndProperty BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":283C Key = "" EndProperty BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":2C90 Key = "" EndProperty BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Form1.frx":30E4 Key = "" EndProperty EndProperty End Begin MSComctlLib.Toolbar Toolbar1 Align = 1 'Align Top Height = 360 Left = 0 TabIndex = 23 Top = 0 Width = 8595 _ExtentX = 15161 _ExtentY = 635 ButtonWidth = 609 ButtonHeight = 582 Appearance = 1 Style = 1 ImageList = "ImageList1" _Version = 393216 BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} NumButtons = 9 BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} Object.ToolTipText = "Back" ImageIndex = 1 EndProperty BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} Object.ToolTipText = "Forward" ImageIndex = 2 EndProperty BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} Object.ToolTipText = "Add Data" ImageIndex = 3 EndProperty BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} Object.ToolTipText = "Edit Data" ImageIndex = 4 EndProperty BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} Object.ToolTipText = "Remove Data" ImageIndex = 5 EndProperty BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} Object.ToolTipText = "Search" ImageIndex = 8 EndProperty BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} Object.ToolTipText = "Email" ImageIndex = 9 EndProperty BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} Object.ToolTipText = "Help" ImageIndex = 10 EndProperty BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} Object.ToolTipText = "Exit" ImageIndex = 11 EndProperty EndProperty End Begin VB.Timer Timer1 Interval = 1000 Left = 4680 Top = 720 End Begin MSComctlLib.StatusBar StatusBar1 Align = 2 'Align Bottom Height = 375 Left = 0 TabIndex = 21 Top = 6540 Width = 8595 _ExtentX = 15161 _ExtentY = 661 _Version = 393216 BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} NumPanels = 3 BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} Alignment = 1 Object.Width = 2117 MinWidth = 2117 Object.ToolTipText = "Time" EndProperty BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} AutoSize = 1 Object.Width = 10345 Text = "Click Edit Button to edit data " TextSave = "Click Edit Button to edit data " Object.ToolTipText = "Caption" EndProperty BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} Alignment = 1 Object.Width = 2593 MinWidth = 2593 Picture = "Form1.frx":3538 Text = "Version 1.0" TextSave = "Version 1.0" EndProperty EndProperty End Begin VB.CommandButton cmdSort Caption = "A TO Z" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4560 TabIndex = 0 Top = 2280 Width = 855 End Begin VB.ListBox List1 Height = 1620 ItemData = "Form1.frx":398C Left = 4560 List = "Form1.frx":398E TabIndex = 15 Top = 600 Width = 1815 End Begin VB.TextBox txtMobile BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1680 MaxLength = 20 TabIndex = 14 Top = 3840 Width = 2295 End Begin VB.TextBox txtPhone BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1680 MaxLength = 20 TabIndex = 13 Top = 3240 Width = 2295 End Begin VB.TextBox txtEmail BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 960 MaxLength = 50 TabIndex = 12 Top = 2640 Width = 3255 End Begin VB.TextBox txtSex BeginProperty Font Name = "Times New Roman" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3120 MaxLength = 10 TabIndex = 11 Top = 2040 Width = 1095 End Begin VB.TextBox txtBirth BeginProperty Font Name = "Times New Roman" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 960 MaxLength = 20 TabIndex = 10 Top = 2040 Width = 1215 End Begin VB.TextBox txtAddress BeginProperty Font Name = "Times New Roman" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 960 MaxLength = 100 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 9 Top = 1080 Width = 3255 End Begin VB.TextBox txtName BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 960 MaxLength = 50 TabIndex = 8 Top = 480 Width = 3255 End Begin VB.Frame Frame1 Caption = "Data List" Height = 2415 Left = 4440 TabIndex = 20 Top = 360 Width = 2055 End Begin VB.CommandButton cmdAdd Caption = "Add Data" Height = 495 Left = 3840 TabIndex = 17 Top = 5760 Width = 855 End Begin VB.CommandButton cmdRemove Caption = "Remove Data" Height = 495 Left = 3000 TabIndex = 18 Top = 5760 Width = 855 End Begin VB.CommandButton cmdfind Caption = "Search" Height = 495 Left = 2280 TabIndex = 19 Top = 5760 Width = 735 End Begin VB.Frame Frame2 Caption = "Search List" Height = 4575 Left = 6600 TabIndex = 29 Top = 360 Width = 1935 End Begin VB.CommandButton cmdFirst Caption = "First" Height = 495 Left = 1560 TabIndex = 31 Top = 5760 Width = 735 End Begin VB.CommandButton cmdNext Caption = "Forward" Height = 495 Left = 840 TabIndex = 16 Top = 5760 Width = 735 End Begin VB.CommandButton cmdBack Caption = "Back" Height = 495 Left = 120 TabIndex = 22 Top = 5760 Width = 735 End Begin VB.Label LabMailMe Caption = "zijiang11@hotmail.com" BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 400 Underline = -1 'True Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 375 Left = 3840 MouseIcon = "Form1.frx":3990 MousePointer = 99 'Custom TabIndex = 32 Top = 5040 Width = 2415 End Begin VB.Label Label12 Caption = "Double click the address to email me :" BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C0FFFF& Height = 375 Left = 240 TabIndex = 33 Top = 5040 Width = 3615 End Begin VB.Label Label7 Caption = "Mobile No." BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 375 Left = 120 TabIndex = 7 Top = 3840 Width = 1215 End Begin VB.Label Label8 Caption = "Picture Link " BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 375 Left = 120 TabIndex = 26 Top = 4440 Width = 1455 End Begin VB.Image Image1 Height = 2055 Left = 4440 MouseIcon = "Form1.frx":3DD2 Stretch = -1 'True Top = 2880 Width = 2055 End Begin VB.Label Label6 Caption = "Telephone No." BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 375 Left = 120 TabIndex = 6 Top = 3240 Width = 1575 End Begin VB.Label Label5 Caption = "Email" BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 375 Left = 120 TabIndex = 5 Top = 2640 Width = 735 End Begin VB.Label Label4 Caption = "Gender" BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 375 Left = 2280 TabIndex = 4 Top = 2040 Width = 735 End Begin VB.Label Label3 Caption = "Date of Birth" BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 615 Left = 120 TabIndex = 3 Top = 1920 Width = 975 End Begin VB.Label Label2 Caption = "Address" BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 375 Left = 120 TabIndex = 2 Top = 1080 Width = 975 End Begin VB.Label Label1 Caption = "Name" BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 375 Left = 120 TabIndex = 1 Top = 480 Width = 735 End Begin VB.Label Label9 Alignment = 2 'Center Caption = "No Picture Insert" BeginProperty Font Name = "MS Sans Serif" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C0FFFF& Height = 735 Left = 4560 TabIndex = 30 Top = 3600 Width = 1815 End Begin VB.Label Label10 BorderStyle = 1 'Fixed Single Height = 2055 Left = 4440 TabIndex = 34 Top = 2880 Width = 2055 End Begin VB.Menu mnuFile Caption = "&File" Begin VB.Menu mnuEdit Caption = "&Edit Data" End Begin VB.Menu mnuAddData Caption = "&Add Data" End Begin VB.Menu mnuRemove Caption = "&Remove Data" End Begin VB.Menu mnuEmail Caption = "E&mail" End Begin VB.Menu Separator Caption = "-" End Begin VB.Menu mnuExit Caption = "&Exit" End End Begin VB.Menu mnuTool Caption = "&Tool" Begin VB.Menu mnuSearch Caption = "&Search" End Begin VB.Menu mnuDescending Caption = "Sort &Descending" End Begin VB.Menu mnuAscending Caption = "Sort &Ascending" End End Begin VB.Menu mnuHelp Caption = "&Help" Begin VB.Menu mnuAbout Caption = "&About" End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Option Compare Text Dim MyData As Database Dim MyRecord As Recordset Dim SQL As String Private Sub cmdAdd_Click() Form2.Show Form1.Hide Form2.txtName.SetFocus End Sub Private Sub cmdBack_Click() If List1.ListIndex = 0 Then List1.ListIndex = (List1.ListCount - 1) Else List1.ListIndex = (List1.ListIndex - 1) End If End Sub Private Sub cmdClear_Click() List2.Clear Form1.Width = 6675 Call cmdFirst_Click End Sub Private Sub cmdEdit_Click() End Sub Private Sub cmdFirst_Click() List1.ListIndex = 0 List1.ListIndex = 1 End Sub Private Sub cmdInsert_Click() End Sub Private Sub cmdSort2_Click() Dim iCount As Integer Dim i As Integer Dim j As Integer Dim temp As String iCount = List1.ListCount For j = 0 To iCount - 2 For i = 0 To iCount - 2 With List1 If .List(i) < .List(i + 1) Then temp = .List(i + 1) .List(i + 1) = .List(i) .List(i) = temp End If End With Next i Next j Call cmdFirst_Click End Sub Private Sub cmdSort2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) StatusBar1.Panels(2).Text = "Descending Order Z to A" End Sub Private Sub cmdViewPic_Click() Dim sExtension As String sExtension = UCase(Right$(TxtPhoto, 3)) If Dir$(TxtPhoto) = "" Then MsgBox "Invaild Path", vbExclamation, "Picture Link Field " Exit Sub End If Select Case sExtension Case "JPG", "GIF", "BMP" Image1.Picture = LoadPicture(TxtPhoto.Text) Case Else MsgBox "Invaild Path", vbExclamation, "Link Field" End Select End Sub Private Sub cmdfind_Click() Set MyData = OpenDatabase(App.Path + "\Address.mdb") Dim LName As String Dim strFind As String List2.Clear strFind = Trim(InputBox("Enter Name for search.", "Search Box")) LName = Trim(UCase(strFind)) Set MyRecord = MyData.OpenRecordset("SELECT Name " & "FROM AddressBook " & _ "WHERE Name Like '*" & LName & "*'") With MyRecord If .EOF Then MsgBox "No matching Name found, try again please", vbCritical, "Re,"nFoun3Bg NameBg Italic oF6_ try agaiirNQ4hnd)) Set M0 Case "JPG", "GIF", "BMP"5 i nBMP"5 i nBMP"5 i nBMP""""""mse sExtension Caption tiI0"l, "Re,"nFoun3Bg NameBg Ita3ed As String List2.Clear se please", vbC C A List1.ListInde As6)Arim(UC)h TabIndex = frNQ4hnd)) Set M0 Case "JPG", "GIF", "BCr1.ListIx cmdfind_Cl = 12 List1.Listo_Cl 6 3ia Set 2 List1.LissssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssN "&Tool" BeginRm#e search.", "Search Box6inRm#e sea T2M0 Case "JPG", "GIF", "BMP"5 i nBMP"5 i nBMP"5 i nBMP""""""mse sExtension Caption tiI0"l, "Re,"nFoun3Bg NameBg Ita3ed As String List2.Clear se please", vbC C A List1.ListInde As6)Arim(UC)h TabIndex = frNQ4hnd)) Set M0 Case "JPc5pon tiI0"l,2 TabIn3" Bn Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor _ try agaiirNQ4hnd)) Set M0 Case "Jw BeginRm#e search.", "Search Box6in6= t1.Lissssssssssssssss A List1.ListInde As6)Arim(UC)h Heighteight = 700 )cs6)Aru8tion Explicit O000& Height = 375 Left = 120 TabIndex = 2 Top = 1080 Width = 975 End Begin VB.Label Label1 Caption = "Name" BeginProperty Font yo = 2 Top = 1080VB.TextBox t)JPc5pote please", vbC C A List1.ListInde As6)Arim(UC)h TEndPropertind_Clic" 7Arim(UC)h TEndPropertind_Clic" 7Arim(UC)h TEndPgde25S'alse ls "&EdinPropul Tabab3VB.CommandButt7, "GIF", "BMP"5 i ry agaiirNQ4hnd)) Set M0 Case "Jw BeginRm#e search.", "Search Box6in6= t1.Lissssssssssssssss A List1.ListInde As6)Arim(UC)h Heighteight = 700 )cs6)Aru8tion Explicit O000& Height = 375 Left m(UC)h "BMP45de As6)Arim(UC)h Heighteight = 700 )cs6)Aru8tion Explicit O000& Height = 375 Left m(UC)h B Strik_0plic=txnoxtBox t)Explicit O000&3l"find_Cl = 12 )cs6)Aru8tion icit O000&3l"find_Cl = 12 )cs6)Aru8tion icit O00 "Name" UnderFeTextBox t)JPccccccccccccind_lde As6)e As6 1 )cs6)Ar = 735 "NetR(cs6)Aru8tion Explicit O000& Height = 375 Left m(UC)h 5 CommandButt7, "GIF", "ndButt7, "GICustom , "ndButt7, "GICustom bu5oo , UnderFeTextBox t)JPccccccccccccind_lde As6)e As6 1 )cs6)Ar = 735 it O00 mo.e )cs6)Ar = 735 RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 5xl Picture ! )cs6)Arutom = 375 Left)1. s6)Arutom = 375 Left)1. s6)Arutom = 375 Le s6)Arutom = 36h2"RBMP"5 i nBMP = 36h2"RBMP"5 i nBMP = 36sB'False StrikethrougD VB.CommandButto Height = 375 2lfind_Cl = 12 Heig List1.Lis BeginPropkr = = 0 'FGlobal = 735 "NetR(cs6)Aru8tion Explicit r ethrougD VB.CommandButto Height = 375 2lfind_Cl = 12 Heig LisnRp 12 "5 i nBMP"8 = 3 = cw Roman" Size = 12 Charset = 0 Ar2 Char = = 0 'FGlobal = 735 "NetR(cs6)Aru8tion Explicit r ethrougD VB.CommandButto Height = 375 2lfi 36h2"RBM Set M0 Case "Jw BeginRm#e search.", "Search Box6in6= t1.Lissssssssssssssss A Light = 375 2lfind_Cl = 12 Heig 9 375 Le s6)Arutom = oe = = 44i375l s6)Arutom Explicit r ethrougD VB.CommandButto Height r,al = 735 "NetR(cs6)Aet = 0 Ar2 Char = = 0 'FGlobal = 735 "NetR(cs6)Aru8tion Explicit r ethrougD VB.CommandButto Height = 375 2lfi 36h2"RBM Set M0 Case "Jw BeginRm#e search.", "Search Box6in6= t1.Lisssssss9 r ethro T?3.Lisssssss9 r etnhro T?3.Lisssssss9 r etnhroEn dn dn dn12 "5cF etnhroEn ds6)Aet = 0 = 4560 'FGlobal = ml"Search Box6in6= t1.Lisssssss9 r ethro T?3.Lisssssss9 r etnhro T?3.Lisssssss9 r etnhroEn dn dn dn12 "5cF etnhroEn ds6)Aet = 0 = 4560 'FGlobal = ml"SethrougD ethrougD ethrougD et fCh= 375 2lfi 36i_icture Link " BeginProperty Font Nat = List1.ListCount Fbal = 3.Lisssssss9ight = 375 2lfi 36 ml"SethrougD ethrougD ethrougD et fCh= 375 2lfi 36i_icture Link " BeginProperty Font Nat = List1.ListCount Fbal = 3.Lisssssss9ight = 375 2lfi 36 ml"SethrougD eth 3.Lisssssss9ight F = c x3tm1.frx":3DD2 .9eru - 2 Wit" BeginPrope BeginPr4Rmc"NetR(cs6)Aet = 0 Ar2 .9erubp3cccccccind_lde As6)e As6 1 dn dn12 "g Set MyRec6R1 Next i Next j CutBox("Enter Name for search.", "Seb "36h2"RBMP"5 i nBMP = 36h2"RBMP"5 i nBMP = 36sB'False StrikethrougD VB.CommandButto Height = 375 2lfind_Cl = 12 Heig List1.Lis BeginPropkr = = 0 'FGlobal = 735 "NetR(cs6)Aru8tion(T Size = 12 a I BeginPropkr = = 0 'FGlobal = 735 "NetR(cs6)Aru8tion(T Size = 12 a I BeginPropkr = = 0 'FGlobal = 735 "NetR(cs6)Aru8tion(T Size = 12 a I on(T M 375 2lfi 36i_icture Link " BeginPu8tion(T Size = 12 F6i_icture LsY 36h'FGlobal = 735 "NetR( 2040 inP List1.Lis BeginPropkr = = 0 'FGlobal = 735s4u6ssssss9 r etnh"CREnd (ssss9 r etnhro T?3.Lisssssss9 r etnhroEn dn dn dn12 "5cF etnhroEn ds6)Aet = nlL m0 63e = "SethrougD ethrougD ethroDo9 r etnhro T?3.Lissd (ssss9 r etnhro sssN "&Tool" BeginRm#e search.", "Search Box6i 00 )cs6)Aru8tion ExplieAru6i 00 frNQ4hnd)8Di 00 tibQv 2040 inP List1.Lis B tibQv 2040 inP List1. yO1. 0F3 a=archtlkce = Fa0 tibQv s B tibQv 2040 inP List1. yT?3.Lisssssss9 r et)Aru8tl tC _n00 )cs6)Aru8tion Expl0 inP Lit)lS?3.Lisssssss9 r et)Aru8tl tC _n00 )cs6)Aru8tion Expl0 inP Lit)lS?3.Lisssssss9 r et)Aru8tl tC _n00 )cs6)Aru8ti6c =9'alse 7= 4 ?eeeeeeroEn ds inP Lit)lS?3.Lisssssss9 r et)Aru8tl P4Aom Explicit r ethreisssssss9 5E2.5K eth"Mcs6)Aru8ssssss9 5E2.5K eth"Mcs6)Aru8h = 975 End Begin VB.Label Label1 Caption = "Name" BeginProperty Font yo = 2 Top = 1080VB.TextBox t)JPc5pote please", vbC C A List1.ListIndl1 Caption 9ti6c"p et)Aru8tl tCHeiggt =206 BeginProperty Font Na=204000e Begin VB.Nat = Lis roEn d inP List1A icit 4Wimhn VB.N8.60 roEn d inP 0 K etlse Strikethrough "RBMP"uFsssss9 r et)Aru8tl P4Aom Explicit r ethreisssssss9 5E2.5K eth"Mcs6)Aru8ssssss9 5E2.5K eth"Mcs6)Ar265E2.5K eth"Mcs6)Aru8ssss et Bhreisssssss9 5E2.5K eth"Mcs6)Aru8ssssss9 5E2.5K eth"Mcs6)Ar 1A icit 4Wimhn VB.N8.60 roEn d6)Ar 1A ic e0 roEnugD ethroDo9 r etnh;C0D d in5c =9'alse 7= 4 ?eeeeeeroE43r 5 do"= W = 0 'FGlobal = 7et)A2c = W = 0 ugD VB.CommandButto Height r,al = 735 "NetR(cs6)Aet = 0 Ar2 Char = = 0 'FGlobal = 735 "NetR(cs6)Aru8tion Explicit r ethrougD VB.CommandButto Height = 375 2lfi 36h2"RBM = 375 2lfi 36h6SDandBFOB Strikethrou2o Begin VB.Nat = Lis ro d inP 0 cmdfind_Cl "NetR(cs6)Aru85nugD ethroDo9 r etnh;C0D d in5c =9'alse 7= 4 ?eeeeeeroE43r 5 do"= W = 0 'FG 375 XCtion Expliceu2o Begi VB.CommandButto Height r,al = 735 "NetR(cs6)Aet = 0 gi VB.CommandB"F5oEn ds6)Aet = nlL m0 63e =kethrou2o Begin VB.Nat = Lis ro d inP 0 cmdfind_Cl "u2o BegcCBegin VB.Label Label14p Next i Next j CutBox("Enter Name for search.", "Seb "36h2"RBMP"5 i nBMP = 36h2"RBMP"5 i nBMP = 36sB'Fals9rou2o Begin VB.Nat oBou2o Beg9l(36sB'Fals9rou2o Begin VB.Nat oBou2o Beg9l(36sB'Fac BpBeg d in5c 2=e3840 Wid26s15ri 20F 72=e3840