'this is an example of nested if - else conditions

Dim Count As Integer

Private Sub cmdPick_Click()

Count = Count + 1

Select Case Count

Case 1: Image1.Picture = LoadPicture("C:\vb\red.bmp")

Case 2: Image1.Picture = LoadPicture("C:\vb\green.bmp")

Case 3: Image1.Picture = LoadPicture("C:\vb\blue.bmp")

End Select

If (Count = 3) Then

Count = 0

End If

End Sub

Private Sub cmdClear_Click()

Image1.Picture = LoadPicture("C:\vb\white.bmp")

Count = 0

End Sub

Private Sub cmdExit_Click()

End

End Sub