debugging existing random dll

Enclosed is the source code for a random dll. However, there is a bug with the getrandomnumber. If that function is used for than one time in a project, then it does not look like its truly randomized. That needs to be fixed. To see what I mean, create a project, reference the dll, then put a command button on the form. Put this code. Private Sub Command1_Click() Dim randoms As [login to view URL] Set randoms = New [login to view URL] Dim ask1 As Integer 'Dim thislist As [login to view URL] 'Set thislist = [login to view URL](40, 40) 'MsgBox [login to view URL](1) '[login to view URL] [login to view URL](1) & " list" ask1 = [login to view URL](40) [login to view URL] ask1 & " number" 'MsgBox ask1 Set randoms = Nothing End Sub Then after running it, click on the command button. The first time, it looks okay. However, the second time, it always adds a few to it or the same number. That does not look right. This needs to be fixed. The other random functions seem to have the same problem. The dll must remain in C++ and be COM enabled like it is currently. ## Deliverables The compiled dll and the source code for the dll to fix the bug with the getrandomnumber. ## Platform Windows XP Home Edition, Windows 98