wincit/whoison.frm

   1 VERSION 4.00
   2 Begin VB.Form WhoIsOnline
   3    Appearance      =   0  'Flat
   4    BackColor       =   &H00C0C0C0&
   5    BorderStyle     =   3  'Fixed Dialog
   6    Caption         =   "Who is currently online..."
   7    ClientHeight    =   5820
   8    ClientLeft      =   1500
   9    ClientTop       =   1800
  10    ClientWidth     =   8940
  11    ControlBox      =   0   'False
  12    BeginProperty Font
  13       name            =   "MS Sans Serif"
  14       charset         =   0
  15       weight          =   700
  16       size            =   8.25
  17       underline       =   0   'False
  18       italic          =   0   'False
  19       strikethrough   =   0   'False
  20    EndProperty
  21    ForeColor       =   &H80000008&
  22    Height          =   6225
  23    Left            =   1440
  24    LinkTopic       =   "Form1"
  25    MaxButton       =   0   'False
  26    MDIChild        =   -1  'True
  27    MinButton       =   0   'False
  28    ScaleHeight     =   5820
  29    ScaleWidth      =   8940
  30    Top             =   1455
  31    Width           =   9060
  32    Begin VB.Timer WhoRefresh
  33       Left            =   7080
  34       Top             =   5280
  35    End
  36    Begin VB.VScrollBar TheScroll
  37       Height          =   4575
  38       Left            =   8640
  39       TabIndex        =   4
  40       Top             =   600
  41       Width           =   255
  42    End
  43    Begin VB.CommandButton ok_button
  44       Appearance      =   0  'Flat
  45       BackColor       =   &H80000005&
  46       Caption         =   "OK"
  47       Height          =   492
  48       Left            =   7560
  49       TabIndex        =   0
  50       Top             =   5280
  51       Width           =   1332
  52    End
  53    Begin VB.Label MaxUsersDisplay
  54       Alignment       =   2  'Center
  55       Appearance      =   0  'Flat
  56       BackColor       =   &H80000005&
  57       BackStyle       =   0  'Transparent
  58       Caption         =   "Total number of users:"
  59       BeginProperty Font
  60          name            =   "MS Sans Serif"
  61          charset         =   0
  62          weight          =   700
  63          size            =   13.5
  64          underline       =   0   'False
  65          italic          =   0   'False
  66          strikethrough   =   0   'False
  67       EndProperty
  68       ForeColor       =   &H80000008&
  69       Height          =   495
  70       Left            =   0
  71       TabIndex        =   41
  72       Top             =   5280
  73       Width           =   7455
  74    End
  75    Begin VB.Label Label3
  76       Alignment       =   2  'Center
  77       Appearance      =   0  'Flat
  78       BackColor       =   &H80000005&
  79       BackStyle       =   0  'Transparent
  80       Caption         =   "Room Name"
  81       BeginProperty Font
  82          name            =   "MS Sans Serif"
  83          charset         =   0
  84          weight          =   700
  85          size            =   13.5
  86          underline       =   0   'False
  87          italic          =   0   'False
  88          strikethrough   =   0   'False
  89       EndProperty
  90       ForeColor       =   &H80000008&
  91       Height          =   495
  92       Left            =   5520
  93       TabIndex        =   5
  94       Top             =   120
  95       Width           =   3135
  96    End
  97    Begin VB.Label Label2
  98       Alignment       =   2  'Center
  99       Appearance      =   0  'Flat
 100       BackColor       =   &H80000005&
 101       BackStyle       =   0  'Transparent
 102       Caption         =   "User Name"
 103       BeginProperty Font
 104          name            =   "MS Sans Serif"
 105          charset         =   0
 106          weight          =   700
 107          size            =   13.5
 108          underline       =   0   'False
 109          italic          =   0   'False
 110          strikethrough   =   0   'False
 111       EndProperty
 112       ForeColor       =   &H80000008&
 113       Height          =   495
 114       Left            =   1440
 115       TabIndex        =   6
 116       Top             =   120
 117       Width           =   4095
 118    End
 119    Begin VB.Label Label1
 120       Alignment       =   2  'Center
 121       Appearance      =   0  'Flat
 122       BackColor       =   &H80000005&
 123       BackStyle       =   0  'Transparent
 124       Caption         =   "Session"
 125       BeginProperty Font
 126          name            =   "MS Sans Serif"
 127          charset         =   0
 128          weight          =   700
 129          size            =   13.5
 130          underline       =   0   'False
 131          italic          =   0   'False
 132          strikethrough   =   0   'False
 133       EndProperty
 134       ForeColor       =   &H80000008&
 135       Height          =   495
 136       Left            =   120
 137       TabIndex        =   40
 138       Top             =   120
 139       Width           =   1095
 140    End
 141    Begin VB.Label RoomName
 142       Alignment       =   2  'Center
 143       Appearance      =   0  'Flat
 144       BackColor       =   &H00C0C0C0&
 145       BeginProperty Font
 146          name            =   "MS Sans Serif"
 147          charset         =   0
 148          weight          =   400
 149          size            =   12
 150          underline       =   0   'False
 151          italic          =   0   'False
 152          strikethrough   =   0   'False
 153       EndProperty
 154       ForeColor       =   &H80000008&
 155       Height          =   375
 156       Index           =   11
 157       Left            =   5640
 158       TabIndex        =   39
 159       Top             =   4680
 160       Width           =   2895
 161    End
 162    Begin VB.Label UserName
 163       Alignment       =   2  'Center
 164       Appearance      =   0  'Flat
 165       BackColor       =   &H00C0C0C0&
 166       BeginProperty Font
 167          name            =   "MS Sans Serif"
 168          charset         =   0
 169          weight          =   400
 170          size            =   12
 171          underline       =   0   'False
 172          italic          =   0   'False
 173          strikethrough   =   0   'False
 174       EndProperty
 175       ForeColor       =   &H80000008&
 176       Height          =   375
 177       Index           =   11
 178       Left            =   1440
 179       TabIndex        =   38
 180       Top             =   4680
 181       Width           =   3975
 182    End
 183    Begin VB.Label SessionNum
 184       Alignment       =   2  'Center
 185       Appearance      =   0  'Flat
 186       BackColor       =   &H00C0C0C0&
 187       BeginProperty Font
 188          name            =   "MS Sans Serif"
 189          charset         =   0
 190          weight          =   400
 191          size            =   12
 192          underline       =   0   'False
 193          italic          =   0   'False
 194          strikethrough   =   0   'False
 195       EndProperty
 196       ForeColor       =   &H80000008&
 197       Height          =   375
 198       Index           =   11
 199       Left            =   120
 200       TabIndex        =   37
 201       Top             =   4680
 202       Width           =   1095
 203    End
 204    Begin VB.Label RoomName
 205       Alignment       =   2  'Center
 206       Appearance      =   0  'Flat
 207       BackColor       =   &H00C0C0C0&
 208       BeginProperty Font
 209          name            =   "MS Sans Serif"
 210          charset         =   0
 211          weight          =   400
 212          size            =   12
 213          underline       =   0   'False
 214          italic          =   0   'False
 215          strikethrough   =   0   'False
 216       EndProperty
 217       ForeColor       =   &H80000008&
 218       Height          =   375
 219       Index           =   10
 220       Left            =   5640
 221       TabIndex        =   36
 222       Top             =   4320
 223       Width           =   2895
 224    End
 225    Begin VB.Label UserName
 226       Alignment       =   2  'Center
 227       Appearance      =   0  'Flat
 228       BackColor       =   &H00C0C0C0&
 229       BeginProperty Font
 230          name            =   "MS Sans Serif"
 231          charset         =   0
 232          weight          =   400
 233          size            =   12
 234          underline       =   0   'False
 235          italic          =   0   'False
 236          strikethrough   =   0   'False
 237       EndProperty
 238       ForeColor       =   &H80000008&
 239       Height          =   375
 240       Index           =   10
 241       Left            =   1440
 242       TabIndex        =   35
 243       Top             =   4320
 244       Width           =   3975
 245    End
 246    Begin VB.Label SessionNum
 247       Alignment       =   2  'Center
 248       Appearance      =   0  'Flat
 249       BackColor       =   &H00C0C0C0&
 250       BeginProperty Font
 251          name            =   "MS Sans Serif"
 252          charset         =   0
 253          weight          =   400
 254          size            =   12
 255          underline       =   0   'False
 256          italic          =   0   'False
 257          strikethrough   =   0   'False
 258       EndProperty
 259       ForeColor       =   &H80000008&
 260       Height          =   375
 261       Index           =   10
 262       Left            =   120
 263       TabIndex        =   34
 264       Top             =   4320
 265       Width           =   1095
 266    End
 267    Begin VB.Label RoomName
 268       Alignment       =   2  'Center
 269       Appearance      =   0  'Flat
 270       BackColor       =   &H00C0C0C0&
 271       BeginProperty Font
 272          name            =   "MS Sans Serif"
 273          charset         =   0
 274          weight          =   400
 275          size            =   12
 276          underline       =   0   'False
 277          italic          =   0   'False
 278          strikethrough   =   0   'False
 279       EndProperty
 280       ForeColor       =   &H80000008&
 281       Height          =   375
 282       Index           =   9
 283       Left            =   5640
 284       TabIndex        =   33
 285       Top             =   3960
 286       Width           =   2895
 287    End
 288    Begin VB.Label UserName
 289       Alignment       =   2  'Center
 290       Appearance      =   0  'Flat
 291       BackColor       =   &H00C0C0C0&
 292       BeginProperty Font
 293          name            =   "MS Sans Serif"
 294          charset         =   0
 295          weight          =   400
 296          size            =   12
 297          underline       =   0   'False
 298          italic          =   0   'False
 299          strikethrough   =   0   'False
 300       EndProperty
 301       ForeColor       =   &H80000008&
 302       Height          =   375
 303       Index           =   9
 304       Left            =   1440
 305       TabIndex        =   32
 306       Top             =   3960
 307       Width           =   3975
 308    End
 309    Begin VB.Label SessionNum
 310       Alignment       =   2  'Center
 311       Appearance      =   0  'Flat
 312       BackColor       =   &H00C0C0C0&
 313       BeginProperty Font
 314          name            =   "MS Sans Serif"
 315          charset         =   0
 316          weight          =   400
 317          size            =   12
 318          underline       =   0   'False
 319          italic          =   0   'False
 320          strikethrough   =   0   'False
 321       EndProperty
 322       ForeColor       =   &H80000008&
 323       Height          =   375
 324       Index           =   9
 325       Left            =   120
 326       TabIndex        =   31
 327       Top             =   3960
 328       Width           =   1095
 329    End
 330    Begin VB.Label RoomName
 331       Alignment       =   2  'Center
 332       Appearance      =   0  'Flat
 333       BackColor       =   &H00C0C0C0&
 334       BeginProperty Font
 335          name            =   "MS Sans Serif"
 336          charset         =   0
 337          weight          =   400
 338          size            =   12
 339          underline       =   0   'False
 340          italic          =   0   'False
 341          strikethrough   =   0   'False
 342       EndProperty
 343       ForeColor       =   &H80000008&
 344       Height          =   375
 345       Index           =   8
 346       Left            =   5640
 347       TabIndex        =   30
 348       Top             =   3600
 349       Width           =   2895
 350    End
 351    Begin VB.Label UserName
 352       Alignment       =   2  'Center
 353       Appearance      =   0  'Flat
 354       BackColor       =   &H00C0C0C0&
 355       BeginProperty Font
 356          name            =   "MS Sans Serif"
 357          charset         =   0
 358          weight          =   400
 359          size            =   12
 360          underline       =   0   'False
 361          italic          =   0   'False
 362          strikethrough   =   0   'False
 363       EndProperty
 364       ForeColor       =   &H80000008&
 365       Height          =   375
 366       Index           =   8
 367       Left            =   1440
 368       TabIndex        =   29
 369       Top             =   3600
 370       Width           =   3975
 371    End
 372    Begin VB.Label SessionNum
 373       Alignment       =   2  'Center
 374       Appearance      =   0  'Flat
 375       BackColor       =   &H00C0C0C0&
 376       BeginProperty Font
 377          name            =   "MS Sans Serif"
 378          charset         =   0
 379          weight          =   400
 380          size            =   12
 381          underline       =   0   'False
 382          italic          =   0   'False
 383          strikethrough   =   0   'False
 384       EndProperty
 385       ForeColor       =   &H80000008&
 386       Height          =   375
 387       Index           =   8
 388       Left            =   120
 389       TabIndex        =   28
 390       Top             =   3600
 391       Width           =   1095
 392    End
 393    Begin VB.Label RoomName
 394       Alignment       =   2  'Center
 395       Appearance      =   0  'Flat
 396       BackColor       =   &H00C0C0C0&
 397       BeginProperty Font
 398          name            =   "MS Sans Serif"
 399          charset         =   0
 400          weight          =   400
 401          size            =   12
 402          underline       =   0   'False
 403          italic          =   0   'False
 404          strikethrough   =   0   'False
 405       EndProperty
 406       ForeColor       =   &H80000008&
 407       Height          =   375
 408       Index           =   7
 409       Left            =   5640
 410       TabIndex        =   27
 411       Top             =   3240
 412       Width           =   2895
 413    End
 414    Begin VB.Label UserName
 415       Alignment       =   2  'Center
 416       Appearance      =   0  'Flat
 417       BackColor       =   &H00C0C0C0&
 418       BeginProperty Font
 419          name            =   "MS Sans Serif"
 420          charset         =   0
 421          weight          =   400
 422          size            =   12
 423          underline       =   0   'False
 424          italic          =   0   'False
 425          strikethrough   =   0   'False
 426       EndProperty
 427       ForeColor       =   &H80000008&
 428       Height          =   375
 429       Index           =   7
 430       Left            =   1440
 431       TabIndex        =   26
 432       Top             =   3240
 433       Width           =   3975
 434    End
 435    Begin VB.Label SessionNum
 436       Alignment       =   2  'Center
 437       Appearance      =   0  'Flat
 438       BackColor       =   &H00C0C0C0&
 439       BeginProperty Font
 440          name            =   "MS Sans Serif"
 441          charset         =   0
 442          weight          =   400
 443          size            =   12
 444          underline       =   0   'False
 445          italic          =   0   'False
 446          strikethrough   =   0   'False
 447       EndProperty
 448       ForeColor       =   &H80000008&
 449       Height          =   375
 450       Index           =   7
 451       Left            =   120
 452       TabIndex        =   25
 453       Top             =   3240
 454       Width           =   1095
 455    End
 456    Begin VB.Label RoomName
 457       Alignment       =   2  'Center
 458       Appearance      =   0  'Flat
 459       BackColor       =   &H00C0C0C0&
 460       BeginProperty Font
 461          name            =   "MS Sans Serif"
 462          charset         =   0
 463          weight          =   400
 464          size            =   12
 465          underline       =   0   'False
 466          italic          =   0   'False
 467          strikethrough   =   0   'False
 468       EndProperty
 469       ForeColor       =   &H80000008&
 470       Height          =   375
 471       Index           =   6
 472       Left            =   5640
 473       TabIndex        =   24
 474       Top             =   2880
 475       Width           =   2895
 476    End
 477    Begin VB.Label UserName
 478       Alignment       =   2  'Center
 479       Appearance      =   0  'Flat
 480       BackColor       =   &H00C0C0C0&
 481       BeginProperty Font
 482          name            =   "MS Sans Serif"
 483          charset         =   0
 484          weight          =   400
 485          size            =   12
 486          underline       =   0   'False
 487          italic          =   0   'False
 488          strikethrough   =   0   'False
 489       EndProperty
 490       ForeColor       =   &H80000008&
 491       Height          =   375
 492       Index           =   6
 493       Left            =   1440
 494       TabIndex        =   23
 495       Top             =   2880
 496       Width           =   3975
 497    End
 498    Begin VB.Label SessionNum
 499       Alignment       =   2  'Center
 500       Appearance      =   0  'Flat
 501       BackColor       =   &H00C0C0C0&
 502       BeginProperty Font
 503          name            =   "MS Sans Serif"
 504          charset         =   0
 505          weight          =   400
 506          size            =   12
 507          underline       =   0   'False
 508          italic          =   0   'False
 509          strikethrough   =   0   'False
 510       EndProperty
 511       ForeColor       =   &H80000008&
 512       Height          =   375
 513       Index           =   6
 514       Left            =   120
 515       TabIndex        =   22
 516       Top             =   2880
 517       Width           =   1095
 518    End
 519    Begin VB.Label RoomName
 520       Alignment       =   2  'Center
 521       Appearance      =   0  'Flat
 522       BackColor       =   &H00C0C0C0&
 523       BeginProperty Font
 524          name            =   "MS Sans Serif"
 525          charset         =   0
 526          weight          =   400
 527          size            =   12
 528          underline       =   0   'False
 529          italic          =   0   'False
 530          strikethrough   =   0   'False
 531       EndProperty
 532       ForeColor       =   &H80000008&
 533       Height          =   375
 534       Index           =   5
 535       Left            =   5640
 536       TabIndex        =   21
 537       Top             =   2520
 538       Width           =   2895
 539    End
 540    Begin VB.Label UserName
 541       Alignment       =   2  'Center
 542       Appearance      =   0  'Flat
 543       BackColor       =   &H00C0C0C0&
 544       BeginProperty Font
 545          name            =   "MS Sans Serif"
 546          charset         =   0
 547          weight          =   400
 548          size            =   12
 549          underline       =   0   'False
 550          italic          =   0   'False
 551          strikethrough   =   0   'False
 552       EndProperty
 553       ForeColor       =   &H80000008&
 554       Height          =   375
 555       Index           =   5
 556       Left            =   1440
 557       TabIndex        =   20
 558       Top             =   2520
 559       Width           =   3975
 560    End
 561    Begin VB.Label SessionNum
 562       Alignment       =   2  'Center
 563       Appearance      =   0  'Flat
 564       BackColor       =   &H00C0C0C0&
 565       BeginProperty Font
 566          name            =   "MS Sans Serif"
 567          charset         =   0
 568          weight          =   400
 569          size            =   12
 570          underline       =   0   'False
 571          italic          =   0   'False
 572          strikethrough   =   0   'False
 573       EndProperty
 574       ForeColor       =   &H80000008&
 575       Height          =   375
 576       Index           =   5
 577       Left            =   120
 578       TabIndex        =   19
 579       Top             =   2520
 580       Width           =   1095
 581    End
 582    Begin VB.Label RoomName
 583       Alignment       =   2  'Center
 584       Appearance      =   0  'Flat
 585       BackColor       =   &H00C0C0C0&
 586       BeginProperty Font
 587          name            =   "MS Sans Serif"
 588          charset         =   0
 589          weight          =   400
 590          size            =   12
 591          underline       =   0   'False
 592          italic          =   0   'False
 593          strikethrough   =   0   'False
 594       EndProperty
 595       ForeColor       =   &H80000008&
 596       Height          =   375
 597       Index           =   4
 598       Left            =   5640
 599       TabIndex        =   18
 600       Top             =   2160
 601       Width           =   2895
 602    End
 603    Begin VB.Label UserName
 604       Alignment       =   2  'Center
 605       Appearance      =   0  'Flat
 606       BackColor       =   &H00C0C0C0&
 607       BeginProperty Font
 608          name            =   "MS Sans Serif"
 609          charset         =   0
 610          weight          =   400
 611          size            =   12
 612          underline       =   0   'False
 613          italic          =   0   'False
 614          strikethrough   =   0   'False
 615       EndProperty
 616       ForeColor       =   &H80000008&
 617       Height          =   375
 618       Index           =   4
 619       Left            =   1440
 620       TabIndex        =   17
 621       Top             =   2160
 622       Width           =   3975
 623    End
 624    Begin VB.Label SessionNum
 625       Alignment       =   2  'Center
 626       Appearance      =   0  'Flat
 627       BackColor       =   &H00C0C0C0&
 628       BeginProperty Font
 629          name            =   "MS Sans Serif"
 630          charset         =   0
 631          weight          =   400
 632          size            =   12
 633          underline       =   0   'False
 634          italic          =   0   'False
 635          strikethrough   =   0   'False
 636       EndProperty
 637       ForeColor       =   &H80000008&
 638       Height          =   375
 639       Index           =   4
 640       Left            =   120
 641       TabIndex        =   16
 642       Top             =   2160
 643       Width           =   1095
 644    End
 645    Begin VB.Label RoomName
 646       Alignment       =   2  'Center
 647       Appearance      =   0  'Flat
 648       BackColor       =   &H00C0C0C0&
 649       BeginProperty Font
 650          name            =   "MS Sans Serif"
 651          charset         =   0
 652          weight          =   400
 653          size            =   12
 654          underline       =   0   'False
 655          italic          =   0   'False
 656          strikethrough   =   0   'False
 657       EndProperty
 658       ForeColor       =   &H80000008&
 659       Height          =   375
 660       Index           =   3
 661       Left            =   5640
 662       TabIndex        =   15
 663       Top             =   1800
 664       Width           =   2895
 665    End
 666    Begin VB.Label UserName
 667       Alignment       =   2  'Center
 668       Appearance      =   0  'Flat
 669       BackColor       =   &H00C0C0C0&
 670       BeginProperty Font
 671          name            =   "MS Sans Serif"
 672          charset         =   0
 673          weight          =   400
 674          size            =   12
 675          underline       =   0   'False
 676          italic          =   0   'False
 677          strikethrough   =   0   'False
 678       EndProperty
 679       ForeColor       =   &H80000008&
 680       Height          =   375
 681       Index           =   3
 682       Left            =   1440
 683       TabIndex        =   14
 684       Top             =   1800
 685       Width           =   3975
 686    End
 687    Begin VB.Label SessionNum
 688       Alignment       =   2  'Center
 689       Appearance      =   0  'Flat
 690       BackColor       =   &H00C0C0C0&
 691       BeginProperty Font
 692          name            =   "MS Sans Serif"
 693          charset         =   0
 694          weight          =   400
 695          size            =   12
 696          underline       =   0   'False
 697          italic          =   0   'False
 698          strikethrough   =   0   'False
 699       EndProperty
 700       ForeColor       =   &H80000008&
 701       Height          =   375
 702       Index           =   3
 703       Left            =   120
 704       TabIndex        =   13
 705       Top             =   1800
 706       Width           =   1095
 707    End
 708    Begin VB.Label RoomName
 709       Alignment       =   2  'Center
 710       Appearance      =   0  'Flat
 711       BackColor       =   &H00C0C0C0&
 712       BeginProperty Font
 713          name            =   "MS Sans Serif"
 714          charset         =   0
 715          weight          =   400
 716          size            =   12
 717          underline       =   0   'False
 718          italic          =   0   'False
 719          strikethrough   =   0   'False
 720       EndProperty
 721       ForeColor       =   &H80000008&
 722       Height          =   375
 723       Index           =   2
 724       Left            =   5640
 725       TabIndex        =   12
 726       Top             =   1440
 727       Width           =   2895
 728    End
 729    Begin VB.Label UserName
 730       Alignment       =   2  'Center
 731       Appearance      =   0  'Flat
 732       BackColor       =   &H00C0C0C0&
 733       BeginProperty Font
 734          name            =   "MS Sans Serif"
 735          charset         =   0
 736          weight          =   400
 737          size            =   12
 738          underline       =   0   'False
 739          italic          =   0   'False
 740          strikethrough   =   0   'False
 741       EndProperty
 742       ForeColor       =   &H80000008&
 743       Height          =   375
 744       Index           =   2
 745       Left            =   1440
 746       TabIndex        =   11
 747       Top             =   1440
 748       Width           =   3975
 749    End
 750    Begin VB.Label SessionNum
 751       Alignment       =   2  'Center
 752       Appearance      =   0  'Flat
 753       BackColor       =   &H00C0C0C0&
 754       BeginProperty Font
 755          name            =   "MS Sans Serif"
 756          charset         =   0
 757          weight          =   400
 758          size            =   12
 759          underline       =   0   'False
 760          italic          =   0   'False
 761          strikethrough   =   0   'False
 762       EndProperty
 763       ForeColor       =   &H80000008&
 764       Height          =   375
 765       Index           =   2
 766       Left            =   120
 767       TabIndex        =   10
 768       Top             =   1440
 769       Width           =   1095
 770    End
 771    Begin VB.Label RoomName
 772       Alignment       =   2  'Center
 773       Appearance      =   0  'Flat
 774       BackColor       =   &H00C0C0C0&
 775       BeginProperty Font
 776          name            =   "MS Sans Serif"
 777          charset         =   0
 778          weight          =   400
 779          size            =   12
 780          underline       =   0   'False
 781          italic          =   0   'False
 782          strikethrough   =   0   'False
 783       EndProperty
 784       ForeColor       =   &H80000008&
 785       Height          =   375
 786       Index           =   1
 787       Left            =   5640
 788       TabIndex        =   9
 789       Top             =   1080
 790       Width           =   2895
 791    End
 792    Begin VB.Label UserName
 793       Alignment       =   2  'Center
 794       Appearance      =   0  'Flat
 795       BackColor       =   &H00C0C0C0&
 796       BeginProperty Font
 797          name            =   "MS Sans Serif"
 798          charset         =   0
 799          weight          =   400
 800          size            =   12
 801          underline       =   0   'False
 802          italic          =   0   'False
 803          strikethrough   =   0   'False
 804       EndProperty
 805       ForeColor       =   &H80000008&
 806       Height          =   375
 807       Index           =   1
 808       Left            =   1440
 809       TabIndex        =   8
 810       Top             =   1080
 811       Width           =   3975
 812    End
 813    Begin VB.Label SessionNum
 814       Alignment       =   2  'Center
 815       Appearance      =   0  'Flat
 816       BackColor       =   &H00C0C0C0&
 817       BeginProperty Font
 818          name            =   "MS Sans Serif"
 819          charset         =   0
 820          weight          =   400
 821          size            =   12
 822          underline       =   0   'False
 823          italic          =   0   'False
 824          strikethrough   =   0   'False
 825       EndProperty
 826       ForeColor       =   &H80000008&
 827       Height          =   375
 828       Index           =   1
 829       Left            =   120
 830       TabIndex        =   7
 831       Top             =   1080
 832       Width           =   1095
 833    End
 834    Begin VB.Label RoomName
 835       Alignment       =   2  'Center
 836       Appearance      =   0  'Flat
 837       BackColor       =   &H00C0C0C0&
 838       BeginProperty Font
 839          name            =   "MS Sans Serif"
 840          charset         =   0
 841          weight          =   400
 842          size            =   12
 843          underline       =   0   'False
 844          italic          =   0   'False
 845          strikethrough   =   0   'False
 846       EndProperty
 847       ForeColor       =   &H80000008&
 848       Height          =   375
 849       Index           =   0
 850       Left            =   5640
 851       TabIndex        =   3
 852       Top             =   720
 853       Width           =   2895
 854    End
 855    Begin VB.Label UserName
 856       Alignment       =   2  'Center
 857       Appearance      =   0  'Flat
 858       BackColor       =   &H00C0C0C0&
 859       BeginProperty Font
 860          name            =   "MS Sans Serif"
 861          charset         =   0
 862          weight          =   400
 863          size            =   12
 864          underline       =   0   'False
 865          italic          =   0   'False
 866          strikethrough   =   0   'False
 867       EndProperty
 868       ForeColor       =   &H80000008&
 869       Height          =   375
 870       Index           =   0
 871       Left            =   1440
 872       TabIndex        =   2
 873       Top             =   720
 874       Width           =   3975
 875    End
 876    Begin VB.Label SessionNum
 877       Alignment       =   2  'Center
 878       Appearance      =   0  'Flat
 879       BackColor       =   &H00C0C0C0&
 880       BeginProperty Font
 881          name            =   "MS Sans Serif"
 882          charset         =   0
 883          weight          =   400
 884          size            =   12
 885          underline       =   0   'False
 886          italic          =   0   'False
 887          strikethrough   =   0   'False
 888       EndProperty
 889       ForeColor       =   &H80000008&
 890       Height          =   375
 891       Index           =   0
 892       Left            =   120
 893       TabIndex        =   1
 894       Top             =   720
 895       Width           =   1095
 896    End
 897 End
 898 Attribute VB_Name = "WhoIsOnline"
 899 Attribute VB_Creatable = False
 900 Attribute VB_Exposed = False
 901 Dim SessionNumArr%(1024)
 902 Dim UserNameArr$(1024)
 903 Dim RoomNameArr$(1024)
 904 Dim MaxUsers%
 905
 906
 907 Private Sub Form_Load()
 908
 909
 910     Show
 911     WhoIsOnline.WindowState = 0
 912     WhoIsOnline.Top = Int((MainWin.Height - WhoIsOnline.Height) / 3)
 913     WhoIsOnline.Left = Int((MainWin.Width - WhoIsOnline.Width) / 2)
 914     DoEvents
 915
 916     Call DoWho
 917 End Sub
 918
 919 Private Sub DoWho()
 920
 921 MaxUsers% = 0
 922
 923 If begin_trans() = True Then
 924
 925     serv_puts ("RWHO")
 926     a$ = serv_gets()
 927
 928     If Left$(a$, 1) = "1" Then
 929         Do
 930             a$ = serv_gets()
 931             If (a$ <> "000") And MaxUsers% < 1024 Then
 932                 SessionNumArr%(MaxUsers%) = Val(extract$(a$, 0))
 933                 UserNameArr$(MaxUsers%) = extract$(a$, 1)
 934                 RoomNameArr$(MaxUsers%) = extract$(a$, 2)
 935                 MaxUsers% = MaxUsers% + 1
 936                 End If
 937             Loop Until a$ = "000"
 938         End If
 939     Call end_trans
 940
 941     b% = MaxUsers% - 12
 942     If (b% < 0) Then b% = 0
 943     TheScroll.Max = b%
 944
 945     MaxUsersDisplay.Caption = "Total number of users: " + Str$(MaxUsers%)
 946     Call LoadContents
 947
 948     WhoRefresh.Interval = 30000
 949     WhoRefresh.Enabled = True
 950
 951     End If
 952
 953 End Sub
 954
 955 Private Sub LoadContents()
 956
 957     For a% = 0 To 11
 958
 959       If (TheScroll.Value + a%) <= (MaxUsers% - 1) Then
 960
 961         If SessionNumArr(TheScroll.Value + a%) <> 0 Then
 962             SessionNum(a%).Caption = Str$(SessionNumArr(TheScroll.Value + a%))
 963         Else
 964             SessionNum(a%).Caption = " "
 965             End If
 966         UserName(a%).Caption = UserNameArr(TheScroll.Value + a%)
 967         RoomName(a%).Caption = RoomNameArr(TheScroll.Value + a%)
 968
 969       Else
 970
 971         SessionNum(a%).Caption = " "
 972         UserName(a%).Caption = " "
 973         RoomName(a%).Caption = " "
 974
 975         End If
 976
 977       Next a%
 978
 979
 980 End Sub
 981
 982 Private Sub Form_Unload(Cancel As Integer)
 983 WhoRefresh.Enabled = False
 984 End Sub
 985
 986 Private Sub ok_button_Click()
 987     Unload WhoIsOnline
 988     Load RoomPrompt
 989 End Sub
 990
 991 Private Sub TheScroll_Change()
 992
 993     Call LoadContents
 994
 995 End Sub
 996
 997 Private Sub WhoRefresh_Timer()
 998
 999 Call DoWho
1000
1001 End Sub
1002
1003