					
YesStock ActiveX Control

This ActiveX OCX control  provides Visual Basic programmer a tool to develop stock-related applications. 
For example, you can create your own stock database, and you can create a stock screening program based on 
your own stock database.(Actually I have my VB programs, I let my StockDataCollector run at night, and it will automatically 
collect the information over 9000 stock, and in the morning I run my stock screening program for any given criteria.)

INSTALLATION/UNINSTALL

For Win95/98, copy YesStock.ocx into your C:\windows\system 
directory. For WinNT, copy into C:\Winnt\system32 directory. Then go to Start|Run and type "regsvr32 YesStock.ocx".

To uninstall YesStock.ocx. Go to Start|Run and type "regsvr32 /u YesStock.ocx".


HOW TO USE THIS CONTROL

Just drag and draw the control, then set the control's symbol(ticker) property, and run GetStockInfo method.
24 properties (24 stock information) will then be available.

Example,

YesStock1.Symbol="One" 'set ticker to Banc ONE
YesStock1.GetStockInfo  'run method 

Msgbox "last ="  & YesStock1.Quote
Msgbox "52 Week High =" & YesStock1.WeekHigh
Msgbox "52 Week Low =" & YesStock1.WeekLow
Msgbox "Volume ="& YesStock1.olume
Msgbox "Average Daily Volume =" & YesStock1.AveVolume
Msgbox "3 Month Change =" &  YesStock1.Change3M
Msgbox "3 Month Relative Strength =" & YesStock1.Strength3M
Msgbox "6 Month Change =" &  YesStock1.Change6M
Msgbox "6 Month Relative Strength =" & YesStock1.Strength6M
Msgbox "12 Month Change =" & YesStock1.Change12M
Msgbox "12 Month Relative Strength =" & YesStock1.Strength12M
Msgbox "5 Year Sales Growth =" &  YesStock1.SalesGrowth
Msgbox "5 Year Income Growth =" & YesStock1.IncomeGrowth
Msgbox "5 Year Dividend Rate Growth =" &  YesStock1.DividendRateGrowth
Msgbox "P/E=" & YesStock1.PE
Msgbox "EPS=" & YesStock1.EPS
Msgbox "Dividend Yield =" & YesStock1.DividendYield
Msgbox "Debt/Equity Ratio =" & YesStock1.DebtEquity
Msgbox "Net Profit Margin =" &  YesStock1.ProfitMargin
Msgbox "Shares Outstanding =" & YesStock1.SharesOutstanding)
Msgbox "Market Capitalization =" & YesStock1.MarketCap
Msgbox "50 Day Moving Average =" & YesStock1.MovingAverage50Day
Msgbox "200 Day Moving Average =" & YesStock1.MovingAverage200Day
Msgbox "Institutional Ownership =" & YesStock1.InstitutionalOwnership

REGISTRATION

If you like it or you think you can make more money in the stock market with this tool,
send a check of $8 to (or any amount will be appreciated): 

Jian YE
5750 LIMESTONE DR.
TROY, MI 48098

If you want more info about my  9000+ stocks database program and stock screening program, drop me an e-mail.

Jian YE
jye@engenius.com
