Sub Display_Money(Moneystring As String)
  n = 1
  For i = 1 To Len(Moneystring) Step 2
    Bildwert = Mid(Moneystring, i, 2)
    Select Case Bildwert
      Case "A1"
        Load Picture1(n)
        Picture1(n).Image = LoadPicture("500€.bmp")
        n = n + 1
      Case 2
        '.....
        'analog weiterausfüllen
    End Select
    If n = 1 Then
      Picture1(n).Left = 100
      Picture1(n).Top = 100
      'Hier natürlich die richtigen werte setzen
    Else
      Picture1(n).Left = Picture1(n - 1).Left + Picture1(n - 1).Width
      Picture1(n).Top = 100
    End If
    Picture1(n).Visible = True
  Next
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)