good syntax with if statements

WindAndWaves wrote:
[color=blue]
> Hi Gurus
>
> What is the best way to write the following code:
>
> If REC = -1 Then
> For I = 0 To Ctl.ListCount - 1
> Ctl.Selected(I) = bNew
> Next I
> Else
> For I = 0 To Ctl.ListCount - 1
> If Ctl.ItemData(I) = REC Then
> Ctl.Selected(I) = bNew
> End If
> Next I
> End If
>
> as you can see, there is some repetition in the code. How do I prevent
> typing the same code twice???
>
>[/color]
For I = 0 To Ctl.ListCount - 1
If Ctl.ItemData(I) = REC or REC = -1 Then
Ctl.Selected(I) = bNew
End If
Next I


--
Error reading sig - A)bort R)etry I)nfluence with large hammer