Private Sub lstID_Click()
Dim ResId As Long
ResId = lstID.Text
With picVorschau
    .Picture = VB.LoadResPicture(ResId, 0)
    .Picture.Height = picVorschau.Height
    .Picture.Width = picVorschau.Width
End With

Gr??e

Hoffi

"Dummheit ist keine Schande. Hauptsache man h?lt den Mund dabei."
(Werner Mitsch, dt. Aphoristiker, 1722-1873)