VB Code:
  1. FileListbox1.Pattern="*.txt"