Re: vb6

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

"tomS" <tomS@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:50FB33A6-24EA-4AC5-96AE-CAF23641BA46@xxxxxxxxxxxxxxxx
>
> Thanks that works good. There is one more thing I m tring to do and thats
> to be able to index each picture in the array
> once each time I click the image2 box,meaning click box once ,first
> pic,click again second pic etc.

Very similar code.

> Private Sub Image1_Click(Index As Integer) 'untested air code
> Dim iElement As Integer
> iElement = Index + 1
> If iElement > Image1.UBound Then
> iElement = 0
> End If
> Debug.Print "Showing image #" & iElement
> Image2.Picture = Image1(iElement).Picture
> End If


--
Ken Halter - MS-MVP-VB - http://www.vbsight.com
Sign up now to help keep VB support alive - http://classicvb.org/petition
Please keep all discussions in the groups..


.