Sub DownloadDatei(ByVal strURL As String, ByVal strDateiPfad As String, _
      ByRef objProzent As Integer, ByRef objSpeed As Object)
        If TypeOf (objSpeed) Is ProgressBar Then
            CType(objSpeed, ProgressBar).Value = objProzent
        ElseIf TypeOf (objSpeed) Is TextBox Then
            CType(objSpeed, TextBox).Text = objProzent
        End If
    End Sub