VERSION 4.00
Begin VB.Form FORMSOURCE
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "SOURCE DDE FORM"
   ClientHeight    =   2625
   ClientLeft      =   3165
   ClientTop       =   1875
   ClientWidth     =   6690
   Height          =   3030
   Left            =   3105
   LinkMode        =   1  'Source
   LinkTopic       =   "FORMSOURCE"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2625
   ScaleWidth      =   6690
   ShowInTaskbar   =   0   'False
   Top             =   1530
   Width           =   6810
   Begin VB.Timer Timer1
      Interval        =   1000
      Left            =   5895
      Top             =   675
   End
   Begin VB.TextBox Text1
      Height          =   285
      Left            =   3780
      TabIndex        =   4
      Text            =   "0"
      Top             =   1260
      Width           =   2580
   End
   Begin VB.Label Label7
      Caption         =   $"FORMSOUR.frx":0000
      Height          =   375
      Left            =   180
      TabIndex        =   7
      Top             =   2115
      Width           =   5280
   End
   Begin VB.Line Line3
      X1              =   3735
      X2              =   3600
      Y1              =   675
      Y2              =   675
   End
   Begin VB.Line Line2
      X1              =   3195
      X2              =   3420
      Y1              =   1395
      Y2              =   1395
   End
   Begin VB.Label Label6
      Caption         =   "APP TITLE: SAMPLESR"
      Height          =   240
      Left            =   3825
      TabIndex        =   6
      Top             =   585
      Width           =   1905
   End
   Begin VB.Line Line1
      X1              =   3420
      X2              =   3600
      Y1              =   1395
      Y2              =   675
   End
   Begin VB.Label Label5
      Caption         =   "Form1.LinkTopic = FORMSOURCE"
      Height          =   240
      Left            =   180
      TabIndex        =   5
      Top             =   765
      Width           =   3075
   End
   Begin VB.Label Label4
      Caption         =   "SAMPLESR.EXE"
      Height          =   195
      Left            =   1935
      TabIndex        =   3
      Top             =   1305
      Width           =   2040
   End
   Begin VB.Label Label3
      Caption         =   "PROJECT NAME :"
      BeginProperty Font
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   8.25
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   180
      TabIndex        =   2
      Top             =   1305
      Width           =   1770
   End
   Begin VB.Label Label2
      Caption         =   "Form1.Name = FORMSOURCE"
      Height          =   375
      Left            =   180
      TabIndex        =   1
      Top             =   495
      Width           =   3255
   End
   Begin VB.Label Label1
      Caption         =   "Form1.LimeMode = SOURCE"
      Height          =   240
      Left            =   180
      TabIndex        =   0
      Top             =   225
      Width           =   2850
   End
End
Attribute VB_Name = "FORMSOURCE"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Text1_LinkOpen(Cancel As Integer)
Text1.LinkMode = 1
End Sub


Private Sub Timer1_Timer()
Randomize 0
Text1 = Int(Rnd(1) * 99999)
End Sub