Private Sub Text1_KeyPres(KeyAscii As Integer)
  ' Erlaubte Zeichen
  Const sChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  If InStr(sChars, UCase$(KeyAscii)) = 0 And KeyAscii <> 8 Then KeyAscii = 0
End Sub

On Error Resume Next
Cdlg.InitDir = "C:\" 
Cdlg.Filter = "Bildateien (*.jpg, *.gif, *.bmp)|*.jpg;*.gif;*.bmp" 
Cdlg.Action = 1 
If Err = 0 Then
  picklient.Picture = LoadPicture(Cdlg.FileName) 
End If
On Error Goto 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de