Attribute VB_Name = "Module2"
Private Sub mnuLijst_Click()
  Dim doc As HTMLDocument
  
 '' Form2.Text1.Text = ""
  On Error Resume Next
  Do
    DoEvents
  Loop Until Not brwWebBrowser.Busy
  
  Set doc = brwWebBrowser.Document
  
  If doc.frames.length <> 0 Then
   '' HandleFrames doc
  Else
   '' ScanForms doc
  End If
  
 '' Form2.Show
End Sub

Private Sub cboAddress_Click()
Dim cbadd$
Dim brw As WebBrowser
Set brw = brwWebBrowser
    If mbDontNavigateNow Then Exit Sub
    timTimer.Enabled = True
    brwWebBrowser.Navigate cboAddress.text
    Do
    DoEvents
  Loop Until Not brwWebBrowser.Busy
  cbadd = extracturl(cboAddress.text)
  getvalues cbadd, brw

End Sub
Private Sub Command1_Click()
Dim info$
Dim appname$
 Open App.Path + "\pass.txt" For Input As 1
 Do While Not EOF(1)
 Line Input #1, info
        'Is it the start of the appName?
        If Left$(info, 1) = "[" Then
            'Extracts the appname from the line
            appname = LCase$(Mid$(info, 2, Len(info) - 2))
            List1.AddItem appname
          End If
          'If it's found the correct 1
             
     Loop
     
Close #1

End Sub
Private Sub cmdlistaddress_Click()
Dim info$
Dim appname$
Dim x$
x = extracturl(cboAddress.text)

 Open App.Path + "\pass.txt" For Input As 1
 Do While Not EOF(1)
 Line Input #1, info
        'Is it the start of the appName?
        If Left$(info, 1) = "[" Then
            'Extracts the appname from the line
            appname = LCase$(Mid$(info, 2, Len(info) - 2))
            List1.AddItem appname
          End If
          'If it's found the correct 1
             
     Loop
     
Close #1

End Sub
