< f o n t   f a c e = " T a h o m a "   s i z e = " 2 " > < p > A d d   a   m e n u   i t e m   n a m e d   ' m n u C r e a t e '   w i t h   a   c a p t i o n   o f   " & C r e a t e 
 W e b B r o w s e r " < / p > 
 < p > P l a c e   t h e   f o l l o w i n g   c o d e   i n t o   a   s t a n d a r d   V B   6 . 0   f o r m . < / p > < / f o n t > 
 < h r > 
 < p > < f o n t   f a c e = " C o u r i e r   N e w "   s i z e = " 2 " > 
 < f o n t   c o l o r = " # 0 0 0 0 F F " > P r i v a t e < / f o n t >   m _ W e b C o n t r o l   < f o n t   c o l o r = " # 0 0 0 0 F F " >   A s < / f o n t >   V B C o n t r o l E x t e n d e r 
 
 < f o n t   c o l o r = " # 0 0 0 0 F F " > P r i v a t e   S u b < / f o n t >   F o r m _ R e s i z e ( ) 
 O n   E r r o r   R e s u m e   N e x t 
 < f o n t   c o l o r = " # 0 0 8 0 0 0 " >       < / f o n t >   < f o n t   c o l o r = " # 0 0 8 0 0 0 " > '   r e s i z e   w e b b r o w s e r   t o   e n t i r e   s i z e   o f   f o r m < / f o n t > 
         m _ W e b C o n t r o l . M o v e   0 ,   0 ,   S c a l e W i d t h ,   S c a l e H e i g h t 
 < f o n t   c o l o r = " # 0 0 0 0 F F " > E n d   S u b < / f o n t > 
 
 < f o n t   c o l o r = " # 0 0 0 0 F F " > P r i v a t e   S u b < / f o n t >   m n u C r e a t e _ C l i c k ( ) 
 < f o n t   c o l o r = " # 0 0 0 0 F F " > O n   E r r o r   G o T o < / f o n t >   E r r H a n d l e r 
 
 < f o n t   c o l o r = " # 0 0 8 0 0 0 " >       < / f o n t >   < f o n t   c o l o r = " # 0 0 8 0 0 0 " > '   a t t e m p t i n g   t o   a d d   W e b B r o w s e r   h e r e   ( ' S h e l l . E x p l o r e r . 2 '   i s   r e g i s t e r e d 
         '   w i t h   W i n d o w s   i f   a   r e c e n t   ( > =   4 . 0 )   v e r s i o n   o f   I n t e r n e t   E x p l o r e r   i s   i n s t a l l e d 
 < / f o n t > < f o n t   c o l o r = " # 0 0 0 0 F F " >       < / f o n t > < f o n t   c o l o r = " # 0 0 8 0 0 0 " >   < / f o n t > < f o n t   c o l o r = " # 0 0 0 0 F F " > S e t < / f o n t >   m _ W e b C o n t r o l   =   C o n t r o l s . A d d ( " S h e l l . E x p l o r e r . 2 " ,   " w e b c t l " ,   M e ) 
 
 < f o n t   c o l o r = " # 0 0 8 0 0 0 " >       < / f o n t >   < f o n t   c o l o r = " # 0 0 8 0 0 0 " > '   i f   w e   g o t   t o   h e r e ,   t h e r e   w a s   n o   p r o b l e m   c r e a t i n g   t h e   W e b B r o w s e r 
         '   s o   w e   s h o u l d   s i z e   i t   p r o p e r l y   a n d   e n s u r e   i t ' s   v i s i b l e 
 < / f o n t >       < f o n t   c o l o r = " # 0 0 8 0 0 0 " >   < / f o n t > m _ W e b C o n t r o l . M o v e   0 ,   0 ,   S c a l e W i d t h ,   S c a l e H e i g h t 
         m _ W e b C o n t r o l . V i s i b l e   =   < f o n t   c o l o r = " # 0 0 0 0 F F " >   T r u e < / f o n t > 
 
 < f o n t   c o l o r = " # 0 0 8 0 0 0 " >       < / f o n t >   < f o n t   c o l o r = " # 0 0 8 0 0 0 " > '   u s e   t h e   N a v i g a t e   m e t h o d   o f   t h e   W e b B r o w s e r   c o n t r o l   t o   o p e n   a 
         '   w e b   p a g e 
 < / f o n t >       < f o n t   c o l o r = " # 0 0 8 0 0 0 " >   < / f o n t > m _ W e b C o n t r o l . o b j e c t . n a v i g a t e   " h t t p : / / w w w . p l a n e t - s o u r c e - c o d e . c o m " 
 
 < f o n t   c o l o r = " # 0 0 0 0 F F " >       < / f o n t >   < f o n t   c o l o r = " # 0 0 0 0 F F " > E x i t   S u b < / f o n t > 
 E r r H a n d l e r : 
         M s g B o x   " C o u l d   n o t   c r e a t e   W e b B r o w s e r   c o n t r o l " ,   v b I n f o r m a t i o n 
 < f o n t   c o l o r = " # 0 0 0 0 F F " > E n d   S u b < / f o n t > < / f o n t > 
 < / p > 
 