Delphi - Aiuto delphi to vb.net

Ciao a tutti
alcuni miei amici mi hanno procurato dei codici sorgenti che hanno trovato su un sito, dicevano di essere tutte dello stesso programma, però le vogliono compilate in vb.net, c'è qualcuno che mi da un aiuto a tradurle da delphi win 32 a vb.net?
grazie

1° form:

unit AdSelCom;

interface

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

type
  TComSelectForm = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    OkBtn: TBitBtn;
    AbortBtn: TBitBtn;
    PortsComboBox: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ComSelectForm: TComSelectForm;

implementation

{$R *.DFM}

procedure TComSelectForm.FormCreate(Sender: TObject);
begin
// Address 5554
end;

procedure TComSelectForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
// Address 57DC
end;

end.

2° form

unit LogFile;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;
type
  TFLog = class(TForm)
    ImgSfondo: TImage;
    Memo1: TMemo;

    Erase: TButton;
    Chiudi: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
    procedure ChiudiClick(Sender: TObject);
    procedure EraseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FLog: TFLog;

implementation

{$R *.DFM}

procedure TFLog.FormCreate(Sender: TObject);
begin
// Address CA7E8
end;

procedure TFLog.ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
// Address CA98C
end;

procedure TFLog.ChiudiClick(Sender: TObject);
begin
// Address CA9BC
end;

procedure TFLog.EraseClick(Sender: TObject);
begin
// Address CAA94
end;

end.

3° form

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   XPMan, ExtCtrls, StdCtrls,  Menus, ActnList, ExtActns, ImgList;

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    Timer1: TTimer;
    ListBox1: TListBox;
    ImgSfondo: TImage;
    Timer2: TTimer;
    Label3: TLabel;
    Label8: TLabel;
    ImageList1: TImageList;
    PopupMenuTray: TPopupMenu;
    Open: TMenuItem;
    N1: TMenuItem;
    N11: TMenuItem;
    N21: TMenuItem;
    N2: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N3: TMenuItem;
    Chiudi1: TMenuItem;
    Label6: TLabel;
    Timer3: TTimer;
    ImgRight: TImage;
    ImgLeft: TImage;
    Timer4: TTimer;
    opz: TButton;
    Hide: TButton;
    Stop: TButton;
    Esci: TButton;
    start: TButton;
    procedure Trasparenza1Click(Sender: TObject);
    procedure BcBarPopupMenu1Popup(Sender: TObject);
    procedure ApdComPort1TriggerAvail(CP: TObject; Count: Word);
    procedure FormCreate(Sender: TObject);
    procedure CaricaProgrammi;
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
    procedure EsciClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure startClick(Sender: TObject);
    procedure opzClick(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure infoClick(Sender: TObject);
    procedure StopClick(Sender: TObject);
    procedure OpenClick(Sender: TObject);
    procedure HideClick(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure BcCustomDrawModule1DrawMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState; ABarVisible: Boolean; var DefaultDraw: Boolean);
    procedure BcCustomDrawModule1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
    procedure BcBarPopupMenu1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
    procedure FormHide(Sender: TObject);
    procedure ApdComPort1TriggerLineError(CP: TObject; Error: Word; LineBreak: Boolean);
    procedure Timer4Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Trasparenza1Click(Sender: TObject);
begin
// Address CF5DC
end;

procedure TForm1.BcBarPopupMenu1Popup(Sender: TObject);
begin
// Address D05A4
end;

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
begin
// Address CD5B8
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Address CD674
end;

procedure TForm1.CaricaProgrammi;
begin
// Address CF42C
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// Address CDF58
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
// Address CDCA4
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
// Address CE770
end;

procedure TForm1.ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
// Address CE8CC
end;

procedure TForm1.EsciClick(Sender: TObject);
begin
// Address CE8FC
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Address CDE8C
end;

procedure TForm1.startClick(Sender: TObject);
begin
// Address CE904
end;

procedure TForm1.opzClick(Sender: TObject);
begin
// Address CEB00
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
// Address CEBE4
end;

procedure TForm1.StopClick(Sender: TObject);
begin
// Address CFA44
end;

procedure TForm1.OpenClick(Sender: TObject);
begin
// Address D01D4
end;

procedure TForm1.HideClick(Sender: TObject);
begin
// Address D01FC
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
// Address D0208
end;

procedure TForm1.BcCustomDrawModule1DrawMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState; ABarVisible: Boolean; var DefaultDraw: Boolean);
begin
// Address D027C
end;

procedure TForm1.BcCustomDrawModule1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
begin
// Address D0504
end;

procedure TForm1.BcBarPopupMenu1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
begin
// Address D054C
end;

