few quickys (very simple code)

[mikeytechy]

here is my code as of now...


Sub Timer1_Timer()
Dim color
If Combo2 = normal Then
color = Null
ElseIf Combo2 = Red Then
color = Red:
ElseIf Combo2 = White Then
color = White:
ElseIf Combo2.text = Green Then
color = Green:
ElseIf Combo2.text = purple Then
color = purple:
ElseIf Combo2.text = cyan Then
color = cyan:
ElseIf Combo2.text = glow1 Then
color = glow1:
ElseIf Combo2.text = glow2 Then
color = glow2:
ElseIf Combo2.text = glow3 Then
color = glow3:
ElseIf Combo2.text = flash1 Then
color = flash1:
ElseIf Combo2.text = flash2 Then
color = flash2:
ElseIf Combo2.text = flash3 Then
color = flash3:
ElseIf Combo2.text = glow3 Then
color = glow3:
ElseIf Combo2.text = glow3 Then
color = glow3:
End If

Text3.text = color

Dim text
text = Text1.text
Dim count
count = 1
Dim WScript
Set WScript = CreateObject("Wscript.Shell")
If count < 100 Then
WScript.SendKeys color + text + vbCrLf
count = count + 1
ElseIf count > 99 Then
Timer1.Interval = 0
End If
End Sub


i cant get the color bit to work for some reason, text3 keeps showing up blank..i dunno why

also the timer keeps recreating itself so count = 1 then 2 and then gets recreated at 1 so it wont stop.
sama thing happens for text. i want it to it will stay the same until count = 100

thanks in advance,
mike<P ID="edit"><FONT class="small">Edited by mikeytechy on 04/04/04 07:08.</FONT></P>

[Brf]

You havent declared values for any of your color variables, so they are all null. Therefore your text3.text is going to be set to null.

Your line:
count=1
is setting count to be "1" each time the timer ticks. Without that line it would be set to zero each tick.