Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Get stock prices


'uses the Internet Transfer Control
Dim temp As String
Dim quotestring As String
quotestring = " http://quote.yahoo.com/download/quotes.csv?format=sl &ext=.csv&symbols=txn,msn"
temp = Inet1.OpenURL(quotestring)

'on exit, cancel any pending requests
Private Sub Form_Unload(Cancel As Integer )
   InetQuotes.Cancel
End Sub