Underlig Integer bug - kan det være rigtigt?

Jeg vil lige høre om det er mig der er skør eller hvad:

eksempel:

Denne virker:

class Test
    Private m_userid As Integer = 0
    Public Sub setUserID(ByVal Value As Integer)
        m_userid = Value       
    End Sub
    Public Function getUserID() As Integer
        Return m_userid
    End Function
end class

class testit
  private oTest as new Test()
  sub start
      oTest.setUserID(-1)
  end sub
end class


MEN hvis jeg sætter
Private m_userid As Integer = -1 (altså -1 i stedet for 0)

Så får jeg en Cast exception... totalt wierd.....

Nogen der kan nikke genkendene til det?