HELP!!!! With VB coding ..shiny pennies as reward!!!

I have a prject in VB...and i need to incorporate a simple timer into it...

Basically when i click a button, something a little black frame should change into a vbblue color....it should STAY blue as so dictated by the timer.interval

Now when the timer is called when it is near the end of the button.click subroutine, everything is fine...but when i put it this little event in a loop (displaying other colors that are in an array per timer interval) then the timer goes freaky. Basically I can't even see the COLOR because it flashed on so fast and the vbblack kicked in...

help!

i have attached my tiny program and the form...if u just run it and click on the next in series button, u can see that the color doesn't even light UP(the NEXT color in the array lights up, but not the first one, which is supposed to repeat the first color that showed up when start button was pushed..)...but if u do step by step, my logic works! (it's just that my timing is off and the light flashed on and off so fast u couldn't see the color...)

HELP!!! someone...i will mail them shiny new pennies in the mail if u help out a college bound novice programmer...

It's due by midnight tonight!!!!
:eek: :eek:

first of all u dont have to if...then the index, just use box(index)

and ummmmm, nothings wrong for me

VB Code:

Dim BoxArray(20) As Integer
Dim UserArray(20) As Integer
Dim GlobalMax As Integer
Dim GlobalUserMax
Dim GlobalOldColor
Dim NextGo As Boolean
 
 
Private Sub Box_Click(Index As Integer)
Dim Count
 
For Count = 1 To GlobalMax
    If Index = 0 Then
        Box(0).BackColor = vbRed
        
    End If
    If Index = 1 Then
        Box(1).BackColor = vbBlue
    End If
    If Index = 2 Then
        Box(2).BackColor = vbYellow
    End If
Next Count
 
End Sub
 
Private Sub Form_Load()
Box(0).BackColor = vbBlack
Box(1).BackColor = vbBlack
Box(2).BackColor = vbBlack
Min.Caption = HScroll1.Min / 10
Max.Caption = HScroll1.Max / 10
End Sub
 
Private Sub GuessCommand_Click()
Dim Count
For Count = 1 To GlobalMax
Next Count
    
End Sub
 
Private Sub HScroll1_Change()
Time.Caption = HScroll1.Value / 10
TimerBlack.Interval = HScroll1.Value * 100
 
End Sub
 
Private Sub StartCommand_Click()
TimerBlack.Interval = Val(HScroll1.Value * 100)
Dim BoxColor As Integer
Randomize
GlobalMax = 0
GlobalUserUserMax = 0
BoxColor = Fix(3 * Rnd)
BoxArray(GlobalMax) = BoxColor
ColorTheBox BoxColor
 
End Sub
 
Private Sub NextCommand_Click()
TimerBlack.Interval = Val(HScroll1.Value * 100)
Dim Count As Integer
Dim BoxColor As Integer
 
    Randomize
 
    For Count = 0 To GlobalMax
        
        BoxColor = BoxArray(Count)
        ColorTheBox BoxColor
        
        Do: DoEvents: Loop Until NextGo = True
        NextGo = False
    
    Next Count
 
Call TimerBlack_Timer
GlobalMax = GlobalMax + 1
BoxColor = Fix(3 * Rnd)
BoxArray(GlobalMax) = BoxColor
ColorTheBox BoxColor
    
 
End Sub
 
Public Function ColorTheBox(WhichBox) As Integer
 
 
Select Case WhichBox
 
Case Is = 0
 
Box(0).BackColor = vbRed
TimerBlack.Enabled = True
 
 
Case Is = 1
 
Box(1).BackColor = vbBlue
TimerBlack.Enabled = True
 
 
Case Is = 2
 
Box(2).BackColor = vbYellow
TimerBlack.Enabled = True
 
 
End Select
 
End Function
 
 
Private Sub TimerBlack_Timer()
Box(0).BackColor = vbBlack
Box(1).BackColor = vbBlack
Box(2).BackColor = vbBlack
TimerBlack.Enabled = False
TimerDelay.Enabled = True
End Sub
 
Private Sub TimerDelay_Timer()
    NextGo = True
    TimerDelay.Enabled = False
End Sub

Augment your code like that. Then, you'll need to fix the "my guess function yourself, I don't know where you were going with that. But your original problem has been solved, just add a timer called TimerDelay, Disable it, and set its interval to something like 250ms.