home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Personal Organiser / Mainmod.bas < prev    next >
Encoding:
BASIC Source File  |  2000-08-12  |  320 b   |  17 lines
  1. Attribute VB_Name = "Module2"
  2. Type node
  3.      first As String
  4.      telno As String
  5.      Email As String
  6. End Type
  7. Public smax As Integer
  8. Public sair() As node
  9. Function aniswap(s1 As Integer, s2 As Integer)
  10.     Dim temp As node
  11.     temp = sair(s1)
  12.     sair(s1) = sair(s2)
  13.     sair(s2) = temp
  14. End Function
  15.  
  16.  
  17.