home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic .NET - Read Less - Learn More / Visual_Basic.NET_Read_Less_Learn_More_Richard_Bowman_Visual_2002.iso / Resources / Code / Ch8-UsingDelegate / DelegateClass.vb < prev    next >
Text File  |  2001-08-09  |  458b  |  17 lines
  1. Public Class DelegateClass
  2.     Delegate Function Add(ByVal x As Integer, _
  3.         ByVal y As Integer) As Integer
  4.  
  5.     Public Function Multiplier(ByVal number As Integer, _
  6.         ByVal multiply As Integer, _
  7.         ByVal myAddFunction As Add)
  8.  
  9.         Dim x As Integer, answer As Integer
  10.         For x = 1 To multiply
  11.             answer = myAddFunction.Invoke(answer, number)
  12.         Next
  13.  
  14.         Return answer
  15.     End Function
  16. End Class
  17.