The Interface
Code:
public interface face
sub eye(..)
property weep(..) as integer
end interface
2 class implementing the interface
Class1
Code:
public class c1
implements face
sub eye(..) implements face.eye
....
end sub
public property weep() as integer implements face.weep
get
...
end get
set(byval a as integer)
...
end set
end property
end class
Class2
Code:
public class c2
implements face
sub eye(..)as integer implements face.eye
....
end sub
public property weep() as integer implements face.weep
get
...
end get
set(byval a as integer)
...
end set
end property
end class
testing the interface
Code:
private sub form1_load(......
dim c1_1 as new c1
c1_1.weep=12
c1_1.eye(3)
dim c2_1 as new c2
c2_1.weep=4
c2_1.eye(2)
end sub