procedure TForm1.FormHide(Sender: TObject);
begin
// Address D05D8
end;

procedure TForm1.ApdComPort1TriggerLineError(CP: TObject; Error: Word; LineBreak: Boolean);
begin
// Address D05E8
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
// Address D060C
end;

end.

4°form

unit Messaggi;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Label3: TLabel;
    ok: TButton;
    annulla: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
    procedure okClick(Sender: TObject);
    procedure annullaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
begin
// Address CA4AC
end;

procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
// Address CA584
end;

procedure TForm2.okClick(Sender: TObject);
begin
// Address CA5B4
end;

procedure TForm2.annullaClick(Sender: TObject);
begin
// Address CA5C0
end;

end.

5° form

unit Opzioni;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Spin;
type
  TFSetup = class(TForm)
    Image1: TImage;
    Notebook1: TNotebook;
    Label4: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    EdServerOut: TEdit;
    EdMailDes: TEdit;
    LbGetTick: TLabel;
    SpinOre: TSpinEdit;
    SpinMinuti: TSpinEdit;
    SpinSecondi: TSpinEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    CheckMail: TCheckBox;
    Timer1: TTimer;
    Label8: TLabel;
    SpinTimeCheckMin: TSpinEdit;
    SpinTimeCheckSec: TSpinEdit;
    Label9: TLabel;
    EdMailMit: TEdit;
    PortsComboBox: TComboBox;
    Label11: TLabel;
    Bevel3: TBevel;
    CheckRunWin: TCheckBox;
    CheckAutoStart: TCheckBox;
    CheckResetTime: TCheckBox;
    Timer2: TTimer;
    LabelTick: TLabel;
    EdSubjectSenzaRete: TEdit;
    Label3: TLabel;
    Label12: TLabel;
    Bevel4: TBevel;
    MemoConRete: TMemo;
    CheckDevice: TCheckBox;
    Label10: TLabel;
    EdSubjectConRete: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Bevel1: TBevel;
    testa: TButton;
    indietro: TButton;
    avanti: TButton;
    ok: TButton;
    annulla: TButton;
    log: TButton;
    MemoSenzaRete: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
    procedure annullaClick(Sender: TObject);
    procedure okClick(Sender: TObject);
    procedure EdMailDesEnter(Sender: TObject);
    procedure EdMailDesExit(Sender: TObject);
    procedure CheckMailClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure EdMailMitEnter(Sender: TObject);
    procedure EdMailMitExit(Sender: TObject);
    procedure EdServerOutEnter(Sender: TObject);
    procedure EdServerOutExit(Sender: TObject);
    procedure SpinSecondiChange(Sender: TObject);
    procedure SpinTimeCheckSecChange(Sender: TObject);
    procedure testaClick(Sender: TObject);
    procedure LbGetTickClick(Sender: TObject);
    procedure indietroClick(Sender: TObject);
    procedure logClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FSetup: TFSetup;

implementation

{$R *.DFM}

procedure TFSetup.FormCreate(Sender: TObject);
begin
// Address CB318
end;

procedure TFSetup.Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
// Address CB8DC
end;

procedure TFSetup.annullaClick(Sender: TObject);
begin
// Address CB90C
end;

procedure TFSetup.okClick(Sender: TObject);
begin
// Address CB918
end;

procedure TFSetup.EdMailDesEnter(Sender: TObject);
begin
// Address CBE4C
end;

procedure TFSetup.EdMailDesExit(Sender: TObject);
begin
// Address CBED4
end;

procedure TFSetup.CheckMailClick(Sender: TObject);
begin
// Address CBF54
end;

procedure TFSetup.Timer1Timer(Sender: TObject);
begin
// Address CC02C
end;

procedure TFSetup.EdMailMitEnter(Sender: TObject);
begin
// Address CC36C
end;

procedure TFSetup.EdMailMitExit(Sender: TObject);
begin
// Address CC3F0
end;

procedure TFSetup.EdServerOutEnter(Sender: TObject);
begin
// Address CC46C
end;

procedure TFSetup.EdServerOutExit(Sender: TObject);
begin
// Address CC4EC
end;

procedure TFSetup.SpinSecondiChange(Sender: TObject);
begin
// Address CC564
end;

procedure TFSetup.SpinTimeCheckSecChange(Sender: TObject);
begin
// Address CC568
end;

procedure TFSetup.testaClick(Sender: TObject);
begin
// Address CC56C
end;

procedure TFSetup.LbGetTickClick(Sender: TObject);
begin
// Address CC70C
end;

procedure TFSetup.indietroClick(Sender: TObject);
begin
// Address CC8F0
end;

procedure TFSetup.logClick(Sender: TObject);
begin
// Address CC974
end;

end.