Advertisement
Guest User

Untitled

a guest
Aug 18th, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. Public Interface Inter
  2. Sub DoSomething()
  3. End Interface
  4.  
  5. Public Class A
  6. Implements Inter
  7. Public Sub DoSomething() Implements Inter.DoSomething()
  8. Console.WriteLine("do something myan")
  9. End Sub
  10. End Class
  11.  
  12. Public Class B
  13. Private _inter As Inter
  14.  
  15. Public Sub New(paramInter As Inter)
  16. Me._inter = paramInter
  17. End Sub
  18.  
  19. Public Sub Start()
  20. Me._inter.DoSomething()
  21. End Sub
  22. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement