From fd20c8cc33c1a187d8cc0a123df86fb204cc00d7 Mon Sep 17 00:00:00 2001
From: PerryWerneck <perry.werneck@gmail.com>
Date: Sat, 10 Dec 2016 12:26:53 -0200
Subject: [PATCH] Criando exemplo vb usando apenas a classe de acesso.

---
 Makefile.in              |  6 +++---
 testprograms/vbsample.vb | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 58 insertions(+), 3 deletions(-)
 create mode 100644 testprograms/vbsample.vb

diff --git a/Makefile.in b/Makefile.in
index 7d095ec..a4c303f 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -26,7 +26,7 @@
 
 GLUELIB=lib3270-mono@DLLEXT@
 LIBNAME=pw3270-sharp.dll
-TESTPROGRAM?=vbclass
+TESTPROGRAM?=vbsample
 
 #---[ Configuration values ]-------------------------------------------------------------
 
@@ -76,7 +76,7 @@ $(BINDBG)/%.exe: \
 	testprograms/%.vb \
 	$(BINDBG)/$(LIBNAME)
 
-	@$(VBNC) -debug -out:$@ $<
+	@$(VBNC) -reference:$(BINDBG)/$(LIBNAME) -debug -out:$@ $<
 
 $(BINRLS)/%.exe: \
 	testprograms/%.cs
@@ -131,7 +131,7 @@ pw3270-sharp-@PACKAGE_VERSION@.@host@.zip: \
 		$(BINRLS)/$(LIBNAME) \
 		$(BINRLS)/*.xml \
 		testprograms/sample.cs \
-		testprograms/vbclass.vb \
+		testprograms/vbsample.vb \
 		src/pw3270-sharp/pw3270-sharp.cs \
 		$(BINRLS)/sample.exe
 
diff --git a/testprograms/vbsample.vb b/testprograms/vbsample.vb
new file mode 100644
index 0000000..41975bb
--- /dev/null
+++ b/testprograms/vbsample.vb
@@ -0,0 +1,55 @@
+'
+'  "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
+'  (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
+'  aplicativos mainframe. Registro no INPI sob o nome G3270.
+'
+'  Copyright (C) <2008> <Banco do Brasil S.A.>
+'
+'  Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
+'  os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
+'  Free Software Foundation.
+'
+'  Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
+'  GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
+'  A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
+'  obter mais detalhes.
+'
+'  Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
+'  programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
+'  St, Fifth Floor, Boston, MA  02110-1301  USA
+'
+'  Este programa está nomeado como vbsample.vb e possui - linhas de código.
+'
+'  Contatos:
+'
+'  perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
+'  erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
+'
+
+Imports System
+
+' This module houses the application's entry point.
+Public Module modmain
+
+	' Application's entry point.
+	Sub Main()
+
+		dim host as new pw3270.Session("")
+
+		Console.WriteLine("Using pw3270 version " + host.getVersion() + " revision " + host.GetRevision())
+
+		host.Connect("tn3270://zos.efglobe.com:telnet",10)
+
+		if host.IsConnected() then
+
+			Console.WriteLine("Connected to host")
+
+			Console.WriteLine(host.GetStringAt(14,19,38))
+
+			host.Disconnect()
+			
+		End If
+
+	End Sub
+
+End Module
--
libgit2 0.21.2