请求帮忙，如何在VB6.0中实现Webservice身份验证。急！急！急！

最近做一个接口程序，需要调用Webservice服务，但是每次调用都需要认证通过（部分需要授权）才能够被调用，所以需要将用户名和密码设置到SOAPHeader中，可是如何将用户名和密码等信息用VB方式写入，非常着急，在线等，请高手赐教！  

假单说就是下面代码怎样在VB6.0里实现：

//定义web引用的对象
HistoXnh. His_InterFace_SN test = new HistoXnh. His_InterFace_SN ();
//定义授权类的对象
HistoXnh. ServiceManage Header = new HistoXnh. ServiceManage ();
//设置soap头变量
Header.UserName = "aaa";
Header.PassWord = "123456";
test.ServiceManageValue = Header;

各位大哥帮忙了啊