🚀 go-pugleaf

Ter inlichting, SP's zijn cumulatief, dus je moet enkel het meest recente
installeren.

Voor de rest heb ik geen flauw idee wat jouw probleem kan veroorzaken.
Ik stuur je per e-mail een op mijn systeem gecompileerde versie, die ik
eerst ook op een "proper" Win2000 systeem zal uittesten...

Luc

"Bockx Danny" <danny.bockx@skynet.be> wrote in message
news:95340g$6rk$1@news1.skynet.be...
> Sorry.  Dit weekend heb ik de service packs van 2 tot en met 4
> ge�nstalleerd, maar ik kan nog steeds niet error trappen.  Bestaat er
> eventueel een patch ?  Zou het een bepaalde "dll" kunnen zijn ?  Een
> "dll" dat Win2000 gebruikt en weigert aan te passen bij het installeren.
>
> Groeten,
> Danny
>
>
> >Bij mij werkt dit op NT (de voorganger van Win 2000) perfect onder VB6,
> >Service Pack 4.
> >Welk SP heb jij ge�nstalleerd?
> >
> >Luc
> >
> >"Bockx Danny" <danny.bockx@skynet.be> wrote in message
> >news:94p1ur$qon$1@news0.skynet.be...
> >> Het volgende voorbeeld is in feite niets waard.  Bovendien kun je dit
> >> via een combinatie van Val() en Str() ook oplossen.  Maar het
> voorbeeld
> >> geeft enkel de Engelse foutboodschap en onderbreekt dus het
> programma.
> >>
> >> Option Explicit
> >>
> >> Sub Main()
> >> On Error GoTo Fout
> >> Dim lStrAntwoord As String
> >> Dim lLngResult As Long
> >> Dim lIntTeller As Integer
> >>
> >>    lLngResult = 0
> >>    For lIntTeller = 1 To 3
> >>      lStrAntwoord = InputBox("Geef een waarde in (" & lIntTeller &
> "):", "Optellen 3 waarden")
> >>      lLngResult = lLngResult + lStrAntwoord
> >>      MsgBox ("Het resultaat (optelling) is : " & lLngResult)
> >>    Next
> >>    Exit Sub
> >> Fout:
> >>    MsgBox ("Sorry, er is een fout gebeurd.  Deze waarde wordt niet
> meegeteld")
> >>    lStrAntwoord = "0"     'ik weet het, dit hoeft niet
> >>    Resume Next
> >> End Sub
>
>
>