<form =centername="newfiles" enctype="multipart/form-data" method="POST" _
  action="fileupload.php">
<input type="hidden" name="s" value="">
<input type="hidden" name="action" value="Inhalt">
  <br>File Inhalte einlesen<p>
  <input type="file" name="bild" value = "" size="20"> <br></p>
  <p>        <input type="submit" class="bginput" name="submit" value="In DB" & _
    "eintragen" accesskey="s" tabindex="3"><br><br>
</p>
</form>

Sub Command1_Click()
         Dim URL As String
         Dim Flags As Long
         Dim TargetFrame As String
         Dim PostData() As Byte
         Dim Headers As String
 
         URL = "http://YourServer" ' A URL that will accept a POST
         Flags = 0
         TargetFrame = ""
 
         PostData = "Information sent to host"
 
         ' VB creates a Unicode string by default so we need to
         ' convert it back to Single byte character set.
         PostData = StrConv(PostData, vbFromUnicode)
 
         Headers = "Content-Type: application/x-www-form-urlencoded" & _
            vbCrlf
         WebBrowser1.Navigate URL, Flags, TargetFrame, PostData, Headers
      End Sub