این تیکه کد در visual studio است.معادل ان در visual basic رو می خواستم...

[elham99]

Praivate sub Timer4_Tick(ByVal sender As system.object,byval e as system.eventArgs) Handles Timer4Tick

Dim max as integer = 80

Dim rnd as New Random

Dim rand as integer =rnd.next (1,max +1)

Dim number (max -1) as integer 

Dim i as integer =1

for i=0 to max - 1

    if  number (i) = rand Then

         rand=rnd.next (1,max +1)

         i=-1

    elseif number(i) = 0 then     

         number(i) =rand

         rand=rnd.next (1,max +1)

         if  i=max-1 then

        exit for 



        end if

        i=-1

    end if

       next 

             Timer4.Interval=number(i)

       i+=1

call Image()

end Sub