wincit/roomdir.frm

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