gistfile1.bas

Public Class CrazyVBTypingTests
    <Test()>
    Public Sub Test_crazy_crap()
        Dim anObject As New Object

        anObject = New DoStuff

        'This compiles, WTH?
        Dim someInteger As Integer = anObject.GiveMeAnInteger()
        someInteger.ShouldEqual(1)
    End Sub
End Class

Public Class DoStuff
    Public Function GiveMeAnInteger() As Integer
        Return 1
    End Function
End Class