Namespace

Tempat penyimpanan kelas-kelas

Contoh penggunaan namespace

Namespace pekerjaanmanusia
    Public Class Petani
        Public luaslahan As Integer = Nothing
        Sub jumlahlahan(ByVal luas)
            luaslahan = luas
        End Sub
    End Class

    Public Class Programmer
        Public bahasaprogram As String = Nothing
        Sub bahasayangdikuasai(ByVal nama)
            bahasaprogram = nama
        End Sub
    End Class
End Namespace

Module Module1
    Dim Budi As New pekerjaanmanusia.Programmer
    Dim tardo As New pekerjaanmanusia.Petani
    Sub Main()
        Budi.bahasaprogram = "C"
        Console.WriteLine(Budi.bahasaprogram)
        Console.ReadLine()

        tardo.luaslahan = 100
        Console.WriteLine("Luas lahan tardo: " & tardo.luaslahan & " " & "Hektar")
        Console.ReadLine()
    End Sub

End Module