Imports System

Public Class Class1

    Public Sub DoSomething()

        Console.WriteLine("Hello World")

    End Sub

    private Sub PrivateSomething()

        Console.WriteLine("Private!")

    end sub

​

    Sub UnknownPrivacy()

        Console.WriteLine("Can you access me?")

    end sub

​

End Class

​

Public Module Module1

    Public Sub Main()

        dim c as new Class1()

        c.DoSomething()

        'c.PrivateSomething()

        c.UnknownPrivacy()

    End Sub

End Module