'Test.vb
Module Test

    Sub Main()
        Dim object1 As SomeClass = New SomeClass
        Dim object2 As SomeOtherClass = New SomeOtherClass
        object1.Setother(object2)
    End Sub

End Module
