‘this is an example of nested if - else conditions

Dim Count As Integer

Private Sub cmdPick_Click()

Count = Count + 1

If (Count = 1) Then

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

ElseIf (Count = 2) Then

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

ElseIf (Count = 3) Then

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

End If

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