VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7665
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5580
   LinkTopic       =   "Form1"
   ScaleHeight     =   7665
   ScaleWidth      =   5580
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "rebuild"
      Height          =   495
      Left            =   1080
      TabIndex        =   22
      Top             =   6960
      Width           =   3255
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   21
      Left            =   2760
      TabIndex        =   21
      Text            =   "Text1"
      Top             =   6120
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   20
      Left            =   2760
      TabIndex        =   20
      Text            =   "Text1"
      Top             =   5520
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   19
      Left            =   2760
      TabIndex        =   19
      Text            =   "Text1"
      Top             =   4920
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   18
      Left            =   2760
      TabIndex        =   18
      Text            =   "Text1"
      Top             =   4320
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   17
      Left            =   2760
      TabIndex        =   17
      Text            =   "Text1"
      Top             =   3720
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   16
      Left            =   2760
      TabIndex        =   16
      Text            =   "Text1"
      Top             =   3120
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   15
      Left            =   2760
      TabIndex        =   15
      Text            =   "Text1"
      Top             =   2520
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   14
      Left            =   2760
      TabIndex        =   14
      Text            =   "Text1"
      Top             =   1920
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   13
      Left            =   2760
      TabIndex        =   13
      Text            =   "Text1"
      Top             =   1320
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   12
      Left            =   2760
      TabIndex        =   12
      Text            =   "Text1"
      Top             =   720
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   11
      Left            =   2760
      TabIndex        =   11
      Text            =   "Text1"
      Top             =   120
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   10
      Left            =   120
      TabIndex        =   10
      Text            =   "Text1"
      Top             =   6120
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   9
      Left            =   120
      TabIndex        =   9
      Text            =   "Text1"
      Top             =   5520
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   8
      Left            =   120
      TabIndex        =   8
      Text            =   "Text1"
      Top             =   4920
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   7
      Left            =   120
      TabIndex        =   7
      Text            =   "Text1"
      Top             =   4320
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   6
      Left            =   120
      TabIndex        =   6
      Text            =   "Text1"
      Top             =   3720
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   5
      Left            =   120
      TabIndex        =   5
      Text            =   "Text1"
      Top             =   3120
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   4
      Left            =   120
      TabIndex        =   4
      Text            =   "Text1"
      Top             =   2520
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   3
      Left            =   120
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   1920
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   2
      Left            =   120
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   1320
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   1
      Left            =   120
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   720
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Index           =   0
      Left            =   120
      LinkItem        =   "plc.radom100"
      LinkTopic       =   "view|tagname"
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   120
      Width           =   2655
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 20
Text1(i).LinkTopic = "view|tagname"
Next
Text1(0).LinkItem = "plc.radom100"
Text1(1).LinkItem = "plc.radom101"
Text1(2).LinkItem = "plc.radom102"
Text1(3).LinkItem = "plc.radom103"
Text1(4).LinkItem = "plc.radom104"
Text1(5).LinkItem = "plc.radom105"
Text1(6).LinkItem = "plc.radom106"
Text1(7).LinkItem = "plc.radom107"
Text1(8).LinkItem = "plc.radom108"
Text1(9).LinkItem = "plc.radom109"
Text1(10).LinkItem = "plc.radom110"
Text1(11).LinkItem = "plc.radom111"
Text1(12).LinkItem = "plc.radom112"
Text1(13).LinkItem = "plc.radom113"
Text1(14).LinkItem = "plc.radom114"
Text1(15).LinkItem = "plc.radom115"
Text1(16).LinkItem = "plc.radom116"
Text1(17).LinkItem = "plc.radom117"
Text1(18).LinkItem = "plc.radom118"
Text1(19).LinkItem = "plc.radom119"
Text1(20).LinkItem = "plc.radom120"
Text1(21).LinkItem = "plc.radom121"
Text1(0).LinkMode = 1
Text1(1).LinkMode = 1
Text1(2).LinkMode = 1
Text1(3).LinkMode = 1
Text1(4).LinkMode = 1
Text1(5).LinkMode = 1
Text1(6).LinkMode = 1
Text1(7).LinkMode = 1
Text1(8).LinkMode = 1
Text1(9).LinkMode = 1
Text1(10).LinkMode = 1
Text1(11).LinkMode = 1
Text1(12).LinkMode = 1
Text1(13).LinkMode = 1
Text1(14).LinkMode = 1
Text1(15).LinkMode = 1
Text1(16).LinkMode = 1
Text1(17).LinkMode = 1
Text1(18).LinkMode = 1
Text1(19).LinkMode = 1
Text1(20).LinkMode = 1
Text1(21).LinkMode = 1


End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 21
Text1(i).LinkTopic = "view|tagname"

Next
Text1(0).LinkItem = "plc.radom100"
Text1(1).LinkItem = "plc.radom101"
Text1(2).LinkItem = "plc.radom102"
Text1(3).LinkItem = "plc.radom103"
Text1(4).LinkItem = "plc.radom104"
Text1(5).LinkItem = "plc.radom105"
Text1(6).LinkItem = "plc.radom106"
Text1(7).LinkItem = "plc.radom107"
Text1(8).LinkItem = "plc.radom108"
Text1(9).LinkItem = "plc.radom109"
Text1(10).LinkItem = "plc.radom110"
Text1(11).LinkItem = "plc.radom111"
Text1(12).LinkItem = "plc.radom112"
Text1(13).LinkItem = "plc.radom113"
Text1(14).LinkItem = "plc.radom114"
Text1(15).LinkItem = "plc.radom115"
Text1(16).LinkItem = "plc.radom116"
Text1(17).LinkItem = "plc.radom117"
Text1(18).LinkItem = "plc.radom118"
Text1(19).LinkItem = "plc.radom119"
Text1(20).LinkItem = "plc.radom120"
Text1(21).LinkItem = "plc.radom121"

End Sub
