农业银行账户 卡异常:翻译程序？

谁帮我把下面程序翻译成VB语言！！！！！！！！！！！！
unit ControlUnit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp, Spin, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
ClientSocket1: TClientSocket; //客户端套接字
Button1: TButton; //连接按钮
Label1: TLabel; //显示连接成功
Button2: TButton; //定位按钮
SpinEdit1: TSpinEdit; //定位数据
Button3: TButton; //运行按钮
Button4: TButton; //停止按钮
LabeledEdit1: TLabeledEdit; //服务器IP
LabeledEdit2: TLabeledEdit; //端口号
procedure Button1Click(Sender: TObject);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
dd:record //用于发送命令的结构体
scanid, //起始标识符
chnnel, //通道号
command, //命令
pos:string[7]; //定点的位置
end;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //连接按钮事件
begin
ClientSocket1.Address:=LabeledEdit1.Text; //确定服务器IP
ClientSocket1.port:=strtoint(LabeledEdit2.Text); //确定端口号
ClientSocket1.Active:=true; //连接命令
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket); //连接成功事件
begin
label1.Caption:='连接成功'; //显示连接成功
end;

procedure TForm1.Button2Click(Sender: TObject); //定点扫描按钮事件
begin
dd.scanid:='SCANNER'; //填写起始标识符
DD.chnnel:='0000001'; //填写通道号
DD.command:='FIX'; //填写命令
DD.pos:=inttostr(spinedit1.Value); //填写定点的位置
ClientSocket1.Socket.SendBuf(dd,32); //发送数据
end;

procedure TForm1.Button3Click(Sender: TObject); //运行扫描架按钮事件
begin
dd.scanid:='SCANNER'; //填写起始标识符
DD.chnnel:='0000001'; //填写通道号
DD.command:='RUN'; //填写命令
ClientSocket1.Socket.SendBuf(dd,32); //发送数据

end;

procedure TForm1.Button4Click(Sender: TObject); //停止扫描架按钮事件
begin
dd.scanid:='SCANNER'; //填写起始标识符
DD.chnnel:='0000001'; //填写通道号
DD.command:='STOP'; //填写命令
ClientSocket1.Socket.SendBuf(dd,32); //发送数据

end;

end.
源程序为DELPHI 翻译成随便什么语言都成！！