populating combo box options

[lintz]

Add the Inet control to your form then add this code to a command button.

Private Sub Command1_Click()
Dim Source As String
Dim pos As Long
 
'get source of webpage
Source = Inet1.OpenURL("http://www.yoursite.com/yourpage.html")
 
'find where first <option> is
pos = InStr(1, Source, "<option>")
 
Do Until pos = 0
 
Combo1.AddItem Mid$(Source, pos + 8, InStr(pos + 1, Source, "<") - (pos + 8))
 
'find where next <option> is
pos = InStr(pos + 1, Source, "<option>")
Loop
 
End Sub