home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD48704162000.psc / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-04-16  |  20.7 KB  |  612 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Object = "{5C4592BE-A01B-11D3-AFAF-BF3F431B043C}#1.0#0"; "TOOLBAR2.OCX"
  5. Begin VB.Form frmMain 
  6.    Caption         =   "Prostart Web Browser"
  7.    ClientHeight    =   7395
  8.    ClientLeft      =   960
  9.    ClientTop       =   855
  10.    ClientWidth     =   10050
  11.    BeginProperty Font 
  12.       Name            =   "Tahoma"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "Form1.frx":0000
  21.    KeyPreview      =   -1  'True
  22.    LinkTopic       =   "Form1"
  23.    LockControls    =   -1  'True
  24.    ScaleHeight     =   7395
  25.    ScaleWidth      =   10050
  26.    WindowState     =   2  'Maximized
  27.    Begin Prostart.ctlProgress ProgressBar1 
  28.       Height          =   220
  29.       Left            =   0
  30.       TabIndex        =   5
  31.       Top             =   7170
  32.       Width           =   2175
  33.       _ExtentX        =   3836
  34.       _ExtentY        =   397
  35.       Appearance      =   1
  36.       ForeColor       =   0
  37.       BackColor       =   -2147483634
  38.       FillColor       =   16711680
  39.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  40.          Name            =   "Tahoma"
  41.          Size            =   8.25
  42.          Charset         =   0
  43.          Weight          =   400
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       CaptionStyle    =   2
  49.       Caption         =   ""
  50.       BeginProperty CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  51.          Name            =   "Tahoma"
  52.          Size            =   8.25
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.    End
  60.    Begin ComctlLib.ProgressBar pBar 
  61.       Height          =   220
  62.       Left            =   0
  63.       TabIndex        =   4
  64.       Top             =   8520
  65.       Visible         =   0   'False
  66.       Width           =   2175
  67.       _ExtentX        =   3836
  68.       _ExtentY        =   397
  69.       _Version        =   327682
  70.       Appearance      =   1
  71.       Enabled         =   0   'False
  72.    End
  73.    Begin VB.ComboBox cboAddress 
  74.       Height          =   315
  75.       ItemData        =   "Form1.frx":030A
  76.       Left            =   0
  77.       List            =   "Form1.frx":030C
  78.       TabIndex        =   3
  79.       Top             =   480
  80.       Width           =   10695
  81.    End
  82.    Begin VB.ListBox List1 
  83.       BeginProperty Font 
  84.          Name            =   "MS Sans Serif"
  85.          Size            =   8.25
  86.          Charset         =   0
  87.          Weight          =   400
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       Height          =   255
  93.       ItemData        =   "Form1.frx":030E
  94.       Left            =   0
  95.       List            =   "Form1.frx":0315
  96.       Sorted          =   -1  'True
  97.       TabIndex        =   2
  98.       Top             =   8160
  99.       Visible         =   0   'False
  100.       Width           =   3495
  101.    End
  102.    Begin AIFCmp1.asxToolbar toolBar 
  103.       Align           =   1  'Align Top
  104.       Height          =   495
  105.       Left            =   0
  106.       Top             =   0
  107.       Width           =   10050
  108.       _ExtentX        =   17727
  109.       _ExtentY        =   873
  110.       FixedSize       =   32
  111.       BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  112.          Name            =   "Tahoma"
  113.          Size            =   8.25
  114.          Charset         =   0
  115.          Weight          =   400
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       BorderStyle     =   0
  121.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  122.          Name            =   "Tahoma"
  123.          Size            =   8.25
  124.          Charset         =   0
  125.          Weight          =   400
  126.          Underline       =   0   'False
  127.          Italic          =   0   'False
  128.          Strikethrough   =   0   'False
  129.       EndProperty
  130.       Appearance      =   1
  131.       ButtonCount     =   13
  132.       CaptionOptions  =   2
  133.       HotTracking     =   -1  'True
  134.       ButtonCaption1  =   "Back"
  135.       ButtonDescription1=   "Display previous page from History"
  136.       ButtonPicture1  =   "Form1.frx":034C
  137.       ButtonPictureOver1=   "Form1.frx":084E
  138.       ButtonToolTipText1=   "Back"
  139.       ButtonCaption2  =   "Next"
  140.       ButtonDescription2=   "Display next page from history"
  141.       ButtonPicture2  =   "Form1.frx":0D50
  142.       ButtonPictureOver2=   "Form1.frx":1252
  143.       ButtonToolTipText2=   "Next"
  144.       ButtonCaption3  =   "Stop"
  145.       ButtonDescription3=   "Stop loading a page"
  146.       ButtonPicture3  =   "Form1.frx":1754
  147.       ButtonPictureOver3=   "Form1.frx":1C56
  148.       ButtonToolTipText3=   "Stop"
  149.       ButtonStyle4    =   0
  150.       ButtonCaption5  =   "Refresh"
  151.       ButtonDescription5=   "Refresh the current page"
  152.       ButtonPicture5  =   "Form1.frx":2158
  153.       ButtonPictureOver5=   "Form1.frx":265A
  154.       ButtonToolTipText5=   "Refresh"
  155.       ButtonDescription6=   "Displays your home page"
  156.       ButtonPicture6  =   "Form1.frx":2B5C
  157.       ButtonPictureOver6=   "Form1.frx":305E
  158.       ButtonToolTipText6=   "Home"
  159.       ButtonStyle7    =   2
  160.       ButtonDescription8=   "Displays a search engine"
  161.       ButtonKey8      =   "Search"
  162.       ButtonPicture8  =   "Form1.frx":3560
  163.       ButtonPictureOver8=   "Form1.frx":3A62
  164.       ButtonToolTipText8=   "Search"
  165.       ButtonDescription9=   "Displays your favourites menu"
  166.       ButtonKey9      =   "Fav"
  167.       ButtonPicture9  =   "Form1.frx":3F64
  168.       ButtonPictureOver9=   "Form1.frx":4466
  169.       ButtonToolTipText9=   "Favourites"
  170.       ButtonStyle10   =   2
  171.       ButtonDescription11=   "Allows you to set options"
  172.       ButtonPicture11 =   "Form1.frx":4968
  173.       ButtonPictureOver11=   "Form1.frx":4E6A
  174.       ButtonPictureDown11=   "Form1.frx":536C
  175.       ButtonToolTipText11=   "Options"
  176.       ButtonStyle12   =   2
  177.       ButtonDescription13=   "Displays the page full screen"
  178.       ButtonPicture13 =   "Form1.frx":586E
  179.       ButtonPictureOver13=   "Form1.frx":5D70
  180.       ButtonToolTipText13=   "Full Screen"
  181.       Begin VB.CheckBox Check1 
  182.          Caption         =   "Disable Popups"
  183.          Height          =   450
  184.          Left            =   4800
  185.          MaskColor       =   &H00E0E0E0&
  186.          Style           =   1  'Graphical
  187.          TabIndex        =   7
  188.          ToolTipText     =   "Disables/Enables the popups of your browser"
  189.          Top             =   25
  190.          Width           =   700
  191.       End
  192.    End
  193.    Begin ComctlLib.StatusBar StatusBar1 
  194.       Align           =   2  'Align Bottom
  195.       Height          =   270
  196.       Left            =   0
  197.       TabIndex        =   1
  198.       Top             =   7125
  199.       Width           =   10050
  200.       _ExtentX        =   17727
  201.       _ExtentY        =   476
  202.       SimpleText      =   ""
  203.       _Version        =   327682
  204.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  205.          NumPanels       =   2
  206.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  207.             Object.Width           =   3828
  208.             MinWidth        =   3828
  209.             Object.Tag             =   ""
  210.          EndProperty
  211.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  212.             AutoSize        =   1
  213.             Object.Width           =   13432
  214.             MinWidth        =   1182
  215.             Object.Tag             =   ""
  216.          EndProperty
  217.       EndProperty
  218.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  219.          Name            =   "Tahoma"
  220.          Size            =   8.25
  221.          Charset         =   0
  222.          Weight          =   400
  223.          Underline       =   0   'False
  224.          Italic          =   0   'False
  225.          Strikethrough   =   0   'False
  226.       EndProperty
  227.    End
  228.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  229.       Height          =   7575
  230.       Left            =   0
  231.       TabIndex        =   0
  232.       Top             =   840
  233.       Width           =   10695
  234.       ExtentX         =   18865
  235.       ExtentY         =   13361
  236.       ViewMode        =   0
  237.       Offline         =   0
  238.       Silent          =   0
  239.       RegisterAsBrowser=   0
  240.       RegisterAsDropTarget=   1
  241.       AutoArrange     =   0   'False
  242.       NoClientEdge    =   0   'False
  243.       AlignLeft       =   0   'False
  244.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  245.       Location        =   ""
  246.    End
  247.    Begin ComctlLib.ProgressBar ProgressBar 
  248.       Height          =   242
  249.       Left            =   20
  250.       TabIndex        =   6
  251.       Top             =   7150
  252.       Width           =   2185
  253.       _ExtentX        =   3863
  254.       _ExtentY        =   423
  255.       _Version        =   327682
  256.       Appearance      =   1
  257.    End
  258.    Begin VB.Menu mnuFile 
  259.       Caption         =   "&File"
  260.       Begin VB.Menu mnuNew 
  261.          Caption         =   "New window..."
  262.          Shortcut        =   ^N
  263.       End
  264.       Begin VB.Menu mnuOpenExternal 
  265.          Caption         =   "&Open"
  266.          Shortcut        =   ^O
  267.       End
  268.       Begin VB.Menu div1 
  269.          Caption         =   "-"
  270.       End
  271.       Begin VB.Menu mnuExit 
  272.          Caption         =   "&Exit"
  273.       End
  274.    End
  275.    Begin VB.Menu mnuEdit 
  276.       Caption         =   "&Edit"
  277.       Begin VB.Menu mnuCut 
  278.          Caption         =   "&Cut"
  279.          Shortcut        =   ^X
  280.       End
  281.       Begin VB.Menu divider1 
  282.          Caption         =   "-"
  283.       End
  284.       Begin VB.Menu mnuCopy 
  285.          Caption         =   "C&opy"
  286.          Shortcut        =   ^C
  287.       End
  288.       Begin VB.Menu divider2 
  289.          Caption         =   "-"
  290.       End
  291.       Begin VB.Menu mnuPaste 
  292.          Caption         =   "&Paste"
  293.          Shortcut        =   ^V
  294.       End
  295.    End
  296.    Begin VB.Menu mnuView 
  297.       Caption         =   "&View"
  298.       Begin VB.Menu mnuGoTo 
  299.          Caption         =   "&Go to"
  300.          Begin VB.Menu mnuBack 
  301.             Caption         =   "&Back"
  302.          End
  303.          Begin VB.Menu mnuForward 
  304.             Caption         =   "&Forward"
  305.          End
  306.          Begin VB.Menu div 
  307.             Caption         =   "-"
  308.          End
  309.          Begin VB.Menu mnuHome 
  310.             Caption         =   "&Home Page"
  311.          End
  312.          Begin VB.Menu mnuSearch 
  313.             Caption         =   "&Search"
  314.          End
  315.       End
  316.       Begin VB.Menu mnuStop 
  317.          Caption         =   "Sto&p"
  318.       End
  319.       Begin VB.Menu mnuRefresh 
  320.          Caption         =   "&Refresh"
  321.       End
  322.       Begin VB.Menu mnuSource 
  323.          Caption         =   "So&urce"
  324.          Shortcut        =   ^S
  325.       End
  326.       Begin VB.Menu div2 
  327.          Caption         =   "-"
  328.       End
  329.       Begin VB.Menu mnuFullScreen 
  330.          Caption         =   "Full &Screen!"
  331.       End
  332.    End
  333.    Begin VB.Menu mnuFavourites 
  334.       Caption         =   "F&avourites"
  335.       Begin VB.Menu mnuAddFav 
  336.          Caption         =   "&Add to favourites..."
  337.       End
  338.       Begin VB.Menu mnuOrgFav 
  339.          Caption         =   "&Organize favourites..."
  340.       End
  341.       Begin VB.Menu mnuArray 
  342.          Caption         =   "-"
  343.          Index           =   0
  344.       End
  345.    End
  346.    Begin VB.Menu mnuTools 
  347.       Caption         =   "&Tools"
  348.       Begin VB.Menu mnuOptionB 
  349.          Caption         =   "&Browser Properties"
  350.       End
  351.       Begin VB.Menu div6 
  352.          Caption         =   "-"
  353.       End
  354.       Begin VB.Menu mnuMail 
  355.          Caption         =   "Mail"
  356.          Begin VB.Menu mnuMailSend 
  357.             Caption         =   "&Send Mail"
  358.          End
  359.          Begin VB.Menu mnuRecieve 
  360.             Caption         =   "&Recieve Mail"
  361.          End
  362.       End
  363.    End
  364.    Begin VB.Menu mnuHelp 
  365.       Caption         =   "&Help"
  366.       Begin VB.Menu div3 
  367.          Caption         =   "-"
  368.       End
  369.       Begin VB.Menu mnuProstartWeb 
  370.          Caption         =   "Prostart on the &web"
  371.          Begin VB.Menu mnuUpdate 
  372.             Caption         =   "&Check for updates"
  373.          End
  374.          Begin VB.Menu mnuProstartHome 
  375.             Caption         =   "&Prostart homepage"
  376.          End
  377.       End
  378.       Begin VB.Menu div4 
  379.          Caption         =   "-"
  380.       End
  381.       Begin VB.Menu mnuAbout 
  382.          Caption         =   "&About..."
  383.       End
  384.    End
  385. Attribute VB_Name = "frmMain"
  386. Attribute VB_GlobalNameSpace = False
  387. Attribute VB_Creatable = False
  388. Attribute VB_PredeclaredId = True
  389. Attribute VB_Exposed = False
  390. 'Used for menu-favourites
  391. Public DaBa As String, CurNew As String, NewNod As Integer
  392. Private File As String
  393. 'Used for menu-favourites
  394. Private initialDir As String ' Used when opening local files
  395. Const homePage = "www.microsoft.com" ' Set home URL
  396. Private Sub Command1_Click()
  397. WebBrowser1.Navigate Text1.Text
  398. End Sub
  399. Private Sub cboAddress_Click()
  400. WebBrowser1.Navigate cboAddress.Text 'User choose a file in 'history'
  401. End Sub
  402. Private Sub cboAddress_KeyPress(KeyAscii As Integer) 'This event logs all visited webpages in the address combo
  403. If KeyAscii = 13 Then                       'If user press enter button
  404. WebBrowser1.Navigate cboAddress.Text        'Go to page
  405. comboLoop                                   'See sub below!
  406. End If
  407. End Sub
  408. Sub comboLoop() 'A bad name - i know - what it does is add the address to the list if it's not there from before
  409. Dim inList As Boolean
  410. inList = False                              'Set inList as false initially
  411. For i = 0 To cboAddress.ListCount           'Loop through the combo to check if address exist from before
  412.   If cboAddress.Text = cboAddress.List(i) Then inList = True    'If it's already there, set boolean to true
  413. Next i
  414. If inList = False Then cboAddress.AddItem cboAddress.Text       'If, after the loop - inlist is still false
  415.                                                                 'we can assume that the address did not exist
  416.                                                                 'in the combo - so we add it!
  417. End Sub
  418. Private Sub Check1_Click()
  419. If Check1.value = 1 Then
  420.     Check1.Caption = "Enable Popups"
  421.     Check1.Caption = "Disable Popups"
  422. End If
  423. End Sub
  424. Private Sub Form_Load()
  425.     File = App.Path & "\favourites.rtx" 'This is an ini file, but let's not give that away... ;)
  426.     initialDir = App.Path & "\"
  427.     LoadINI
  428.     extractMenu
  429.     WebBrowser1.Navigate homePage
  430.     If numberOfWindows = Empty Then numberOfWindows = 1 'This variable is set in module1 and we use it to
  431.                                                         'keep track of how many windows are opened. If this
  432.                                                         'is the first window - set the counter to 1
  433. End Sub
  434. Private Sub Form_Resize()
  435. On Error Resume Next
  436. WebBrowser1.Width = Me.ScaleWidth
  437. WebBrowser1.Height = Me.ScaleHeight - StatusBar1.Height - toolBar.Height - cboAddress.Height
  438. picBar.top = Me.Height - 930
  439. cboAddress.Width = Me.ScaleWidth
  440. ProgressBar1.top = Me.Height - 930
  441. End Sub
  442. Private Sub Form_Unload(Cancel As Integer) 'Make sure nothing is in memory on exit
  443. Unload frmOpen
  444. Unload frmSplash
  445. Unload frmFullScreen
  446. 'numberOfWindows = numberOfWindows - 1 'Update the variable we use to keep track of instances
  447. If numberOfWindows < 1 Then 'If this is the last instance (window) then end
  448. End If
  449. End Sub
  450. Private Sub mnuAbout_Click()
  451. frmCredits.Show 1
  452. End Sub
  453. Private Sub mnuAddFav_Click()
  454. Dim locname As String
  455. Dim locurl As String
  456. locname = WebBrowser1.LocationName & "="
  457. locurl = WebBrowser1.LocationURL
  458. End Sub
  459. Private Sub mnuArray_Click(Index As Integer)
  460. WebBrowser1.Navigate GetValue("Favourites", mnuArray.Item(Index).Caption, File)
  461. End Sub
  462. Sub mnuBack_Click()
  463. On Error Resume Next
  464. WebBrowser1.GoBack
  465. End Sub
  466. Private Sub mnuExit_Click()
  467. Unload Me
  468. End Sub
  469. Sub mnuForward_Click()
  470. On Error Resume Next
  471. WebBrowser1.GoForward
  472. End Sub
  473. Private Sub mnuFullScreen_Click()
  474. toolBar.ForceClick (13)
  475. End Sub
  476. Sub mnuHome_Click()
  477. WebBrowser1.Navigate homePage
  478. End Sub
  479. Private Sub mnuMailSend_Click()
  480. frmSendMail.Show
  481. End Sub
  482. Sub mnuNew_Click()
  483. Dim newInstance As New frmMain 'Create a new instance of our form
  484. newInstance.Show
  485. newInstance.Caption = "Prostart Web Browser - New Window"
  486. 'Add one to the number of open windows
  487. End Sub
  488. Private Sub mnuOpenExternal_Click()
  489. frmOpen.Show
  490. End Sub
  491. Private Sub mnuOptionB_Click()
  492. frmOptions.Show
  493. End Sub
  494. Private Sub mnuOrgFav_Click()
  495. MsgBox "Not implemented yet"
  496. End Sub
  497. Private Sub mnuRecieve_Click()
  498. frmGetMail.Show
  499. End Sub
  500. Sub mnuRefresh_Click()
  501. WebBrowser1.Refresh
  502. End Sub
  503. Sub mnuSearch_Click()
  504. WebBrowser1.GoSearch
  505. End Sub
  506. Private Sub mnuSource_Click()
  507. frmSource.Show
  508. End Sub
  509. Sub mnuStop_Click()
  510. WebBrowser1.Stop
  511. End Sub
  512. Private Sub toolBar_ButtonClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
  513. If ButtonIndex = 1 Then mnuBack_Click: If ButtonIndex = 2 Then mnuForward_Click
  514. If ButtonIndex = 3 Then mnuStop_Click: pBar.value = 100
  515. If ButtonIndex = 5 Then WebBrowser1.Refresh             'For some reason (i don't know why) these
  516. If ButtonIndex = 6 Then WebBrowser1.Navigate homePage   'buttonclicks could not refer to the menu_click event
  517. If ButtonIndex = 8 Then WebBrowser1.GoSearch
  518. If ButtonIndex = 9 Then PopupMenu mnuFavourites, 2, , toolBar.top + toolBar.Height
  519. If ButtonIndex = 11 Then frmOptions.Show
  520. If ButtonIndex = 13 Then
  521. Me.Hide
  522. frmFullScreen.Show
  523. End If
  524. End Sub
  525. Private Sub WebBrowser1_DownloadBegin()
  526. ProgressBar1.Visible = True
  527. End Sub
  528. Private Sub WebBrowser1_DownloadComplete()
  529. ProgressBar1.value = 100
  530. ProgressBar1.Visible = False
  531. End Sub
  532. Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) 'NB!!!     I changed this so the new window
  533. If Check1.value = 1 Then
  534.     Cancel = True
  535.     Cancel = False
  536. End If
  537. End Sub
  538. Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
  539.     frmMain.Caption = WebBrowser1.LocationName
  540.         StatusBar1.Panels(2).Text = WebBrowser1.LocationURL
  541.         StatusBar1.ToolTipText = WebBrowser1.LocationURL
  542. End Sub
  543. Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
  544. On Error GoTo progressERR
  545. If Progress = -1 Then ProgressBar1.value = 100
  546. If Progress > 0 And ProgressMax > 0 Then
  547.     ProgressBar1.value = Progress * 100 / ProgressMax
  548.     End If
  549.     Exit Sub
  550. progressERR:
  551. End Sub
  552. Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
  553. StatusBar1.Panels(2).Text = Text
  554. StatusBar1.ToolTipText = WebBrowser1.LocationURL
  555. frmMain.Caption = WebBrowser1.LocationName & " - Prostart Browser"
  556. cboAddress.Text = WebBrowser1.LocationURL
  557. End Sub
  558. '///////The following subs are used in the form load event to create and fill inn favourites in the menu
  559. Sub LoadINI()
  560. DaBa = ""
  561. Dim x, y, Z, GenKey As Integer, A, b, CurInfo As String, CurData As String, CurDir As String, CurDirPos
  562. List1.Clear
  563. DaBa = String(FileLen(File), " ")
  564. Open File For Binary As #1
  565. Get #1, 1, DaBa
  566. Close #1
  567. For y = 1 To Len(DaBa)
  568.     If Mid(DaBa, y, 1) = "[" Then
  569.     For x = y To Len(DaBa)
  570.     If Mid(DaBa, x, 1) = "]" Then
  571.     CurDirPos = y + 1
  572.     CurDir = Mid(DaBa, y + 1, (x - y) - 1)
  573.     On Error Resume Next
  574.     'List1.AddItem CurDir
  575.            For Z = x + 1 To Len(DaBa)
  576.            If Mid(DaBa, Z, 1) = "[" Then Exit For
  577.            If Mid(DaBa, Z, 1) = "=" Then
  578.                For A = Z To 1 Step -1
  579.                If Mid(DaBa, A, 1) = "]" Then Exit For
  580.                 If Mid(DaBa, A, 1) = Chr(13) Then
  581.                 CurInfo = Mid(DaBa, A + 2, Z - A - 2)
  582.                 List1.AddItem CurInfo
  583.                 Exit For
  584.                 End If
  585.                Next A
  586.                
  587.                For A = Z To Len(DaBa)
  588.                 If Mid(DaBa, A, 1) = "[" Then Exit For
  589.                 If Mid(DaBa, A, 1) = Chr(13) Or A = Len(DaBa) Then
  590.                 If A = Len(DaBa) Then Let A = A + 1
  591.                 CurData = Mid(DaBa, Z + 1, A - (Z + 1))
  592.                 'List1.AddItem CurData
  593.                 Exit For
  594.                 End If
  595.                Next A
  596.             
  597.              End If
  598.              Next Z
  599.         Exit For
  600.         End If
  601.         Next x
  602.     End If
  603. Next y
  604. End Sub
  605. Sub extractMenu()
  606. On Error Resume Next
  607. For i = 1 To List1.ListCount
  608. Load mnuArray(i)
  609.    mnuArray(i).Caption = List1.List(i - 1)
  610. Next i
  611. End Sub
  612.