12 lines
168 B
VB.net
12 lines
168 B
VB.net
|
class ambiguous
|
||
|
|
dim sRule
|
||
|
|
|
||
|
|
public property let rule( x )
|
||
|
|
sRule = x
|
||
|
|
end property
|
||
|
|
|
||
|
|
public default function amb(p1, p2)
|
||
|
|
amb = eval(sRule)
|
||
|
|
end function
|
||
|
|
end class
|