Jeg kan ikke se at der sq være noget problem:
Har prøvet med flg. - men det kan da være jeg har misforstået hvad du mente
!?
-----------------------------------
Class1.cls
-----------------------------------
Option Explicit
Public Function test(ByRef iTest As Integer)
End Function
-----------------------------------
Class2.cls
-----------------------------------
Option Explicit
Implements Class1
Public Function Class1_test(ByRef iTest As Integer)
iTest = iTest - 1
End Function
-----------------------------------
form1.frm (m/ command button: CommandButton1
-----------------------------------
Private Sub Command1_Click()
Dim abc As Class2
Set abc = New Class2
Dim i As Integer
i = 10
abc.Class1_test i
MsgBox i
End Sub
"Stefan Kristensen" <a@a> wrote in message
news:3db40779$0$34845$edfadb0f@dspool01.news.tele.dk...
> Hej NG.
>
> Jeg vil gerne kalde en funktion Getxy(x, y), hvor Getxy er defineret som
> Getxy(ByRef x as integer, ByRef y as integer). Det virker også fint, men
> hvis jeg vil definere Getxy i en abstrakt klasse og så implementer denne
> klasse i en enden klasse, forsvinder ByRef fra definitionen i den nye
> klasse.
> Kan man ikke bruge ByRef i forbindelse med nedarvning?
>
> mvh
> Stefan
>
>