title: Randomize() in vb.net not randomizing properly
body: <p>What is wrong with this code? It is called in groups of four, and always seems to wind up with only two combinations:</p>
  
  <pre><code>Public Function GetRand() As String
          Randomize()
          Dim r As Integer = CInt(Rnd() * 3)
          Select Case r
              Case 0
                  Return str1
              Case 1
                  Return str2
              Case 2
                  Return str3
              Case 3
                  Return str4
              Case Else
                  Return str1
          End Select
      End Function
  </code></pre>
  
  <p>It is returning random strings, but it seems to be returning them in a non-random order?</p>