程序转换(50分)

请各位高手帮我把下面这段Delphi程序转化为VB程序：
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.begin
Doc;
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := 25;
Printer.Canvas.TextOut(10,20,'abc');
Printer.EndDoc;
end;
先谢过各位了！

Private Sub Command1_Click()

Printer.FontName = "宋体"
Printer.FontSize = 25
Printer.CurrentX = 10
Printer.CurrentY = 20
Printer.Print "abc"
Printer.EndDoc
End Sub

接受答案了.