vb post提交url该怎么实现(着急)

vb post提交url该如何实现(着急...)
就是vb画了一个界面,
用户名 : ________
密码 : ________
  提交

如何让vb post 请求 (http)提交用户名和密码到java的某个servlet,让

[解决办法]
使用xmlHTTP对象，可以这样：
新建一个标准模块，写入：

VB code

Option ExplicitPublic Function GetCode(CodeBase, url, Data)    On Error GoTo HandleErr:    Dim xmlHTTP1    Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")    xmlHTTP1.Open "get", url, True    xmlHTTP1.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"    xmlHTTP1.send Data    While xmlHTTP1.ReadyState <> 4        DoEvents    Wend    GetCode = xmlHTTP1.responseBody    If CStr(GetCode) <> "" Then GetCode = BytesToBstr(GetCode, CodeBase)    Set xmlHTTP1 = Nothing    Exit FunctionHandleErr:End FunctionPublic Function BytesToBstr(strBody, CodeBase)    Dim ObjStream    Set ObjStream = CreateObject("Adodb.Stream")    With ObjStream        .Type = 1        .Mode = 3        .Open        .Write strBody        .Position = 0        .Type = 2        .Charset = CodeBase        BytesToBstr = .ReadText        .Close    End With    Set ObjStream = NothingEnd Function