Public Sub POSTData(Adresse As String, PostVars As String)
Dim PostData() As Byte
Dim Header As String
 
PostData = StrConv(PostVars, vbFromUnicode)
 
Header = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
WebBrowser1.Navigate Adresse, 0, TargetFrame, PostData, Header
End Sub