home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD6385632000.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2000-06-01  |  1.3 KB  |  37 lines
  1. Attribute VB_Name = "Module1"
  2. Public M, N, O As Integer
  3. Public Ftrigo As Boolean
  4. Sub sort()
  5. With GraphPlot
  6.     .Label1(0).ForeColor = .Label1(1).ForeColor
  7.     .Label1(0).Caption = .Label1(1).Caption
  8.     .Label1(1).ForeColor = .Label1(2).ForeColor
  9.     .Label1(1).Caption = .Label1(2).Caption
  10.     .Label1(2).ForeColor = .Label1(3).ForeColor
  11.     .Label1(2).Caption = .Label1(3).Caption
  12.     .Label1(3).ForeColor = .Label1(4).ForeColor
  13.     .Label1(3).Caption = .Label1(4).Caption
  14.     .Label1(4).ForeColor = .Label1(5).ForeColor
  15.     .Label1(4).Caption = .Label1(5).Caption
  16.     .Label1(5).ForeColor = .Label1(6).ForeColor
  17.     .Label1(5).Caption = .Label1(6).Caption
  18.     .Label1(6).ForeColor = .Label1(7).ForeColor
  19.     .Label1(6).Caption = .Label1(7).Caption
  20.     .Label1(7).ForeColor = .Label1(8).ForeColor
  21.     .Label1(7).Caption = .Label1(8).Caption
  22.     .Label1(8).ForeColor = .Label1(9).ForeColor
  23.     .Label1(8).Caption = .Label1(9).Caption
  24.     .Label1(9).ForeColor = .Label1(10).ForeColor
  25.     .Label1(9).Caption = .Label1(10).Caption
  26.     .Label1(10).ForeColor = .Label1(11).ForeColor
  27.     .Label1(10).Caption = .Label1(11).Caption
  28.     .Label1(11).ForeColor = .Label1(12).ForeColor
  29.     .Label1(11).Caption = .Label1(12).Caption
  30. End With
  31. End Sub
  32. Sub RndColor()
  33.     M = Int(Rnd * 255)
  34.     N = Int(Rnd * 255)
  35.     O = Int(Rnd * 255)
  36. End Sub
  37.