vb如何操作Excel中的页首/页尾字体？

初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
  Picture1.Top = -VScroll1.Value + bcW '垂直移动
  Picture1.Left = -HScroll1.Value + bcW ' ......

帮我改改 我总觉得有问题
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
 A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......

报这个错:
compile Error
sub or function not defined
和我引用这个库函数有关系吗？
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
  "GetPrivatePr ......

这个代码
shell "cmd /c netstat -na | find /c "+chr(34)+" 10.0.0.2:80 ESTABLISHED"+chr(34)+" >out.txt"
请问out.txt 这个文本存在哪儿了，如何读取这个文件，并 ......