home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / vb4dde / formsour.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  3.6 KB  |  126 lines
  1. VERSION 4.00
  2. Begin VB.Form FORMSOURCE 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "SOURCE DDE FORM"
  5.    ClientHeight    =   2625
  6.    ClientLeft      =   3165
  7.    ClientTop       =   1875
  8.    ClientWidth     =   6690
  9.    Height          =   3030
  10.    Left            =   3105
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "FORMSOURCE"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2625
  16.    ScaleWidth      =   6690
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1530
  19.    Width           =   6810
  20.    Begin VB.Timer Timer1 
  21.       Interval        =   1000
  22.       Left            =   5895
  23.       Top             =   675
  24.    End
  25.    Begin VB.TextBox Text1 
  26.       Height          =   285
  27.       Left            =   3780
  28.       TabIndex        =   4
  29.       Text            =   "0"
  30.       Top             =   1260
  31.       Width           =   2580
  32.    End
  33.    Begin VB.Label Label7 
  34.       Caption         =   $"FORMSOUR.frx":0000
  35.       Height          =   375
  36.       Left            =   180
  37.       TabIndex        =   7
  38.       Top             =   2115
  39.       Width           =   5280
  40.    End
  41.    Begin VB.Line Line3 
  42.       X1              =   3735
  43.       X2              =   3600
  44.       Y1              =   675
  45.       Y2              =   675
  46.    End
  47.    Begin VB.Line Line2 
  48.       X1              =   3195
  49.       X2              =   3420
  50.       Y1              =   1395
  51.       Y2              =   1395
  52.    End
  53.    Begin VB.Label Label6 
  54.       Caption         =   "APP TITLE: SAMPLESR"
  55.       Height          =   240
  56.       Left            =   3825
  57.       TabIndex        =   6
  58.       Top             =   585
  59.       Width           =   1905
  60.    End
  61.    Begin VB.Line Line1 
  62.       X1              =   3420
  63.       X2              =   3600
  64.       Y1              =   1395
  65.       Y2              =   675
  66.    End
  67.    Begin VB.Label Label5 
  68.       Caption         =   "Form1.LinkTopic = FORMSOURCE"
  69.       Height          =   240
  70.       Left            =   180
  71.       TabIndex        =   5
  72.       Top             =   765
  73.       Width           =   3075
  74.    End
  75.    Begin VB.Label Label4 
  76.       Caption         =   "SAMPLESR.EXE"
  77.       Height          =   195
  78.       Left            =   1935
  79.       TabIndex        =   3
  80.       Top             =   1305
  81.       Width           =   2040
  82.    End
  83.    Begin VB.Label Label3 
  84.       Caption         =   "PROJECT NAME :"
  85.       BeginProperty Font 
  86.          name            =   "MS Sans Serif"
  87.          charset         =   1
  88.          weight          =   700
  89.          size            =   8.25
  90.          underline       =   0   'False
  91.          italic          =   0   'False
  92.          strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   285
  95.       Left            =   180
  96.       TabIndex        =   2
  97.       Top             =   1305
  98.       Width           =   1770
  99.    End
  100.    Begin VB.Label Label2 
  101.       Caption         =   "Form1.Name = FORMSOURCE"
  102.       Height          =   375
  103.       Left            =   180
  104.       TabIndex        =   1
  105.       Top             =   495
  106.       Width           =   3255
  107.    End
  108.    Begin VB.Label Label1 
  109.       Caption         =   "Form1.LimeMode = SOURCE"
  110.       Height          =   240
  111.       Left            =   180
  112.       TabIndex        =   0
  113.       Top             =   225
  114.       Width           =   2850
  115.    End
  116. Attribute VB_Name = "FORMSOURCE"
  117. Attribute VB_Creatable = False
  118. Attribute VB_Exposed = False
  119. Private Sub Text1_LinkOpen(Cancel As Integer)
  120. Text1.LinkMode = 1
  121. End Sub
  122. Private Sub Timer1_Timer()
  123. Randomize 0
  124. Text1 = Int(Rnd(1) * 99999)
  125. End Sub
  126.