Código de ejemplo de vb.NET
Publicado el: 20/Sep/2000
Fichero: HelloObj.vb (incluido en el .NET Framework SDK Technology Preview)
' Imports System Imports System.Text Imports Microsoft.VisualBasic Namespace HelloWorld Public Class HelloObjVB Private _name As String Public Sub New() MyBase.New() _name = "" End Sub Public Property FirstName As String Get return _name End Get Set _name = Value End Set End Property Public Function SayHello() As String Dim SB As StringBuilder SB = New StringBuilder("Hello ") If Not (_name = "") SB.Append(_name) Else SB.Append("World") End If SB.Append("!") Return SB.ToString() End Function End Class End Namespace