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