Private Sub txtHidden_Change()
 
  ' Fortschritt grafisch anzeigen
  Dim lngProgress As Long
  Dim lngTotal As Long
  Dim sData() As String
  Dim iProz As Long
 
  sData = Split(txthidden.Text, " ")
  lngProgress = Val(sData(0))
  lngTotal = Val(sData(2))
  iProz = Int(lngProgress / lngTotal * 100 + 0.5)
  ProgressBar1.Value = iProz  DoEvents
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de