_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Private Sub LblLetztName_Click(Index As Integer)
 TxtLetztName.Text = Left$(LblLetztName(Index).Caption, 1)   'K wird von Kevin 
 ' abgetrennt
End Sub

Private Sub LblABC_Click(Index As Integer)     'Das K sollte dann das hier 
' ausführen
 FileBilderKlein.Path = App.Path & "\Pictures\Small\" & smb & "\" & LblABC( _
   Index).Caption
 For llx = 1 To PicKlein.UBound
  Unload PicKlein(llx): Unload LblName(llx)
 Next
 For llx = 0 To FileBilderKlein.ListCount - 1
  If llx > 0 Then Load PicKlein(llx)
  With PicKlein(llx)
      .Left = PicKlein(0).Left + (.Width + 50) * (llx Mod 15): .Top = PicKlein( _
        0).Top: .Visible = True
       FileBilderKlein.ListIndex = llx
      .Picture = LoadPicture(FileBilderKlein.Path & "\" & _
        FileBilderKlein.FileName)
  End With
  If llx > 0 Then Load LblName(llx)
  With LblName(llx)
      .Left = LblName(0).Left + (.Width + 50) * (llx Mod 15): .Top = LblName( _
        0).Top: .Visible = True
       jp = FileBilderKlein.List(llx)
      .Caption = Mid(jp, 1, Len(jp) - 4)
  End With
 Next
End Sub

Dim Index As Integer
 
Index = Asc(txtLetztName.Text) - 65
LblABC_Click Index

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de