title: excel vba userform picture change on click
body: <p>I made a userform with 10 * 4 spaces for pictures("set11", "set12", ...). At the beginning they are empty. When I click on one of the pictures they should be reset by a random picture(function getRandomPath).</p>
  
  <p>The sub "clicked" works if I use a Button(start) to click. If I click a picture nothing happens. When I now click again on the Button(start), the before clicked pictures don't change no more.</p>
  
  <p>Here is the relevant code:</p>
  
  <pre><code>Private Sub set11_Click() 
      Call clicked("1", "1") '*doesn't work*
  End Sub 
  
  Private Sub set12_Click() 
      Call clicked("1", "2") '*doesn't work*
  End Sub 
  
  Private Sub set13_Click() 
      Call clicked("1", "3") '*doesn't work*
  End Sub 
  
  Private Sub set14_Click() 
      Call clicked("1", "4") '*doesn't work*
  End Sub 
  
  Private Sub clicked(row As String, column As String) 
      Controls("set" &amp; row &amp; column).Picture = LoadPicture(getRandomPfad()) 
  End Sub
  
  Private Sub start_Click() 
      Call clearpictures 
      set11.Picture = LoadPicture(getRandomPfad()) '*works*
      Controls("set12").Picture = LoadPicture(getRandomPfad()) '*works*
      Call clicked("1", "3") '*works*
  End Sub
  
  Private Function getRandomPfad()
      Dim random As Integer
      random = Int(6 * Rnd + 1)
      Select Case random
          Case Is = 1
              getRandomPfad = "U:\MMpic\Green.jpg"
          Case Is = 2
              getRandomPfad = "U:\MMpic\Blue.jpg"
          Case Is = 3
              getRandomPfad = "U:\MMpic\Yellow.jpg"
          Case Is = 4
              getRandomPfad = "U:\MMpic\Pink.jpg"
          Case Is = 5
              getRandomPfad = "U:\MMpic\Orange.jpg"
          Case Is = 6
              getRandomPfad = "U:\MMpic\Red.jpg"
      End Select
  End Function
  </code></pre>
  
  <p>I hope you can help me.</p>