this is originally coded by monxxx -thanks to him and credit always goes to him

i am not on delphi i want to learn more on visual basic,
i try to compile this and this is the screenshot of my work


but if anyone can convert this on vb that will really a big help
because i understand a bit of code on vb while on delphi im zero level

unit Unit1;

// Coded by monxxx
// email: [email protected]

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Registry;

type
TForm1 = class(TForm)
Memo1: TMemo;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption := 'yahoo! messenger multiple account login patcher';
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Yahoo\pager\Test', True);
Memo1.Text := 'Enabling yahoo msgr multiple account login done! :-)';
Reg.WriteInteger('Plural', 1);
Reg.Free;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Yahoo\pager\Test', True);
Memo1.Text := 'Disabling yahoo msgr multiple account login done! :-(';
Reg.WriteInteger('Plural', 0);
Reg.Free;
end;

end.
thank you in advance,

regards