Hi i got this code and i desperately want to translate it to vb but i cant


Code:
procedure TForm1.Button3Click(Sender: TObject);
var
sURL:String;
slEintrag:TStringList;
url:string;
sNick,sPW:string;
strs,slMSG:tstringlist;
begin
button3.Enabled:=false;
sNick:=  Nick2;
sPW:=    PW2;

  slEintrag := TStringList.Create;
  sURL:='http://www.forum.org/login.php';
  with
  slEintrag do
  begin
    Values['username'] := sNick;
    Values['password'] := sPW;
    Values['autologin'] := 'on';
    Values['redirect'] := '';
    Values['login'] := 'Log+in';
  end;
  try
 memo3.Text:=idhttp1.Post(sURL,slEintrag);
  idhttp1.CookieManager.AddCookie(idhttp1.Response.RawHeaders.Text,'forum.org');
  except
    MessageDlg('Senden  error', mtError, [mbOK], 0);
  end;
  slEintrag.Free;

   slMSG:= TStringList.Create;
 slMSG.Add(''+edit1.text+'');
 slMSG.Add('');
 slMSG.Add('[IMG]'+edit2.text+'[/IMG]');
 slMSG.Add('');
 slMSG.Add('Playlist:');
 slMSG.Add('

	
Code:

	
'+memo1.Text+'


');
 slMSG.Add(''+memo2.Text+'');
 slMSG.Add('');
 slMSG.Add('Download:');
 slMSG.Add('

	
Code:

	
'+memo3.Text+'


');

  url:='http://forum.org/posting.php';
  strs := TStringList.Create;
strs.clear;

  strs.add('subject='+edit1.text);
  strs.add('addbbcode18=#');
  strs.add('addbbcode20=12');
  strs.add('helpbox=Font color: text  Tip: you can also use color=#FF0000');
strs.add('message='+slMSG.Text);
  strs.add('poll_title=');
  strs.add('add_poll_option_text=');
  strs.add('poll_length=');
  strs.add('mode=newtopic');
  strs.add('f=17');
//  strs.add('f='+edit3.Text);
  strs.add('post=Submit');

idhttp1.Post(url,strs);

button3.Enabled:=true;

end;