** sample OCX
** untuk winsock 
aa=CREATEOBJECT('MSWinsock.Winsock' ) 
? aa.LocalIP 

** untuk wmplayer 
oWMP = CREATEOBJECT("WMPlayer.OCX" ) 
oPlayList = oWmp.PlaylistCollection.GetAll() 
oWmp.currentPlaylist = oPlayList.Item(0 )