I made a randomization function for my regen and it just makes all the things that respawn in a diagonal line across the form... the code is this:

```
Public Function RandomNumber(ByVal MaxNumber As Integer, _
Optional ByVal MinNumber As Integer = 0) As Integer

    'initialize random number generator
    Dim r As New Random(System.DateTime.Now.Millisecond)

    'if passed incorrect arguments, swap them
    'can also throw exception,return 0

    If MinNumber > MaxNumber Then
        Dim t As Integer = MinNumber
        MinNumber = MaxNumber
        MaxNumber = t
    End If

    Return r.Next(MinNumber, MaxNumber)

End Function

```

and the code for 1 regen is this:

```
'regen coins
        z = coin1
```

 `z.Location = zloc
 z.Hide()
 zloc = New Point(RandomNumber(playspace.Width), RandomNumber(playspace.Height))
 If zloc.Y > 595 Then
 zloc = New Point(RandomNumber(playspace.Width), RandomNumber(playspace.Height))
 End If
 z.Location = zloc
 z.Show()`
I do not know why it just makes a diagonal line but help would be VERY appreciated!