home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch04 / dropform / dropf1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  11.7 KB  |  365 lines
  1. VERSION 5.00
  2. Begin VB.Form DropForm1 
  3.    Caption         =   "Drag & Drop Demo"
  4.    ClientHeight    =   4305
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4785
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4305
  10.    ScaleWidth      =   4785
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Label Label18 
  13.       BorderStyle     =   1  'Fixed Single
  14.       Caption         =   "Montana"
  15.       DragMode        =   1  'Automatic
  16.       BeginProperty Font 
  17.          Name            =   "Tahoma"
  18.          Size            =   8.25
  19.          Charset         =   0
  20.          Weight          =   400
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   255
  26.       Left            =   2520
  27.       TabIndex        =   17
  28.       Top             =   3840
  29.       Width           =   2055
  30.    End
  31.    Begin VB.Label Label17 
  32.       BorderStyle     =   1  'Fixed Single
  33.       Caption         =   "Orlando"
  34.       DragMode        =   1  'Automatic
  35.       BeginProperty Font 
  36.          Name            =   "Tahoma"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   255
  45.       Left            =   2520
  46.       TabIndex        =   16
  47.       Top             =   2040
  48.       Width           =   2055
  49.    End
  50.    Begin VB.Label Label16 
  51.       BorderStyle     =   1  'Fixed Single
  52.       Caption         =   "San Antonio"
  53.       DragMode        =   1  'Automatic
  54.       BeginProperty Font 
  55.          Name            =   "Tahoma"
  56.          Size            =   8.25
  57.          Charset         =   0
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   255
  64.       Left            =   2520
  65.       TabIndex        =   15
  66.       Top             =   2475
  67.       Width           =   2055
  68.    End
  69.    Begin VB.Label Label15 
  70.       BorderStyle     =   1  'Fixed Single
  71.       Caption         =   "Georgia"
  72.       DragMode        =   1  'Automatic
  73.       BeginProperty Font 
  74.          Name            =   "Tahoma"
  75.          Size            =   8.25
  76.          Charset         =   0
  77.          Weight          =   400
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   255
  83.       Left            =   2520
  84.       TabIndex        =   14
  85.       Top             =   2925
  86.       Width           =   2055
  87.    End
  88.    Begin VB.Label Label14 
  89.       BorderStyle     =   1  'Fixed Single
  90.       Caption         =   "Charlotte"
  91.       DragMode        =   1  'Automatic
  92.       BeginProperty Font 
  93.          Name            =   "Tahoma"
  94.          Size            =   8.25
  95.          Charset         =   0
  96.          Weight          =   400
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       Height          =   255
  102.       Left            =   2520
  103.       TabIndex        =   13
  104.       Top             =   3360
  105.       Width           =   2055
  106.    End
  107.    Begin VB.Label Label13 
  108.       BorderStyle     =   1  'Fixed Single
  109.       Caption         =   "Santa Barbara"
  110.       DragMode        =   1  'Automatic
  111.       BeginProperty Font 
  112.          Name            =   "Tahoma"
  113.          Size            =   8.25
  114.          Charset         =   0
  115.          Weight          =   400
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       Height          =   255
  121.       Left            =   2520
  122.       TabIndex        =   12
  123.       Top             =   240
  124.       Width           =   2055
  125.    End
  126.    Begin VB.Label Label12 
  127.       BorderStyle     =   1  'Fixed Single
  128.       Caption         =   "Durham"
  129.       DragMode        =   1  'Automatic
  130.       BeginProperty Font 
  131.          Name            =   "Tahoma"
  132.          Size            =   8.25
  133.          Charset         =   0
  134.          Weight          =   400
  135.          Underline       =   0   'False
  136.          Italic          =   0   'False
  137.          Strikethrough   =   0   'False
  138.       EndProperty
  139.       Height          =   255
  140.       Left            =   2520
  141.       TabIndex        =   11
  142.       Top             =   675
  143.       Width           =   2055
  144.    End
  145.    Begin VB.Label Label11 
  146.       BorderStyle     =   1  'Fixed Single
  147.       Caption         =   "Washington"
  148.       DragMode        =   1  'Automatic
  149.       BeginProperty Font 
  150.          Name            =   "Tahoma"
  151.          Size            =   8.25
  152.          Charset         =   0
  153.          Weight          =   400
  154.          Underline       =   0   'False
  155.          Italic          =   0   'False
  156.          Strikethrough   =   0   'False
  157.       EndProperty
  158.       Height          =   255
  159.       Left            =   2520
  160.       TabIndex        =   10
  161.       Top             =   1125
  162.       Width           =   2055
  163.    End
  164.    Begin VB.Label Label10 
  165.       BorderStyle     =   1  'Fixed Single
  166.       Caption         =   "Nevada"
  167.       DragMode        =   1  'Automatic
  168.       BeginProperty Font 
  169.          Name            =   "Tahoma"
  170.          Size            =   8.25
  171.          Charset         =   0
  172.          Weight          =   400
  173.          Underline       =   0   'False
  174.          Italic          =   0   'False
  175.          Strikethrough   =   0   'False
  176.       EndProperty
  177.       Height          =   255
  178.       Left            =   2520
  179.       TabIndex        =   9
  180.       Top             =   1560
  181.       Width           =   2055
  182.    End
  183.    Begin VB.Label Label9 
  184.       BorderStyle     =   1  'Fixed Single
  185.       Caption         =   "Alabama"
  186.       DragMode        =   1  'Automatic
  187.       BeginProperty Font 
  188.          Name            =   "Tahoma"
  189.          Size            =   8.25
  190.          Charset         =   0
  191.          Weight          =   400
  192.          Underline       =   0   'False
  193.          Italic          =   0   'False
  194.          Strikethrough   =   0   'False
  195.       EndProperty
  196.       Height          =   255
  197.       Left            =   240
  198.       TabIndex        =   8
  199.       Top             =   3840
  200.       Width           =   2055
  201.    End
  202.    Begin VB.Label Label8 
  203.       BorderStyle     =   1  'Fixed Single
  204.       Caption         =   "Illinois"
  205.       DragMode        =   1  'Automatic
  206.       BeginProperty Font 
  207.          Name            =   "Tahoma"
  208.          Size            =   8.25
  209.          Charset         =   0
  210.          Weight          =   400
  211.          Underline       =   0   'False
  212.          Italic          =   0   'False
  213.          Strikethrough   =   0   'False
  214.       EndProperty
  215.       Height          =   255
  216.       Left            =   240
  217.       TabIndex        =   7
  218.       Top             =   2040
  219.       Width           =   2055
  220.    End
  221.    Begin VB.Label Label7 
  222.       BorderStyle     =   1  'Fixed Single
  223.       Caption         =   "Miami"
  224.       DragMode        =   1  'Automatic
  225.       BeginProperty Font 
  226.          Name            =   "Tahoma"
  227.          Size            =   8.25
  228.          Charset         =   0
  229.          Weight          =   400
  230.          Underline       =   0   'False
  231.          Italic          =   0   'False
  232.          Strikethrough   =   0   'False
  233.       EndProperty
  234.       Height          =   255
  235.       Left            =   240
  236.       TabIndex        =   6
  237.       Top             =   2475
  238.       Width           =   2055
  239.    End
  240.    Begin VB.Label Label6 
  241.       BorderStyle     =   1  'Fixed Single
  242.       Caption         =   "Georgia"
  243.       DragMode        =   1  'Automatic
  244.       BeginProperty Font 
  245.          Name            =   "Tahoma"
  246.          Size            =   8.25
  247.          Charset         =   0
  248.          Weight          =   400
  249.          Underline       =   0   'False
  250.          Italic          =   0   'False
  251.          Strikethrough   =   0   'False
  252.       EndProperty
  253.       Height          =   255
  254.       Left            =   240
  255.       TabIndex        =   5
  256.       Top             =   2925
  257.       Width           =   2055
  258.    End
  259.    Begin VB.Label Label5 
  260.       BorderStyle     =   1  'Fixed Single
  261.       Caption         =   "Atlanta"
  262.       DragMode        =   1  'Automatic
  263.       BeginProperty Font 
  264.          Name            =   "Tahoma"
  265.          Size            =   8.25
  266.          Charset         =   0
  267.          Weight          =   400
  268.          Underline       =   0   'False
  269.          Italic          =   0   'False
  270.          Strikethrough   =   0   'False
  271.       EndProperty
  272.       Height          =   255
  273.       Left            =   240
  274.       TabIndex        =   4
  275.       Top             =   3360
  276.       Width           =   2055
  277.    End
  278.    Begin VB.Label Label4 
  279.       BorderStyle     =   1  'Fixed Single
  280.       Caption         =   "Chicago"
  281.       DragMode        =   1  'Automatic
  282.       BeginProperty Font 
  283.          Name            =   "Tahoma"
  284.          Size            =   8.25
  285.          Charset         =   0
  286.          Weight          =   400
  287.          Underline       =   0   'False
  288.          Italic          =   0   'False
  289.          Strikethrough   =   0   'False
  290.       EndProperty
  291.       Height          =   255
  292.       Left            =   240
  293.       TabIndex        =   3
  294.       Top             =   1560
  295.       Width           =   2055
  296.    End
  297.    Begin VB.Label Label3 
  298.       BorderStyle     =   1  'Fixed Single
  299.       Caption         =   "San Diego"
  300.       DragMode        =   1  'Automatic
  301.       BeginProperty Font 
  302.          Name            =   "Tahoma"
  303.          Size            =   8.25
  304.          Charset         =   0
  305.          Weight          =   400
  306.          Underline       =   0   'False
  307.          Italic          =   0   'False
  308.          Strikethrough   =   0   'False
  309.       EndProperty
  310.       Height          =   255
  311.       Left            =   240
  312.       TabIndex        =   2
  313.       Top             =   1120
  314.       Width           =   2055
  315.    End
  316.    Begin VB.Label Label2 
  317.       BorderStyle     =   1  'Fixed Single
  318.       Caption         =   "San Francisco"
  319.       DragMode        =   1  'Automatic
  320.       BeginProperty Font 
  321.          Name            =   "Tahoma"
  322.          Size            =   8.25
  323.          Charset         =   0
  324.          Weight          =   400
  325.          Underline       =   0   'False
  326.          Italic          =   0   'False
  327.          Strikethrough   =   0   'False
  328.       EndProperty
  329.       Height          =   255
  330.       Left            =   240
  331.       TabIndex        =   1
  332.       Top             =   680
  333.       Width           =   2055
  334.    End
  335.    Begin VB.Label Label1 
  336.       BorderStyle     =   1  'Fixed Single
  337.       Caption         =   "California"
  338.       DragMode        =   1  'Automatic
  339.       BeginProperty Font 
  340.          Name            =   "Tahoma"
  341.          Size            =   8.25
  342.          Charset         =   0
  343.          Weight          =   400
  344.          Underline       =   0   'False
  345.          Italic          =   0   'False
  346.          Strikethrough   =   0   'False
  347.       EndProperty
  348.       Height          =   255
  349.       Left            =   240
  350.       TabIndex        =   0
  351.       Top             =   240
  352.       Width           =   2055
  353.    End
  354. Attribute VB_Name = "DropForm1"
  355. Attribute VB_GlobalNameSpace = False
  356. Attribute VB_Creatable = False
  357. Attribute VB_PredeclaredId = True
  358. Attribute VB_Exposed = False
  359. Private Sub Form_Load()
  360.     DropForm2.Show
  361.     DropForm2.Move DropForm1.Left + DropForm1.Width + 500, DropForm1.Top
  362.     DropForm3.Show
  363.     DropForm3.Move DropForm1.Left + DropForm1.Width + 500, DropForm1.Top + DropForm2.Height
  364. End Sub
  365.