Private Sub Command1_Click()
  Static ClickCount As Long
 
  ClickCount = ClickCount + 1
  If ClickCount > 3 Then ClickCount = 1
 
  Select Case ClickCount
    Case 1
      ' Bild 1 zuordnen
 
    Case 2
      ' Bild 2 zuordnen
 
    Case 3
      ' Bild 3 zuordnen
 
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de