Public Class
agenda Inherits
System.Windows.Forms.Form
Dim vselect1 As
System.Data.OleDb.OleDbCommand ' Select command
Dim vda1 As
System.Data.OleDb.OleDbDataAdapter ' Dataadapter
Dim vdset1 As
System.Data.DataSet
Dim current_date
As String
Dim movetask_flag
As Boolean
Dim appoint_order
As Integer
Dim v_PanA1 As
Integer, v_PanB1 As Integer
Dim v_PicA As
Integer, v_TxtA As Integer, v_BtnA As Integer
Dim v_TxtB As
Integer, v_BtnB As Integer, v_chk As Integer
Dim
v_currentmonth As Integer, v_currentyear As Integer
Dim new_serialno
As Integer, serial_taskappoint As Integer
Dim vvrec As
Integer
Windows Form Designer
generated code |
'list of operations
available: navigation, add/new, modify, update, close
Private Sub
agenda_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim i As Integer
'resize
Me.PanelA1.Width
= Me.PanelA2.Width
Me.PanelA.Height
= Me.PBox1.Height
Me.PanelA1.Height
= Me.PBox1.Height
Me.PanelA2.Height
= Me.PBox1.Height
Me.PanelA.Width =
Me.PanelA1.Width + Me.PanelA2.Width + Me.PBox1.Width
Me.PanelT.Width =
Me.PanelA.Width
Me.PanelA1.Top
= 0
Me.PanelA2.Top
= 0
Me.PBox1.Top
= 0
Me.PanelA1.Left
= 0
Me.PBox1.Left =
Me.PanelA1.Left + Me.PanelA1.Width
Me.PanelA2.Left =
Me.PBox1.Left + Me.PBox1.Width
Me.PanelB1.Top =
Me.PanelB2.Top
Me.VScrollBarA1.Height = Me.VScrollBarB1.Height
Me.PanelB1.Height
= Me.VScrollBarA1.Height
+ 4
Me.PanelB2.Height
= Me.VScrollBarB1.Height
+ 4
Me.PicA_empty.Top
= (Me.VScrollBarA1.Height - Me.PicA_empty.Height)
/ 2
Me.PicA_empty.Left = (Me.PanelA2.Width - Me.PicA_empty.Width)
/ 2
Me.PicB_empty.Top
= (Me.VScrollBarB1.Height - Me.PicB_empty.Height)
/ 2
Me.PicB_empty.Left = (Me.PanelB2.Width - Me.PicB_empty.Width)
/ 2
'task
' Me.PanA1.Left =
Me.TxtA1.Left
Me.PanA1.Left =
Me.PicA1.Left
v_PanA1 =
Me.PanA1.Top
v_PicA =
Me.PicA1.Height
v_TxtA =
Me.TxtA1.Height
v_BtnA =
Me.BtnA1.Height
v_chk =
Me.ChkA1.Height
Me.PicA2.Left =
Me.PicA1.Left
Me.PicA3.Left =
Me.PicA1.Left
Me.PicA4.Left =
Me.PicA1.Left
Me.PicA5.Left =
Me.PicA1.Left
Me.PicA6.Left =
Me.PicA1.Left
Me.PicA7.Left =
Me.PicA1.Left
Me.PicA8.Left =
Me.PicA1.Left
Me.PicA9.Left =
Me.PicA1.Left
Me.PicA10.Left =
Me.PicA1.Left
Me.PicA11.Left =
Me.PicA1.Left
Me.PicA12.Left =
Me.PicA1.Left
Me.PicA13.Left =
Me.PicA1.Left
Me.PicA14.Left =
Me.PicA1.Left
Me.PicA15.Left =
Me.PicA1.Left
Me.PicA16.Left =
Me.PicA1.Left
Me.PicA17.Left =
Me.PicA1.Left
Me.PicA18.Left =
Me.PicA1.Left
Me.PicA19.Left =
Me.PicA1.Left
Me.PicA20.Left =
Me.PicA1.Left
Me.PicA21.Left =
Me.PicA1.Left
Me.PicA22.Left =
Me.PicA1.Left
Me.PicA23.Left =
Me.PicA1.Left
Me.PicA24.Left =
Me.PicA1.Left
Me.PTxA1.Left =
Me.PicA1.Left
Me.PTxA2.Left =
Me.PTxA1.Left
Me.PTxA3.Left =
Me.PTxA1.Left
Me.PTxA4.Left =
Me.PTxA1.Left
Me.PTxA5.Left =
Me.PTxA1.Left
Me.PTxA6.Left =
Me.PTxA1.Left
Me.PTxA7.Left =
Me.PTxA1.Left
Me.PTxA8.Left =
Me.PTxA1.Left
Me.PTxA9.Left =
Me.PTxA1.Left
Me.PTxA10.Left =
Me.PTxA1.Left
Me.PTxA11.Left =
Me.PTxA1.Left
Me.PTxA12.Left =
Me.PTxA1.Left
Me.PTxA13.Left =
Me.PTxA1.Left
Me.PTxA14.Left =
Me.PTxA1.Left
Me.PTxA15.Left =
Me.PTxA1.Left
Me.PTxA16.Left =
Me.PTxA1.Left
Me.PTxA17.Left =
Me.PTxA1.Left
Me.PTxA18.Left =
Me.PTxA1.Left
Me.PTxA19.Left =
Me.PTxA1.Left
Me.PTxA20.Left =
Me.PTxA1.Left
Me.PTxA21.Left =
Me.PTxA1.Left
Me.PTxA22.Left =
Me.PTxA1.Left
Me.PTxA23.Left =
Me.PTxA1.Left
Me.PTxA24.Left =
Me.PTxA1.Left
Me.PanA2.Left =
Me.PanA1.Left
Me.PanA3.Left =
Me.PanA1.Left
Me.PanA4.Left =
Me.PanA1.Left
Me.PanA5.Left =
Me.PanA1.Left
Me.PanA6.Left =
Me.PanA1.Left
Me.PanA7.Left =
Me.PanA1.Left
Me.PanA8.Left =
Me.PanA1.Left
Me.PanA9.Left =
Me.PanA1.Left
Me.PanA10.Left =
Me.PanA1.Left
Me.PanA11.Left =
Me.PanA1.Left
Me.PanA12.Left =
Me.PanA1.Left
Me.PanA13.Left =
Me.PanA1.Left
Me.PanA14.Left =
Me.PanA1.Left
Me.PanA15.Left =
Me.PanA1.Left
Me.PanA16.Left =
Me.PanA1.Left
Me.PanA17.Left =
Me.PanA1.Left
Me.PanA18.Left =
Me.PanA1.Left
Me.PanA19.Left =
Me.PanA1.Left
Me.PanA20.Left =
Me.PanA1.Left
Me.PanA21.Left =
Me.PanA1.Left
Me.PanA22.Left =
Me.PanA1.Left
Me.PanA23.Left =
Me.PanA1.Left
Me.PanA24.Left =
Me.PanA1.Left
Me.TxtA2.Left =
Me.TxtA1.Left
Me.TxtA3.Left =
Me.TxtA1.Left
Me.TxtA4.Left =
Me.TxtA1.Left
Me.TxtA5.Left =
Me.TxtA1.Left
Me.TxtA6.Left =
Me.TxtA1.Left
Me.TxtA7.Left =
Me.TxtA1.Left
Me.TxtA8.Left =
Me.TxtA1.Left
Me.TxtA9.Left =
Me.TxtA1.Left
Me.TxtA10.Left =
Me.TxtA1.Left
Me.TxtA11.Left =
Me.TxtA1.Left
Me.TxtA12.Left =
Me.TxtA1.Left
Me.TxtA13.Left =
Me.TxtA1.Left
Me.TxtA14.Left =
Me.TxtA1.Left
Me.TxtA15.Left =
Me.TxtA1.Left
Me.TxtA16.Left =
Me.TxtA1.Left
Me.TxtA17.Left =
Me.TxtA1.Left
Me.TxtA18.Left =
Me.TxtA1.Left
Me.TxtA19.Left =
Me.TxtA1.Left
Me.TxtA20.Left =
Me.TxtA1.Left
Me.TxtA21.Left =
Me.TxtA1.Left
Me.TxtA22.Left =
Me.TxtA1.Left
Me.TxtA23.Left =
Me.TxtA1.Left
Me.TxtA24.Left =
Me.TxtA1.Left
Me.BtnA2.Left =
Me.BtnA1.Left
Me.BtnA3.Left =
Me.BtnA1.Left
Me.BtnA4.Left =
Me.BtnA1.Left
Me.BtnA5.Left =
Me.BtnA1.Left
Me.BtnA6.Left =
Me.BtnA1.Left
Me.BtnA7.Left =
Me.BtnA1.Left
Me.BtnA8.Left =
Me.BtnA1.Left
Me.BtnA9.Left =
Me.BtnA1.Left
Me.BtnA10.Left =
Me.BtnA1.Left
Me.BtnA11.Left =
Me.BtnA1.Left
Me.BtnA12.Left =
Me.BtnA1.Left
Me.BtnA13.Left =
Me.BtnA1.Left
Me.BtnA14.Left =
Me.BtnA1.Left
Me.BtnA15.Left =
Me.BtnA1.Left
Me.BtnA16.Left =
Me.BtnA1.Left
Me.BtnA17.Left =
Me.BtnA1.Left
Me.BtnA18.Left =
Me.BtnA1.Left
Me.BtnA19.Left =
Me.BtnA1.Left
Me.BtnA20.Left =
Me.BtnA1.Left
Me.BtnA21.Left =
Me.BtnA1.Left
Me.BtnA22.Left =
Me.BtnA1.Left
Me.BtnA23.Left =
Me.BtnA1.Left
Me.BtnA24.Left =
Me.BtnA1.Left
Me.ChkA2.Left =
Me.ChkA1.Left
Me.ChkA3.Left =
Me.ChkA1.Left
Me.ChkA4.Left =
Me.ChkA1.Left
Me.ChkA5.Left =
Me.ChkA1.Left
Me.ChkA6.Left =
Me.ChkA1.Left
Me.ChkA7.Left =
Me.ChkA1.Left
Me.ChkA8.Left =
Me.ChkA1.Left
Me.ChkA9.Left =
Me.ChkA1.Left
Me.ChkA10.Left =
Me.ChkA1.Left
Me.ChkA11.Left =
Me.ChkA1.Left
Me.ChkA12.Left =
Me.ChkA1.Left
Me.ChkA13.Left =
Me.ChkA1.Left
Me.ChkA14.Left =
Me.ChkA1.Left
Me.ChkA15.Left =
Me.ChkA1.Left
Me.ChkA16.Left =
Me.ChkA1.Left
Me.ChkA17.Left =
Me.ChkA1.Left
Me.ChkA18.Left =
Me.ChkA1.Left
Me.ChkA19.Left =
Me.ChkA1.Left
Me.ChkA20.Left =
Me.ChkA1.Left
Me.ChkA21.Left =
Me.ChkA1.Left
Me.ChkA22.Left =
Me.ChkA1.Left
Me.ChkA23.Left =
Me.ChkA1.Left
Me.ChkA24.Left =
Me.ChkA1.Left
Me.StxA1.Left =
Me.ChkA1.Left
Me.StxA2.Left =
Me.ChkA1.Left
Me.StxA3.Left =
Me.ChkA1.Left
Me.StxA4.Left =
Me.ChkA1.Left
Me.StxA5.Left =
Me.ChkA1.Left
Me.StxA6.Left =
Me.ChkA1.Left
Me.StxA7.Left =
Me.ChkA1.Left
Me.StxA8.Left =
Me.ChkA1.Left
Me.StxA9.Left =
Me.ChkA1.Left
Me.StxA10.Left =
Me.ChkA1.Left
Me.StxA11.Left =
Me.ChkA1.Left
Me.StxA12.Left =
Me.ChkA1.Left
Me.StxA13.Left =
Me.ChkA1.Left
Me.StxA14.Left =
Me.ChkA1.Left
Me.StxA15.Left =
Me.ChkA1.Left
Me.StxA16.Left =
Me.ChkA1.Left
Me.StxA17.Left =
Me.ChkA1.Left
Me.StxA18.Left =
Me.ChkA1.Left
Me.StxA19.Left =
Me.ChkA1.Left
Me.StxA20.Left =
Me.ChkA1.Left
Me.StxA21.Left =
Me.ChkA1.Left
Me.StxA22.Left =
Me.ChkA1.Left
Me.StxA23.Left =
Me.ChkA1.Left
Me.StxA24.Left =
Me.ChkA1.Left
'appointment
v_TxtB = v_TxtA
v_BtnB = v_BtnA
v_PanB1 = v_PanA1
Me.PanB2.Left =
Me.PanB1.Left
Me.PanB3.Left =
Me.PanB1.Left
Me.PanB4.Left =
Me.PanB1.Left
Me.PanB5.Left =
Me.PanB1.Left
Me.PanB6.Left =
Me.PanB1.Left
Me.PanB7.Left =
Me.PanB1.Left
Me.PanB8.Left =
Me.PanB1.Left
Me.PanB9.Left =
Me.PanB1.Left
Me.PanB10.Left =
Me.PanB1.Left
Me.PanB11.Left =
Me.PanB1.Left
Me.PanB12.Left =
Me.PanB1.Left
Me.PanB13.Left =
Me.PanB1.Left
Me.PanB14.Left =
Me.PanB1.Left
Me.PanB15.Left =
Me.PanB1.Left
Me.PanB16.Left =
Me.PanB1.Left
Me.PanB17.Left =
Me.PanB1.Left
Me.PanB18.Left =
Me.PanB1.Left
Me.PanB19.Left =
Me.PanB1.Left
Me.PanB20.Left =
Me.PanB1.Left
Me.PanB21.Left =
Me.PanB1.Left
Me.PanB22.Left =
Me.PanB1.Left
Me.PanB23.Left =
Me.PanB1.Left
Me.PanB24.Left =
Me.PanB1.Left
Me.TxtC2.Left =
Me.TxtC1.Left
Me.TxtC3.Left =
Me.TxtC1.Left
Me.TxtC4.Left =
Me.TxtC1.Left
Me.TxtC5.Left =
Me.TxtC1.Left
Me.TxtC6.Left =
Me.TxtC1.Left
Me.TxtC7.Left =
Me.TxtC1.Left
Me.TxtC8.Left =
Me.TxtC1.Left
Me.TxtC9.Left =
Me.TxtC1.Left
Me.TxtC10.Left =
Me.TxtC1.Left
Me.TxtC11.Left =
Me.TxtC1.Left
Me.TxtC12.Left =
Me.TxtC1.Left
Me.TxtC13.Left =
Me.TxtC1.Left
Me.TxtC14.Left =
Me.TxtC1.Left
Me.TxtC15.Left =
Me.TxtC1.Left
Me.TxtC16.Left =
Me.TxtC1.Left
Me.TxtC17.Left =
Me.TxtC1.Left
Me.TxtC18.Left =
Me.TxtC1.Left
Me.TxtC19.Left =
Me.TxtC1.Left
Me.TxtC20.Left =
Me.TxtC1.Left
Me.TxtC21.Left =
Me.TxtC1.Left
Me.TxtC22.Left =
Me.TxtC1.Left
Me.TxtC23.Left =
Me.TxtC1.Left
Me.TxtC24.Left =
Me.TxtC1.Left
Me.TxtB2.Left =
Me.TxtB1.Left
Me.TxtB3.Left =
Me.TxtB1.Left
Me.TxtB4.Left =
Me.TxtB1.Left
Me.TxtB5.Left =
Me.TxtB1.Left
Me.TxtB6.Left =
Me.TxtB1.Left
Me.TxtB7.Left =
Me.TxtB1.Left
Me.TxtB8.Left =
Me.TxtB1.Left
Me.TxtB9.Left =
Me.TxtB1.Left
Me.TxtB10.Left =
Me.TxtB1.Left
Me.TxtB11.Left =
Me.TxtB1.Left
Me.TxtB12.Left =
Me.TxtB1.Left
Me.TxtB13.Left =
Me.TxtB1.Left
Me.TxtB14.Left =
Me.TxtB1.Left
Me.TxtB15.Left =
Me.TxtB1.Left
Me.TxtB16.Left =
Me.TxtB1.Left
Me.TxtB17.Left =
Me.TxtB1.Left
Me.TxtB18.Left =
Me.TxtB1.Left
Me.TxtB19.Left =
Me.TxtB1.Left
Me.TxtB20.Left =
Me.TxtB1.Left
Me.TxtB21.Left =
Me.TxtB1.Left
Me.TxtB22.Left =
Me.TxtB1.Left
Me.TxtB23.Left =
Me.TxtB1.Left
Me.TxtB24.Left =
Me.TxtB1.Left
Me.BtnB2.Left =
Me.BtnB1.Left
Me.BtnB3.Left =
Me.BtnB1.Left
Me.BtnB4.Left =
Me.BtnB1.Left
Me.BtnB5.Left =
Me.BtnB1.Left
Me.BtnB6.Left =
Me.BtnB1.Left
Me.BtnB7.Left =
Me.BtnB1.Left
Me.BtnB8.Left =
Me.BtnB1.Left
Me.BtnB9.Left =
Me.BtnB1.Left
Me.BtnB10.Left =
Me.BtnB1.Left
Me.BtnB11.Left =
Me.BtnB1.Left
Me.BtnB12.Left =
Me.BtnB1.Left
Me.BtnB13.Left =
Me.BtnB1.Left
Me.BtnB14.Left =
Me.BtnB1.Left
Me.BtnB15.Left =
Me.BtnB1.Left
Me.BtnB16.Left =
Me.BtnB1.Left
Me.BtnB17.Left =
Me.BtnB1.Left
Me.BtnB18.Left =
Me.BtnB1.Left
Me.BtnB19.Left =
Me.BtnB1.Left
Me.BtnB20.Left =
Me.BtnB1.Left
Me.BtnB21.Left =
Me.BtnB1.Left
Me.BtnB22.Left =
Me.BtnB1.Left
Me.BtnB23.Left =
Me.BtnB1.Left
Me.BtnB24.Left =
Me.BtnB1.Left
Me.ChkB2.Left =
Me.ChkB1.Left
Me.ChkB3.Left =
Me.ChkB1.Left
Me.ChkB4.Left =
Me.ChkB1.Left
Me.ChkB5.Left =
Me.ChkB1.Left
Me.ChkB6.Left =
Me.ChkB1.Left
Me.ChkB7.Left =
Me.ChkB1.Left
Me.ChkB8.Left =
Me.ChkB1.Left
Me.ChkB9.Left =
Me.ChkB1.Left
Me.ChkB10.Left =
Me.ChkB1.Left
Me.ChkB11.Left =
Me.ChkB1.Left
Me.ChkB12.Left =
Me.ChkB1.Left
Me.ChkB13.Left =
Me.ChkB1.Left
Me.ChkB14.Left =
Me.ChkB1.Left
Me.ChkB15.Left =
Me.ChkB1.Left
Me.ChkB16.Left =
Me.ChkB1.Left
Me.ChkB17.Left =
Me.ChkB1.Left
Me.ChkB18.Left =
Me.ChkB1.Left
Me.ChkB19.Left =
Me.ChkB1.Left
Me.ChkB20.Left =
Me.ChkB1.Left
Me.ChkB21.Left =
Me.ChkB1.Left
Me.ChkB22.Left =
Me.ChkB1.Left
Me.ChkB23.Left =
Me.ChkB1.Left
Me.ChkB24.Left =
Me.ChkB1.Left
Me.StxB1.Left =
Me.ChkB1.Left
Me.StxB2.Left =
Me.ChkB1.Left
Me.StxB3.Left =
Me.ChkB1.Left
Me.StxB4.Left =
Me.ChkB1.Left
Me.StxB5.Left =
Me.ChkB1.Left
Me.StxB6.Left =
Me.ChkB1.Left
Me.StxB7.Left =
Me.ChkB1.Left
Me.StxB8.Left =
Me.ChkB1.Left
Me.StxB9.Left =
Me.ChkB1.Left
Me.StxB10.Left =
Me.ChkB1.Left
Me.StxB11.Left =
Me.ChkB1.Left
Me.StxB12.Left =
Me.ChkB1.Left
Me.StxB13.Left =
Me.ChkB1.Left
Me.StxB14.Left =
Me.ChkB1.Left
Me.StxB15.Left =
Me.ChkB1.Left
Me.StxB16.Left =
Me.ChkB1.Left
Me.StxB17.Left =
Me.ChkB1.Left
Me.StxB18.Left =
Me.ChkB1.Left
Me.StxB19.Left =
Me.ChkB1.Left
Me.StxB20.Left =
Me.ChkB1.Left
Me.StxB21.Left =
Me.ChkB1.Left
Me.StxB22.Left =
Me.ChkB1.Left
Me.StxB23.Left =
Me.ChkB1.Left
Me.StxB24.Left =
Me.ChkB1.Left
Me.txid1.Top = Me.TxtB1.Top
Me.txid2.Top = Me.TxtB1.Top
Me.txid3.Top = Me.TxtB1.Top
Me.txid4.Top = Me.TxtB1.Top
Me.txid5.Top = Me.TxtB1.Top
Me.txid6.Top = Me.TxtB1.Top
Me.txid7.Top = Me.TxtB1.Top
Me.txid8.Top = Me.TxtB1.Top
Me.txid9.Top = Me.TxtB1.Top
Me.txid10.Top =
Me.TxtB1.Top
Me.txid11.Top =
Me.TxtB1.Top
Me.txid12.Top =
Me.TxtB1.Top
Me.txid13.Top =
Me.TxtB1.Top
Me.txid14.Top =
Me.TxtB1.Top
Me.txid15.Top =
Me.TxtB1.Top
Me.txid16.Top =
Me.TxtB1.Top
Me.txid17.Top =
Me.TxtB1.Top
Me.txid18.Top =
Me.TxtB1.Top
Me.txid19.Top =
Me.TxtB1.Top
Me.txid20.Top =
Me.TxtB1.Top
Me.txid21.Top =
Me.TxtB1.Top
Me.txid22.Top =
Me.TxtB1.Top
Me.txid23.Top =
Me.TxtB1.Top
Me.txid24.Top =
Me.TxtB1.Top
Me.btn_ok.Top =
Me.PBox1.Height - (Me.btn_ok.Height
+ 2)
End Sub
Private Sub
agenda_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Activated
If Active_Flag =
True Then
Active_Flag = False
'load agenda
table, objAgendadset dataset
LoadDataSet()
'current date
Me.Chckmonth.Checked = True
Me.Chckyear.Checked = True
' default value
of v_currentyear and v_currentmonth
v_currentmonth = 1
v_currentyear = 1
sub_currentdate(v_currentmonth, v_currentyear)
'load task &
appointment values
current_date = Format(Date .Now,
"M/d/yyyy")
appoint_date =
System.Convert.ToDateTime(current_date)
load_value(current_date)
appoint_date =
Date.Now
Me.ltoday.Focus()
End If
End Sub
'load agenda
table, objAgendadset dataset
Private Sub
LoadDataSet()
Try
Me.LoadDataSet1()
Catch eLoad As
System.Exception
System.Windows.Forms.MessageBox.Show(eLoad.Message)
End Try
End Sub
Private
Sub
LoadDataSet1()
Dim
objDataSetTemp As
work_VBNet.Agendadset
objDataSetTemp =
New work_VBNet.Agendadset
Try
Me.FillDataSet(objDataSetTemp)
Catch
eFillDataSet As
System.Exception
Throw
eFillDataSet
End
Try
Try
Me.objAgendadset.Clear()
Me.objAgendadset.Merge(objDataSetTemp)
Catch
eLoadMerge As
System.Exception
Throw
eLoadMerge
End
Try
End
Sub
Public
Sub
FillDataSet(ByVal
dataSet As
work_VBNet.Agendadset)
'Turn off
constraint checking before the dataset is filled.
'This allows the
adapters to fill the dataset without concern
'for dependencies
between the tables.
dataSet.EnforceConstraints =
False
Try
'Open the
connection.
Me.OleDbConnection1.Open()
'Attempt to fill
the dataset through the OleDbDataAdapter1.
Me.OleDbDataAdapter1.Fill(dataSet)
Catch
fillException As
System.Exception
'Add your error
handling code here.
Throw
fillException
Finally
'Turn constraint
checking back on.
dataSet.EnforceConstraints =
True
'Close the
connection whether or not the exception was thrown.
Me.OleDbConnection1.Close()
End
Try
End
Sub
Private Sub sub_currentdate(ByVal current_month As
Integer, ByVal current_year As Integer )
Dim vvrc As
Integer
vselect1 = New
OleDb.OleDbCommand("SELECT DISTINCT agenda.ondate,
agenda.ondate_d, agenda.ondate_m, agenda.ondate_y
FROM(agenda)WHERE(((agenda.entry_type) = '" + "A" + "')
And ((agenda.description) <> '" + "" + "'))ORDER BY
agenda.ondate")
vda1 =
New
OleDb.OleDbDataAdapter(vselect1)
vdset1 =
New
DataSet
vselect1.Connection() =
Me.OleDbConnection1
' Select command
vselect1.CommandTimeout = 30
vdset1.EnforceConstraints =
False
Try
Me.OleDbConnection1.Open()
vda1.Fill(vdset1, "agenda")
Catch
fillException As
System.Exception
System.Windows.Forms.MessageBox.Show(fillException.Message)
End Try
vdset1.EnforceConstraints = True
Me.OleDbConnection1.Close()
Me.cmb_correspond.Items.Clear()
If
(vdset1.Tables("agenda").Rows.Count > 0) Then
For vvrc = 0 To
(vdset1.Tables("agenda").Rows.Count - 1)
Select Case
v_currentyear
Case
1
Select Case
current_month
Case 1 'current
year=1 , current month=1
If
((Trim(vdset1.Tables("agenda").Rows(vvrc).Item("ondate_y"))
= Trim(Format(Date.Now, "yyyy"))) And
(Trim(vdset1.Tables("agenda").Rows(vvrc).Item("ondate_m"))
= Trim(Format(Date.Now, "MM")))) Then
Me.cmb_correspond.Items.Add(Format(vdset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy"))
End If
Case Else
'current year=1 , current month >1
If
vdset1.Tables("agenda").Rows(vvrc).Item("ondate_y") =
Format(Date.Now, "yyyy") Then Me.cmb_correspond.Items.Add(Format(vdset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy"))
End Select
Case Else
Select Case
current_month
Case 1 'current
year > 1 , current month = 1
If
vdset1.Tables("agenda").Rows(vvrc).Item("ondate_m") =
Format(Date.Now, "MM") Then
Me.cmb_correspond.Items.Add(Format(vdset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy"))
End If
Case Else
'current year > 1 , current month > 1
Me.cmb_correspond.Items.Add(Format(vdset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy"))
End Select
End Select
Next
End If
End Sub
Private Sub
load_value(ByVal v_date As String)
Dim vondate_d As
String, vondate_m As String, vondate_y As String
Dim emptyA_flag
As Boolean, emptyB_flag As Boolean
Dim entrytype_A
As Integer, entrytype_T As Integer
Dim i As Integer
entrytype_A = 0
entrytype_T = 0
emptyA_flag =
False 'task
emptyB_flag = False 'appointment
Me.ltoday.Text
= FormatDateTime(System.Convert.ToDateTime(v_date),
DateFormat.LongDate)
'appointment
'test if it
available to add new appointmement with this current date
If (System.Convert.ToDateTime(current_date).Day
> 0 And System.Convert.ToDateTime(current_date).Day < 10)
Then
vondate_d = "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
vondate_d =
Trim(Str(System.Convert.ToDateTime(current_date).Day))
End If
If (System.Convert.ToDateTime(current_date).Month
> 0 And System.Convert.ToDateTime(current_date).Month <
10) Then
vondate_m = "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
vondate_m =
Trim(Str(System.Convert.ToDateTime(current_date).Month))
End If
vondate_y =
Trim(Str(System.Convert.ToDateTime(current_date).Year))
'load agenda
table, order by serialno field
sub_loaddata("A", vondate_d,
vondate_m, vondate_y)
If
vdset1.Tables("agenda").Rows.Count > 0 Then
For vvrec = 0 To
(vdset1.Tables("agenda").Rows.Count - 1)
entrytype_A = entrytype_A + 1
Select Case
entrytype_A
Case
1
Me.TxtC1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid1.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
2
Me.TxtC2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid2.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
3
Me.TxtC3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid3.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
4
Me.TxtC4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid4.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
5
Me.TxtC5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid5.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
6
Me.TxtC6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid6.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
7
Me.TxtC7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid7.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
8
Me.TxtC8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid8.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
9
Me.TxtC9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid9.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
10
Me.TxtC10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid10.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
11
Me.TxtC11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid11.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
12
Me.TxtC12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid12.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
13
Me.TxtC13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid13.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
14
Me.TxtC14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid14.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
15
Me.TxtC15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid15.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
16
Me.TxtC16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid16.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
17
Me.TxtC17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid17.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
18
Me.TxtC18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid18.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
19
Me.TxtC19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid19.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
20
Me.TxtC20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid20.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
21
Me.TxtC21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid21.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
22
Me.TxtC22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid22.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
23
Me.TxtC23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid23.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
24
Me.TxtC24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid24.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
End Select
emptyB_flag = True
Next
Me.lappoint.Text
= Str(vdset1.Tables("agenda").Rows.Count) + "
appointment(s)"
End If
If
vdset1.Tables("agenda").Rows.Count = 0 Then Me.lappoint.Text
= " appointment"
'task
sub_loaddata("T", "", "", "")
If
vdset1.Tables("agenda").Rows.Count > 0 Then
For vvrec = 0 To
(vdset1.Tables("agenda").Rows.Count - 1)
entrytype_T = entrytype_T + 1
Select Case
entrytype_T
Case
1
Me.PTxA1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA1,
vvrec)
Me.TxtA1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
2
Me.PTxA2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA2,
vvrec)
Me.TxtA2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
3
Me.PTxA3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA3,
vvrec)
Me.TxtA3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
4
Me.PTxA4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA4,
vvrec)
Me.TxtA4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
5
Me.PTxA5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA5,
vvrec)
Me.TxtA5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
6
Me.PTxA6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA6,
vvrec)
Me.TxtA6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
7
Me.PTxA7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA7,
vvrec)
Me.TxtA7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
8
Me.PTxA8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA8,
vvrec)
Me.TxtA8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
9
Me.PTxA9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA9,
vvrec)
Me.TxtA9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
10
Me.PTxA10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA10,
vvrec)
Me.TxtA10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
11
Me.PTxA11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA11,
vvrec)
Me.TxtA11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
12
Me.PTxA12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA12,
vvrec)
Me.TxtA12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
13
Me.PTxA13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA13,
vvrec)
Me.TxtA13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
14
Me.PTxA14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA14,
vvrec)
Me.TxtA14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
15
Me.PTxA15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA15,
vvrec)
Me.TxtA15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
16
Me.PTxA16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA16,
vvrec)
Me.TxtA16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
17
Me.PTxA17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA17,
vvrec)
Me.TxtA17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
18
Me.PTxA18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA18,
vvrec)
Me.TxtA18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
19
Me.PTxA19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA19,
vvrec)
Me.TxtA19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
20
Me.PTxA20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA20,
vvrec)
Me.TxtA20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
21
Me.PTxA21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA21,
vvrec)
Me.TxtA21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
22
Me.PTxA22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA22,
vvrec)
Me.TxtA22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
23
Me.PTxA23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA23,
vvrec)
Me.TxtA23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
24
Me.PTxA24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority(Me .PicA24,
vvrec)
Me.TxtA24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
End Select
emptyA_flag = True
Next
Me.ltask.Text
= Str(vdset1.Tables("agenda").Rows.Count) + " task(s)"
End If
If
vdset1.Tables("agenda").Rows.Count = 0 Then Me.ltask.Text
= " task"
'task
For i = 1 To
entrytype_T
sub_visible( True,
i, "T")
Next
For i =
entrytype_T + 1 To
24
sub_visible( False,
i, "T")
Next
'scrollBar ...
Me.VScrollBarA1.Maximum
= entrytype_T - 1
Me.VScrollBarA1.LargeChange
= 12
Me.VScrollBarA1.SmallChange
= 12
If entrytype_T >
0 Then Me.VScrollBarA1.Value
= 0
If emptyA_flag
Then
Me.PicA_empty.Visible = False
Else
Me.PicA_empty.Visible = True
End If
sub_VScrollA1(Me .VScrollBarA1.Value)
'appointment
For i = 1 To
entrytype_A
sub_visible( True,
i, "A")
Next
For i =
entrytype_A + 1 To
24
sub_visible( False,
i, "A")
Next
'scrollBar ...
Me.VScrollBarB1.Maximum
= entrytype_A - 1
Me.VScrollBarB1.LargeChange
= 12
Me.VScrollBarB1.SmallChange
= 12
If entrytype_A >
0 Then Me.VScrollBarB1.Value
= 0
If emptyB_flag
Then
Me.PicB_empty.Visible = False
Else
Me.PicB_empty.Visible = True
End If
sub_VScrollB1(Me .VScrollBarB1.Value)
emptyA_flag =
False
emptyB_flag = False
End Sub
Private Sub
pic_taskprirority(ByVal v_PictureBox As PictureBox, ByVal
v_vrec As Integer)
'this.PicA1,
vvrec)
Select Case
vdset1.Tables("agenda").Rows(v_vrec).Item("taskprirority")
Case
"H"
v_PictureBox.Image =
Image.FromFile(current_path & "\pic\p_high.bmp")
Case
"N"
v_PictureBox.Image =
Image.FromFile(current_path & "\pic\p_normal.bmp")
Case
"L"
v_PictureBox.Image =
Image.FromFile(current_path + "\pic\p_low.bmp")
End Select
End Sub
Private Sub
sub_visible(ByVal bval As Boolean, ByVal v_serialno As
Integer, ByVal v_entrytype As String)
Select Case
v_entrytype
Case
"T"
Select Case
v_serialno
Case
1
Me.PTxA1.Visible
= bval
Me.PicA1.Visible
= bval
Me.TxtA1.Visible
= bval
Me.PanA1.Visible
= bval
Me.BtnA1.Visible
= bval
Me.ChkA1.Visible
= bval
Me.StxA1.Visible
= bval
Case
2
Me.PTxA2.Visible
= bval
Me.PicA2.Visible
= bval
Me.TxtA2.Visible
= bval
Me.PanA2.Visible
= bval
Me.BtnA2.Visible
= bval
Me.ChkA2.Visible
= bval
Me.StxA2.Visible
= bval
Case
3
Me.PTxA3.Visible
= bval
Me.PicA3.Visible
= bval
Me.TxtA3.Visible
= bval
Me.PanA3.Visible
= bval
Me.BtnA3.Visible
= bval
Me.ChkA3.Visible
= bval
Me.StxA3.Visible
= bval
Case
4
Me.PTxA4.Visible
= bval
Me.PicA4.Visible
= bval
Me.TxtA4.Visible
= bval
Me.PanA4.Visible
= bval
Me.BtnA4.Visible
= bval
Me.ChkA4.Visible
= bval
Me.StxA4.Visible
= bval
Case
5
Me.PTxA5.Visible
= bval
Me.PicA5.Visible
= bval
Me.TxtA5.Visible
= bval
Me.PanA5.Visible
= bval
Me.BtnA5.Visible
= bval
Me.ChkA5.Visible
= bval
Me.StxA5.Visible
= bval
Case
6
Me.PTxA6.Visible
= bval
Me.PicA6.Visible
= bval
Me.TxtA6.Visible
= bval
Me.PanA6.Visible
= bval
Me.BtnA6.Visible
= bval
Me.ChkA6.Visible
= bval
Me.StxA6.Visible
= bval
Case
7
Me.PTxA7.Visible
= bval
Me.PicA7.Visible
= bval
Me.TxtA7.Visible
= bval
Me.PanA7.Visible
= bval
Me.BtnA7.Visible
= bval
Me.ChkA7.Visible
= bval
Me.StxA7.Visible
= bval
Case
8
Me.PTxA8.Visible
= bval
Me.PicA8.Visible
= bval
Me.TxtA8.Visible
= bval
Me.PanA8.Visible
= bval
Me.BtnA8.Visible
= bval
Me.ChkA8.Visible
= bval
Me.StxA8.Visible
= bval
Case
9
Me.PTxA9.Visible
= bval
Me.PicA9.Visible
= bval
Me.TxtA9.Visible
= bval
Me.PanA9.Visible
= bval
Me.BtnA9.Visible
= bval
Me.ChkA9.Visible
= bval
Me.StxA9.Visible
= bval
Case
10
Me.PTxA10.Visible
= bval
Me.PTxA1.Visible
= bval
Me.PicA10.Visible
= bval
Me.TxtA10.Visible
= bval
Me.PanA10.Visible
= bval
Me.BtnA10.Visible
= bval
Me.ChkA10.Visible
= bval
Me.StxA10.Visible
= bval
Case
11
Me.PTxA11.Visible
= bval
Me.PicA11.Visible
= bval
Me.TxtA11.Visible
= bval
Me.PanA11.Visible
= bval
Me.BtnA11.Visible
= bval
Me.ChkA11.Visible
= bval
Me.StxA11.Visible
= bval
Case
12
Me.PTxA12.Visible
= bval
Me.PicA12.Visible
= bval
Me.TxtA12.Visible
= bval
Me.PanA12.Visible
= bval
Me.BtnA12.Visible
= bval
Me.ChkA12.Visible
= bval
Me.StxA12.Visible
= bval
Case
13
Me.PTxA13.Visible
= bval
Me.PicA13.Visible
= bval
Me.TxtA13.Visible
= bval
Me.PanA13.Visible
= bval
Me.BtnA13.Visible
= bval
Me.ChkA13.Visible
= bval
Me.StxA13.Visible
= bval
Case
14
Me.PTxA14.Visible
= bval
Me.PicA14.Visible
= bval
Me.TxtA14.Visible
= bval
Me.PanA14.Visible
= bval
Me.BtnA14.Visible
= bval
Me.ChkA14.Visible
= bval
Me.StxA14.Visible
= bval
Case
15
Me.PTxA15.Visible
= bval
Me.PicA15.Visible
= bval
Me.TxtA15.Visible
= bval
Me.PanA15.Visible
= bval
Me.BtnA15.Visible
= bval
Me.ChkA15.Visible
= bval
Me.StxA15.Visible
= bval
Case
16
Me.PTxA16.Visible
= bval
Me.PicA16.Visible
= bval
Me.TxtA16.Visible
= bval
Me.PanA16.Visible
= bval
Me.BtnA16.Visible
= bval
Me.ChkA16.Visible
= bval
Me.StxA16.Visible
= bval
Case
17
Me.PTxA17.Visible
= bval
Me.PicA17.Visible
= bval
Me.TxtA17.Visible
= bval
Me.PanA17.Visible
= bval
Me.BtnA17.Visible
= bval
Me.ChkA17.Visible
= bval
Me.StxA17.Visible
= bval
Case
18
Me.PTxA18.Visible
= bval
Me.PicA18.Visible
= bval
Me.TxtA18.Visible
= bval
Me.PanA18.Visible
= bval
Me.BtnA18.Visible
= bval
Me.ChkA18.Visible
= bval
Me.StxA18.Visible
= bval
Case
19
Me.PTxA19.Visible
= bval
Me.PicA19.Visible
= bval
Me.TxtA19.Visible
= bval
Me.PanA19.Visible
= bval
Me.BtnA19.Visible
= bval
Me.ChkA19.Visible
= bval
Me.StxA19.Visible
= bval
Case
20
Me.PTxA20.Visible
= bval
Me.PicA20.Visible
= bval
Me.TxtA20.Visible
= bval
Me.PanA20.Visible
= bval
Me.BtnA20.Visible
= bval
Me.ChkA20.Visible
= bval
Me.StxA20.Visible
= bval
Case
21
Me.PTxA21.Visible
= bval
Me.PicA21.Visible
= bval
Me.TxtA21.Visible
= bval
Me.PanA21.Visible
= bval
Me.BtnA21.Visible
= bval
Me.ChkA21.Visible
= bval
Me.StxA21.Visible
= bval
Case
22
Me.PTxA22.Visible
= bval
Me.PicA22.Visible
= bval
Me.TxtA22.Visible
= bval
Me.PanA22.Visible
= bval
Me.BtnA22.Visible
= bval
Me.ChkA22.Visible
= bval
Me.StxA22.Visible
= bval
Case
23
Me.PTxA23.Visible
= bval
Me.PicA23.Visible
= bval
Me.TxtA23.Visible
= bval
Me.PanA23.Visible
= bval
Me.BtnA23.Visible
= bval
Me.ChkA23.Visible
= bval
Me.StxA23.Visible
= bval
Case
24
Me.PTxA24.Visible
= bval
Me.PicA24.Visible
= bval
Me.TxtA24.Visible
= bval
Me.PanA24.Visible
= bval
Me.BtnA24.Visible
= bval
Me.ChkA24.Visible
= bval
Me.StxA24.Visible
= bval
End Select
Case
"A"
Select Case
v_serialno
Case
1
Me.TxtC1.Visible
= bval
Me.TxtB1.Visible
= bval
Me.PanB1.Visible
= bval
Me.BtnB1.Visible
= bval
Me.ChkB1.Visible
= bval
Me.StxB1.Visible
= bval
Case
2
Me.TxtC2.Visible
= bval
Me.TxtB2.Visible
= bval
Me.PanB2.Visible
= bval
Me.BtnB2.Visible
= bval
Me.ChkB2.Visible
= bval
Me.StxB2.Visible
= bval
Case
3
Me.TxtC3.Visible
= bval
Me.TxtB3.Visible
= bval
Me.PanB3.Visible
= bval
Me.BtnB3.Visible
= bval
Me.ChkB3.Visible
= bval
Me.StxB3.Visible
= bval
Case
4
Me.TxtC4.Visible
= bval
Me.TxtB4.Visible
= bval
Me.PanB4.Visible
= bval
Me.BtnB4.Visible
= bval
Me.ChkB4.Visible
= bval
Me.StxB4.Visible
= bval
Case
5
Me.TxtC5.Visible
= bval
Me.TxtB5.Visible
= bval
Me.PanB5.Visible
= bval
Me.BtnB5.Visible
= bval
Me.ChkB5.Visible
= bval
Me.StxB5.Visible
= bval
Case
6
Me.TxtC6.Visible
= bval
Me.TxtB6.Visible
= bval
Me.PanB6.Visible
= bval
Me.BtnB6.Visible
= bval
Me.ChkB6.Visible
= bval
Me.StxB6.Visible
= bval
Case
7
Me.TxtC7.Visible
= bval
Me.TxtB7.Visible
= bval
Me.PanB7.Visible
= bval
Me.BtnB7.Visible
= bval
Me.ChkB7.Visible
= bval
Me.StxB7.Visible
= bval
Case
8
Me.TxtC8.Visible
= bval
Me.TxtB8.Visible
= bval
Me.PanB8.Visible
= bval
Me.BtnB8.Visible
= bval
Me.ChkB8.Visible
= bval
Me.StxB8.Visible
= bval
Case
9
Me.TxtC9.Visible
= bval
Me.TxtB9.Visible
= bval
Me.PanB9.Visible
= bval
Me.BtnB9.Visible
= bval
Me.ChkB9.Visible
= bval
Me.StxB9.Visible
= bval
Case
10
Me.TxtC10.Visible
= bval
Me.TxtB10.Visible
= bval
Me.PanB10.Visible
= bval
Me.BtnB10.Visible
= bval
Me.ChkB10.Visible
= bval
Me.StxB10.Visible
= bval
Case
11
Me.TxtC11.Visible
= bval
Me.TxtB11.Visible
= bval
Me.PanB11.Visible
= bval
Me.BtnB11.Visible
= bval
Me.ChkB11.Visible
= bval
Me.StxB11.Visible
= bval
Case
12
Me.TxtC12.Visible
= bval
Me.TxtB12.Visible
= bval
Me.PanB12.Visible
= bval
Me.BtnB12.Visible
= bval
Me.ChkB12.Visible
= bval
Me.StxB12.Visible
= bval
Case
13
Me.TxtC13.Visible
= bval
Me.TxtB13.Visible
= bval
Me.PanB13.Visible
= bval
Me.BtnB13.Visible
= bval
Me.ChkB13.Visible
= bval
Me.StxB13.Visible
= bval
Case
14
Me.TxtC14.Visible
= bval
Me.TxtB14.Visible
= bval
Me.PanB14.Visible
= bval
Me.BtnB14.Visible
= bval
Me.ChkB14.Visible
= bval
Me.StxB14.Visible
= bval
Case
15
Me.TxtC15.Visible
= bval
Me.TxtB15.Visible
= bval
Me.PanB15.Visible
= bval
Me.BtnB15.Visible
= bval
Me.ChkB15.Visible
= bval
Me.StxB15.Visible
= bval
Case
16
Me.TxtC16.Visible
= bval
Me.TxtB16.Visible
= bval
Me.PanB16.Visible
= bval
Me.BtnB16.Visible
= bval
Me.ChkB16.Visible
= bval
Me.StxB16.Visible
= bval
Case
17
Me.TxtC17.Visible
= bval
Me.TxtB17.Visible
= bval
Me.PanB17.Visible
= bval
Me.BtnB17.Visible
= bval
Me.ChkB17.Visible
= bval
Me.StxB17.Visible
= bval
Case
18
Me.TxtC18.Visible
= bval
Me.TxtB18.Visible
= bval
Me.PanB18.Visible
= bval
Me.BtnB18.Visible
= bval
Me.ChkB18.Visible
= bval
Me.StxB18.Visible
= bval
Case
19
Me.TxtC19.Visible
= bval
Me.TxtB19.Visible
= bval
Me.PanB19.Visible
= bval
Me.BtnB19.Visible
= bval
Me.ChkB19.Visible
= bval
Me.StxB19.Visible
= bval
Case
20
Me.TxtC20.Visible
= bval
Me.TxtB20.Visible
= bval
Me.PanB20.Visible
= bval
Me.BtnB20.Visible
= bval
Me.ChkB20.Visible
= bval
Me.StxB20.Visible
= bval
Case
21
Me.TxtC21.Visible
= bval
Me.TxtB21.Visible
= bval
Me.PanB21.Visible
= bval
Me.BtnB21.Visible
= bval
Me.ChkB21.Visible
= bval
Me.StxB21.Visible
= bval
Case
22
Me.TxtC22.Visible
= bval
Me.TxtB22.Visible
= bval
Me.PanB22.Visible
= bval
Me.BtnB22.Visible
= bval
Me.ChkB22.Visible
= bval
Me.StxB22.Visible
= bval
Case
23
Me.TxtC23.Visible
= bval
Me.TxtB23.Visible
= bval
Me.PanB23.Visible
= bval
Me.BtnB23.Visible
= bval
Me.ChkB23.Visible
= bval
Me.StxB23.Visible
= bval
Case
24
Me.TxtC24.Visible
= bval
Me.TxtB24.Visible
= bval
Me.PanB24.Visible
= bval
Me.BtnB24.Visible
= bval
Me.ChkB24.Visible
= bval
Me.StxB24.Visible
= bval
End Select
End Select
End Sub
'
**************************** ScrollBar
****************************
Private Sub
VScrollBarA1_Scroll(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.ScrollEventArgs) Handles
VScrollBarA1.Scroll
sub_VScrollA1( Me.VScrollBarA1.Value)
End Sub
Private Sub
VScrollBarB1_Scroll(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.ScrollEventArgs) Handles
VScrollBarB1.Scroll
sub_VScrollB1( Me.VScrollBarB1.Value)
End Sub
Private Sub
sub_VScrollA1(ByVal
val_VScrollA1 As Integer)
Select Case val_VScrollA1
Case 0
Me.PanA1.Top
= v_PanA1
Me.PTxA1.Top
= Me.PicA1.Top
Me.PicA1.Top
= v_PanA1 - v_PicA
Me.TxtA1.Top
= v_PanA1 - v_TxtA
Me.BtnA1.Top
= v_PanA1 - v_BtnA
Me.ChkA1.Top
= v_PanA1 - v_chk
Me.StxA1.Top
= v_PanA1 - v_chk
Me.PanA2.Top
= Me.PanA1.Top +
24
Me.PTxA2.Top
= Me.PicA2.Top
Me.PicA2.Top
= Me.PanA2.Top -
v_PicA
Me.TxtA2.Top
= Me.PanA2.Top -
v_TxtA
Me.BtnA2.Top
= Me.PanA2.Top -
v_BtnA
Me.ChkA2.Top
= Me.PanA2.Top -
v_chk
Me.StxA2.Top
= Me.PanA2.Top -
v_chk
Me.PanA3.Top
= Me.PanA2.Top +
24
Me.PTxA3.Top
= Me.PicA3.Top
Me.PicA3.Top
= Me.PanA3.Top -
v_PicA
Me.TxtA3.Top
= Me.PanA3.Top -
v_TxtA
Me.BtnA3.Top
= Me.PanA3.Top -
v_BtnA
Me.ChkA3.Top
= Me.PanA3.Top -
v_chk
Me.StxA3.Top
= Me.PanA3.Top -
v_chk
Me.PanA4.Top
= Me.PanA3.Top +
24
Me.PTxA4.Top
= Me.PicA4.Top
Me.PicA4.Top
= Me.PanA4.Top -
v_PicA
Me.TxtA4.Top
= Me.PanA4.Top -
v_TxtA
Me.BtnA4.Top
= Me.PanA4.Top -
v_BtnA
Me.ChkA4.Top
= Me.PanA4.Top -
v_chk
Me.StxA4.Top
= Me.PanA4.Top -
v_chk
Me.PanA5.Top
= Me.PanA4.Top +
24
Me.PTxA5.Top
= Me.PicA5.Top
Me.PicA5.Top
= Me.PanA5.Top -
v_PicA
Me.TxtA5.Top
= Me.PanA5.Top -
v_TxtA
Me.BtnA5.Top
= Me.PanA5.Top -
v_BtnA
Me.ChkA5.Top
= Me.PanA5.Top -
v_chk
Me.StxA5.Top
= Me.PanA5.Top -
v_chk
Me.PanA6.Top
= Me.PanA5.Top +
24
Me.PTxA6.Top
= Me.PicA6.Top
Me.PicA6.Top
= Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
= Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
= Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
= Me.PanA6.Top -
v_chk
Me.StxA6.Top
= Me.PanA6.Top -
v_chk
Me.PanA7.Top
= Me.PanA6.Top +
24
Me.PTxA7.Top
= Me.PicA7.Top
Me.PicA7.Top
= Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
= Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
= Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
= Me.PanA7.Top -
v_chk
Me.StxA7.Top
= Me.PanA7.Top -
v_chk
Me.PanA8.Top
= Me.PanA7.Top +
24
Me.PTxA8.Top
= Me.PicA8.Top
Me.PicA8.Top
= Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
= Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
= Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
= Me.PanA8.Top -
v_chk
Me.StxA8.Top
= Me.PanA8.Top -
v_chk
Me.PanA9.Top
= Me.PanA8.Top +
24
Me.PTxA9.Top
= Me.PicA9.Top
Me.PicA9.Top
= Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
= Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
= Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
= Me.PanA9.Top -
v_chk
Me.StxA9.Top
= Me.PanA9.Top -
v_chk
Me.PanA10.Top
= Me.PanA9.Top +
24
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= Me.PanA10.Top
- v_PicA
Me.TxtA10.Top
= Me.PanA10.Top
- v_TxtA
Me.BtnA10.Top
= Me.PanA10.Top
- v_BtnA
Me.ChkA10.Top
= Me.PanA10.Top
- v_chk
Me.StxA10.Top
= Me.PanA10.Top
- v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 1
Me.PanA2.Top
= v_PanA1
Me.PTxA2.Top
= Me.PicA2.Top
Me.PicA2.Top
= v_PanA1 - v_PicA
Me.TxtA2.Top
= v_PanA1 - v_TxtA
Me.BtnA2.Top
= v_PanA1 - v_BtnA
Me.ChkA2.Top
= v_PanA1 - v_chk
Me.StxA2.Top
= v_PanA1 - v_chk
Me.PanA3.Top
= Me.PanA2.Top +
24
Me.PTxA3.Top
= Me.PicA3.Top
Me.PicA3.Top
= Me.PanA3.Top -
v_PicA
Me.TxtA3.Top
= Me.PanA3.Top -
v_TxtA
Me.BtnA3.Top
= Me.PanA3.Top -
v_BtnA
Me.ChkA3.Top
= Me.PanA3.Top -
v_chk
Me.StxA3.Top
= Me.PanA3.Top -
v_chk
Me.PanA4.Top
= Me.PanA3.Top +
24
Me.PTxA4.Top
= Me.PicA4.Top
Me.PicA4.Top
= Me.PanA4.Top -
v_PicA
Me.TxtA4.Top
= Me.PanA4.Top -
v_TxtA
Me.BtnA4.Top
= Me.PanA4.Top -
v_BtnA
Me.ChkA4.Top
= Me.PanA4.Top -
v_chk
Me.StxA4.Top
= Me.PanA4.Top -
v_chk
Me.PanA5.Top
= Me.PanA4.Top +
24
Me.PTxA5.Top
= Me.PicA5.Top
Me.PicA5.Top
= Me.PanA5.Top -
v_PicA
Me.TxtA5.Top
= Me.PanA5.Top -
v_TxtA
Me.BtnA5.Top
= Me.PanA5.Top -
v_BtnA
Me.ChkA5.Top
= Me.PanA5.Top -
v_chk
Me.StxA5.Top
= Me.PanA5.Top -
v_chk
Me.PanA6.Top
= Me.PanA5.Top +
24
Me.PTxA6.Top
= Me.PicA6.Top
Me.PicA6.Top
= Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
= Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
= Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
= Me.PanA6.Top -
v_chk
Me.StxA6.Top
= Me.PanA6.Top -
v_chk
Me.PanA7.Top
= Me.PanA6.Top +
24
Me.PTxA7.Top
= Me.PicA7.Top
Me.PicA7.Top
= Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
= Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
= Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
= Me.PanA7.Top -
v_chk
Me.StxA7.Top
= Me.PanA7.Top -
v_chk
Me.PanA8.Top
= Me.PanA7.Top +
24
Me.PTxA8.Top
= Me.PicA8.Top
Me.PicA8.Top
= Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
= Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
= Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
= Me.PanA8.Top -
v_chk
Me.StxA8.Top
= Me.PanA8.Top -
v_chk
Me.PanA9.Top
= Me.PanA8.Top +
24
Me.PTxA9.Top
= Me.PicA9.Top
Me.PicA9.Top
= Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
= Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
= Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
= Me.PanA9.Top -
v_chk
Me.StxA9.Top
= Me.PanA9.Top -
v_chk
Me.PanA10.Top
= Me.PanA9.Top +
24
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= Me.PanA10.Top
- v_PicA
Me.TxtA10.Top
= Me.PanA10.Top
- v_TxtA
Me.BtnA10.Top
= Me.PanA10.Top
- v_BtnA
Me.ChkA10.Top
= Me.PanA10.Top
- v_chk
Me.StxA10.Top
= Me.PanA10.Top
- v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 2
Me.PanA3.Top
= v_PanA1
Me.PTxA3.Top
= Me.PicA3.Top
Me.PicA3.Top
= v_PanA1 - v_PicA
Me.TxtA3.Top
= v_PanA1 - v_TxtA
Me.BtnA3.Top
= v_PanA1 - v_BtnA
Me.ChkA3.Top
= v_PanA1 - v_chk
Me.StxA3.Top
= v_PanA1 - v_chk
Me.PanA4.Top
= Me.PanA3.Top +
24
Me.PTxA4.Top
= Me.PicA4.Top
Me.PicA4.Top
= Me.PanA4.Top -
v_PicA
Me.TxtA4.Top
= Me.PanA4.Top -
v_TxtA
Me.BtnA4.Top
= Me.PanA4.Top -
v_BtnA
Me.ChkA4.Top
= Me.PanA4.Top -
v_chk
Me.StxA4.Top
= Me.PanA4.Top -
v_chk
Me.PanA5.Top
= Me.PanA4.Top +
24
Me.PTxA5.Top
= Me.PicA5.Top
Me.PicA5.Top
= Me.PanA5.Top -
v_PicA
Me.TxtA5.Top
= Me.PanA5.Top -
v_TxtA
Me.BtnA5.Top
= Me.PanA5.Top -
v_BtnA
Me.ChkA5.Top
= Me.PanA5.Top -
v_chk
Me.StxA5.Top
= Me.PanA5.Top -
v_chk
Me.PanA6.Top
= Me.PanA5.Top +
24
Me.PTxA6.Top
= Me.PicA6.Top
Me.PicA6.Top
= Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
= Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
= Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
= Me.PanA6.Top -
v_chk
Me.StxA6.Top
= Me.PanA6.Top -
v_chk
Me.PanA7.Top
= Me.PanA6.Top +
24
Me.PTxA7.Top
= Me.PicA7.Top
Me.PicA7.Top
= Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
= Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
= Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
= Me.PanA7.Top -
v_chk
Me.StxA7.Top
= Me.PanA7.Top -
v_chk
Me.PanA8.Top
= Me.PanA7.Top +
24
Me.PTxA8.Top
= Me.PicA8.Top
Me.PicA8.Top
= Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
= Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
= Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
= Me.PanA8.Top -
v_chk
Me.StxA8.Top
= Me.PanA8.Top -
v_chk
Me.PanA9.Top
= Me.PanA8.Top +
24
Me.PTxA9.Top
= Me.PicA9.Top
Me.PicA9.Top
= Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
= Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
= Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
= Me.PanA9.Top -
v_chk
Me.StxA9.Top
= Me.PanA9.Top -
v_chk
Me.PanA10.Top
= Me.PanA9.Top +
24
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= Me.PanA10.Top
- v_PicA
Me.TxtA10.Top
= Me.PanA10.Top
- v_TxtA
Me.BtnA10.Top
= Me.PanA10.Top
- v_BtnA
Me.ChkA10.Top
= Me.PanA10.Top
- v_chk
Me.StxA10.Top
= Me.PanA10.Top
- v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 3
Me.PanA4.Top
= v_PanA1
Me.PTxA4.Top
= Me.PicA4.Top
Me.PicA4.Top
= v_PanA1 - v_PicA
Me.TxtA4.Top
= v_PanA1 - v_TxtA
Me.BtnA4.Top
= v_PanA1 - v_BtnA
Me.ChkA4.Top
= v_PanA1 - v_chk
Me.StxA4.Top
= v_PanA1 - v_chk
Me.PanA5.Top
= Me.PanA4.Top +
24
Me.PTxA5.Top
= Me.PicA5.Top
Me.PicA5.Top
= Me.PanA5.Top -
v_PicA
Me.TxtA5.Top
= Me.PanA5.Top -
v_TxtA
Me.BtnA5.Top
= Me.PanA5.Top -
v_BtnA
Me.ChkA5.Top
= Me.PanA5.Top -
v_chk
Me.StxA5.Top
= Me.PanA5.Top -
v_chk
Me.PanA6.Top
= Me.PanA5.Top +
24
Me.PTxA6.Top
= Me.PicA6.Top
Me.PicA6.Top
= Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
= Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
= Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
= Me.PanA6.Top -
v_chk
Me.StxA6.Top
= Me.PanA6.Top -
v_chk
Me.PanA7.Top
= Me.PanA6.Top +
24
Me.PTxA7.Top
= Me.PicA7.Top
Me.PicA7.Top
= Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
= Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
= Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
= Me.PanA7.Top -
v_chk
Me.StxA7.Top
= Me.PanA7.Top -
v_chk
Me.PanA8.Top
= Me.PanA7.Top +
24
Me.PTxA8.Top
= Me.PicA8.Top
Me.PicA8.Top
= Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
= Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
= Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
= Me.PanA8.Top -
v_chk
Me.StxA8.Top
= Me.PanA8.Top -
v_chk
Me.PanA9.Top
= Me.PanA8.Top +
24
Me.PTxA9.Top
= Me.PicA9.Top
Me.PicA9.Top
= Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
= Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
= Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
= Me.PanA9.Top -
v_chk
Me.StxA9.Top
= Me.PanA9.Top -
v_chk
Me.PanA10.Top
= Me.PanA9.Top +
24
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= Me.PanA10.Top
- v_PicA
Me.TxtA10.Top
= Me.PanA10.Top
- v_TxtA
Me.BtnA10.Top
= Me.PanA10.Top
- v_BtnA
Me.ChkA10.Top
= Me.PanA10.Top
- v_chk
Me.StxA10.Top
= Me.PanA10.Top
- v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 4
Me.PanA5.Top
= v_PanA1
Me.PTxA5.Top
= Me.PicA5.Top
Me.PicA5.Top
= v_PanA1 - v_PicA
Me.TxtA5.Top
= v_PanA1 - v_TxtA
Me.BtnA5.Top
= v_PanA1 - v_BtnA
Me.ChkA5.Top
= v_PanA1 - v_chk
Me.StxA5.Top
= v_PanA1 - v_chk
Me.PanA6.Top
= Me.PanA5.Top +
24
Me.PTxA6.Top
= Me.PicA6.Top
Me.PicA6.Top
= Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
= Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
= Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
= Me.PanA6.Top -
v_chk
Me.StxA6.Top
= Me.PanA6.Top -
v_chk
Me.PanA7.Top
= Me.PanA6.Top +
24
Me.PTxA7.Top
= Me.PicA7.Top
Me.PicA7.Top
= Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
= Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
= Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
= Me.PanA7.Top -
v_chk
Me.StxA7.Top
= Me.PanA7.Top -
v_chk
Me.PanA8.Top
= Me.PanA7.Top +
24
Me.PTxA8.Top
= Me.PicA8.Top
Me.PicA8.Top
= Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
= Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
= Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
= Me.PanA8.Top -
v_chk
Me.StxA8.Top
= Me.PanA8.Top -
v_chk
Me.PanA9.Top
= Me.PanA8.Top +
24
Me.PTxA9.Top
= Me.PicA9.Top
Me.PicA9.Top
= Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
= Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
= Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
= Me.PanA9.Top -
v_chk
Me.StxA9.Top
= Me.PanA9.Top -
v_chk
Me.PanA10.Top
= Me.PanA9.Top +
24
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= Me.PanA10.Top
- v_PicA
Me.TxtA10.Top
= Me.PanA10.Top
- v_TxtA
Me.BtnA10.Top
= Me.PanA10.Top
- v_BtnA
Me.ChkA10.Top
= Me.PanA10.Top
- v_chk
Me.StxA10.Top
= Me.PanA10.Top
- v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 5
Me.PanA6.Top
= v_PanA1
Me.PTxA6.Top
= Me.PicA6.Top
Me.PicA6.Top
= v_PanA1 - v_PicA
Me.TxtA6.Top
= v_PanA1 - v_TxtA
Me.BtnA6.Top
= v_PanA1 - v_BtnA
Me.ChkA6.Top
= v_PanA1 - v_chk
Me.StxA6.Top
= v_PanA1 - v_chk
Me.PanA7.Top
= Me.PanA6.Top +
24
Me.PTxA7.Top
= Me.PicA7.Top
Me.PicA7.Top
= Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
= Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
= Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
= Me.PanA7.Top -
v_chk
Me.StxA7.Top
= Me.PanA7.Top -
v_chk
Me.PanA8.Top
= Me.PanA7.Top +
24
Me.PTxA8.Top
= Me.PicA8.Top
Me.PicA8.Top
= Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
= Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
= Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
= Me.PanA8.Top -
v_chk
Me.StxA8.Top
= Me.PanA8.Top -
v_chk
Me.PanA9.Top
= Me.PanA8.Top +
24
Me.PTxA9.Top
= Me.PicA9.Top
Me.PicA9.Top
= Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
= Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
= Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
= Me.PanA9.Top -
v_chk
Me.StxA9.Top
= Me.PanA9.Top -
v_chk
Me.PanA10.Top
= Me.PanA9.Top +
24
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= Me.PanA10.Top
- v_PicA
Me.TxtA10.Top
= Me.PanA10.Top
- v_TxtA
Me.BtnA10.Top
= Me.PanA10.Top
- v_BtnA
Me.ChkA10.Top
= Me.PanA10.Top
- v_chk
Me.StxA10.Top
= Me.PanA10.Top
- v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 6
Me.PanA7.Top
= v_PanA1
Me.PTxA7.Top
= Me.PicA7.Top
Me.PicA7.Top
= v_PanA1 - v_PicA
Me.TxtA7.Top
= v_PanA1 - v_TxtA
Me.BtnA7.Top
= v_PanA1 - v_BtnA
Me.ChkA7.Top
= v_PanA1 - v_chk
Me.StxA7.Top
= v_PanA1 - v_chk
Me.PanA8.Top
= Me.PanA7.Top +
24
Me.PTxA8.Top
= Me.PicA8.Top
Me.PicA8.Top
= Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
= Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
= Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
= Me.PanA8.Top -
v_chk
Me.StxA8.Top
= Me.PanA8.Top -
v_chk
Me.PanA9.Top
= Me.PanA8.Top +
24
Me.PTxA9.Top
= Me.PicA9.Top
Me.PicA9.Top
= Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
= Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
= Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
= Me.PanA9.Top -
v_chk
Me.StxA9.Top
= Me.PanA9.Top -
v_chk
Me.PanA10.Top
= Me.PanA9.Top +
24
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= Me.PanA10.Top
- v_PicA
Me.TxtA10.Top
= Me.PanA10.Top
- v_TxtA
Me.BtnA10.Top
= Me.PanA10.Top
- v_BtnA
Me.ChkA10.Top
= Me.PanA10.Top
- v_chk
Me.StxA10.Top
= Me.PanA10.Top
- v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 7
Me.PanA8.Top
= v_PanA1
Me.PTxA8.Top
= Me.PicA8.Top
Me.PicA8.Top
= v_PanA1 - v_PicA
Me.TxtA8.Top
= v_PanA1 - v_TxtA
Me.BtnA8.Top
= v_PanA1 - v_BtnA
Me.ChkA8.Top
= v_PanA1 - v_chk
Me.StxA8.Top
= v_PanA1 - v_chk
Me.PanA9.Top
= Me.PanA8.Top +
24
Me.PTxA9.Top
= Me.PicA9.Top
Me.PicA9.Top
= Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
= Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
= Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
= Me.PanA9.Top -
v_chk
Me.StxA9.Top
= Me.PanA9.Top -
v_chk
Me.PanA10.Top
= Me.PanA9.Top +
24
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= Me.PanA10.Top
- v_PicA
Me.TxtA10.Top
= Me.PanA10.Top
- v_TxtA
Me.BtnA10.Top
= Me.PanA10.Top
- v_BtnA
Me.ChkA10.Top
= Me.PanA10.Top
- v_chk
Me.StxA10.Top
= Me.PanA10.Top
- v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 8
Me.PanA9.Top
= v_PanA1
Me.PTxA9.Top
= Me.PicA9.Top
Me.PicA9.Top
= v_PanA1 - v_PicA
Me.TxtA9.Top
= v_PanA1 - v_TxtA
Me.BtnA9.Top
= v_PanA1 - v_BtnA
Me.ChkA9.Top
= v_PanA1 - v_chk
Me.StxA9.Top
= v_PanA1 - v_chk
Me.PanA10.Top
= Me.PanA9.Top +
24
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= Me.PanA10.Top
- v_PicA
Me.TxtA10.Top
= Me.PanA10.Top
- v_TxtA
Me.BtnA10.Top
= Me.PanA10.Top
- v_BtnA
Me.ChkA10.Top
= Me.PanA10.Top
- v_chk
Me.StxA10.Top
= Me.PanA10.Top
- v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 9
Me.PanA10.Top
= v_PanA1
Me.PTxA10.Top
= Me.PicA10.Top
Me.PicA10.Top
= v_PanA1 - v_PicA
Me.TxtA10.Top
= v_PanA1 - v_TxtA
Me.BtnA10.Top
= v_PanA1 - v_BtnA
Me.ChkA10.Top
= v_PanA1 - v_chk
Me.StxA10.Top
= v_PanA1 - v_chk
Me.PanA11.Top
= Me.PanA10.Top
+ 24
Me.PTxA11.Top
= Me.PicA11.Top
Me.PicA11.Top
= Me.PanA11.Top
- v_PicA
Me.TxtA11.Top
= Me.PanA11.Top
- v_TxtA
Me.BtnA11.Top
= Me.PanA11.Top
- v_BtnA
Me.ChkA11.Top
= Me.PanA11.Top
- v_chk
Me.StxA11.Top
= Me.PanA11.Top
- v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 10
Me.PanA11.Top
= v_PanA1
Me.PTxA11.Top
= Me.PicA10.Top
Me.PicA11.Top
= v_PanA1 - v_PicA
Me.TxtA11.Top
= v_PanA1 - v_TxtA
Me.BtnA11.Top
= v_PanA1 - v_BtnA
Me.ChkA11.Top
= v_PanA1 - v_chk
Me.StxA11.Top
= v_PanA1 - v_chk
Me.PanA12.Top
= Me.PanA11.Top
+ 24
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= Me.PanA12.Top
- v_PicA
Me.TxtA12.Top
= Me.PanA12.Top
- v_TxtA
Me.BtnA12.Top
= Me.PanA12.Top
- v_BtnA
Me.ChkA12.Top
= Me.PanA12.Top
- v_chk
Me.StxA12.Top
= Me.PanA12.Top
- v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 11
Me.PanA12.Top
= v_PanA1
Me.PTxA12.Top
= Me.PicA12.Top
Me.PicA12.Top
= v_PanA1 - v_PicA
Me.TxtA12.Top
= v_PanA1 - v_TxtA
Me.BtnA12.Top
= v_PanA1 - v_BtnA
Me.ChkA12.Top
= v_PanA1 - v_chk
Me.StxA12.Top
= v_PanA1 - v_chk
Me.PanA13.Top
= Me.PanA12.Top
+ 24
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= Me.PanA13.Top
- v_PicA
Me.TxtA13.Top
= Me.PanA13.Top
- v_TxtA
Me.BtnA13.Top
= Me.PanA13.Top
- v_BtnA
Me.ChkA13.Top
= Me.PanA13.Top
- v_chk
Me.StxA13.Top
= Me.PanA13.Top
- v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
Case 12
Me.PanA13.Top
= v_PanA1
Me.PTxA13.Top
= Me.PicA13.Top
Me.PicA13.Top
= v_PanA1 - v_PicA
Me.TxtA13.Top
= v_PanA1 - v_TxtA
Me.BtnA13.Top
= v_PanA1 - v_BtnA
Me.ChkA13.Top
= v_PanA1 - v_chk
Me.StxA13.Top
= v_PanA1 - v_chk
Me.PanA14.Top
= Me.PanA13.Top
+ 24
Me.PTxA14.Top
= Me.PicA14.Top
Me.PicA14.Top
= Me.PanA14.Top
- v_PicA
Me.TxtA14.Top
= Me.PanA14.Top
- v_TxtA
Me.BtnA14.Top
= Me.PanA14.Top
- v_BtnA
Me.ChkA14.Top
= Me.PanA14.Top
- v_chk
Me.StxA14.Top
= Me.PanA14.Top
- v_chk
Me.PanA15.Top
= Me.PanA14.Top
+ 24
Me.PTxA15.Top
= Me.PicA15.Top
Me.PicA15.Top
= Me.PanA15.Top
- v_PicA
Me.TxtA15.Top
= Me.PanA15.Top
- v_TxtA
Me.BtnA15.Top
= Me.PanA15.Top
- v_BtnA
Me.ChkA15.Top
= Me.PanA15.Top
- v_chk
Me.StxA15.Top
= Me.PanA15.Top
- v_chk
Me.PanA16.Top
= Me.PanA15.Top
+ 24
Me.PTxA16.Top
= Me.PicA16.Top
Me.PicA16.Top
= Me.PanA16.Top
- v_PicA
Me.TxtA16.Top
= Me.PanA16.Top
- v_TxtA
Me.BtnA16.Top
= Me.PanA16.Top
- v_BtnA
Me.ChkA16.Top
= Me.PanA16.Top
- v_chk
Me.StxA16.Top
= Me.PanA16.Top
- v_chk
Me.PanA17.Top
= Me.PanA16.Top
+ 24
Me.PTxA17.Top
= Me.PicA17.Top
Me.PicA17.Top
= Me.PanA17.Top
- v_PicA
Me.TxtA17.Top
= Me.PanA17.Top
- v_TxtA
Me.BtnA17.Top
= Me.PanA17.Top
- v_BtnA
Me.ChkA17.Top
= Me.PanA17.Top
- v_chk
Me.StxA17.Top
= Me.PanA17.Top
- v_chk
Me.PanA18.Top
= Me.PanA17.Top
+ 24
Me.PTxA18.Top
= Me.PicA18.Top
Me.PicA18.Top
= Me.PanA18.Top
- v_PicA
Me.TxtA18.Top
= Me.PanA18.Top
- v_TxtA
Me.BtnA18.Top
= Me.PanA18.Top
- v_BtnA
Me.ChkA18.Top
= Me.PanA18.Top
- v_chk
Me.StxA18.Top
= Me.PanA18.Top
- v_chk
Me.PanA19.Top
= Me.PanA18.Top
+ 24
Me.PTxA19.Top
= Me.PicA19.Top
Me.PicA19.Top
= Me.PanA19.Top
- v_PicA
Me.TxtA19.Top
= Me.PanA19.Top
- v_TxtA
Me.BtnA19.Top
= Me.PanA19.Top
- v_BtnA
Me.ChkA19.Top
= Me.PanA19.Top
- v_chk
Me.StxA19.Top
= Me.PanA19.Top
- v_chk
Me.PanA20.Top
= Me.PanA19.Top
+ 24
Me.PTxA20.Top
= Me.PicA20.Top
Me.PicA20.Top
= Me.PanA20.Top
- v_PicA
Me.TxtA20.Top
= Me.PanA20.Top
- v_TxtA
Me.BtnA20.Top
= Me.PanA20.Top
- v_BtnA
Me.ChkA20.Top
= Me.PanA20.Top
- v_chk
Me.StxA20.Top
= Me.PanA20.Top
- v_chk
Me.PanA21.Top
= Me.PanA20.Top
+ 24
Me.PTxA21.Top
= Me.PicA21.Top
Me.PicA21.Top
= Me.PanA21.Top
- v_PicA
Me.TxtA21.Top
= Me.PanA21.Top
- v_TxtA
Me.BtnA21.Top
= Me.PanA21.Top
- v_BtnA
Me.ChkA21.Top
= Me.PanA21.Top
- v_chk
Me.StxA21.Top
= Me.PanA21.Top
- v_chk
Me.PanA22.Top
= Me.PanA21.Top
+ 24
Me.PTxA22.Top
= Me.PicA22.Top
Me.PicA22.Top
= Me.PanA22.Top
- v_PicA
Me.TxtA22.Top
= Me.PanA22.Top
- v_TxtA
Me.BtnA22.Top
= Me.PanA22.Top
- v_BtnA
Me.ChkA22.Top
= Me.PanA22.Top
- v_chk
Me.StxA22.Top
= Me.PanA22.Top
- v_chk
Me.PanA23.Top
= Me.PanA22.Top
+ 24
Me.PTxA23.Top
= Me.PicA23.Top
Me.PicA23.Top
= Me.PanA23.Top
- v_PicA
Me.TxtA23.Top
= Me.PanA23.Top
- v_TxtA
Me.BtnA23.Top
= Me.PanA23.Top
- v_BtnA
Me.ChkA23.Top
= Me.PanA23.Top
- v_chk
Me.StxA23.Top
= Me.PanA23.Top
- v_chk
Me.PanA24.Top
= Me.PanA23.Top
+ 24
Me.PTxA24.Top
= Me.PicA24.Top
Me.PicA24.Top
= Me.PanA24.Top
- v_PicA
Me.TxtA24.Top
= Me.PanA24.Top
- v_TxtA
Me.BtnA24.Top
= Me.PanA24.Top
- v_BtnA
Me.ChkA24.Top
= Me.PanA24.Top
- v_chk
Me.StxA24.Top
= Me.PanA24.Top
- v_chk
End Select
End Sub
Private Sub
sub_VScrollB1(ByVal
val_VScrollB1 As Integer)
Select Case val_VScrollB1
Case 0
Me.PanB1.Top
= v_PanB1
Me.TxtC1.Top
= v_PanB1 - v_TxtB
Me.TxtB1.Top
= v_PanB1 - v_TxtB
Me.BtnB1.Top
= v_PanB1 - v_BtnB
Me.ChkB1.Top
= v_PanB1 - v_chk
Me.StxB1.Top
= v_PanA1 - v_chk
Me.PanB2.Top
= Me.PanB1.Top +
24
Me.TxtC2.Top
= Me.PanB2.Top -
v_TxtB
Me.TxtB2.Top
= Me.PanB2.Top -
v_TxtB
Me.BtnB2.Top
= Me.PanB2.Top -
v_BtnB
Me.ChkB2.Top
= Me.PanB2.Top -
v_chk
Me.StxB2.Top
= Me.PanB2.Top -
v_chk
Me.PanB3.Top
= Me.PanB2.Top +
24
Me.TxtC3.Top
= Me.PanB3.Top -
v_TxtB
Me.TxtB3.Top
= Me.PanB3.Top -
v_TxtB
Me.BtnB3.Top
= Me.PanB3.Top -
v_BtnB
Me.ChkB3.Top
= Me.PanB3.Top -
v_chk
Me.StxB3.Top
= Me.PanB3.Top -
v_chk
Me.PanB4.Top
= Me.PanB3.Top +
24
Me.TxtC4.Top
= Me.PanB4.Top -
v_TxtB
Me.TxtB4.Top
= Me.PanB4.Top -
v_TxtB
Me.BtnB4.Top
= Me.PanB4.Top -
v_BtnB
Me.ChkB4.Top
= Me.PanB4.Top -
v_chk
Me.StxB4.Top
= Me.PanB4.Top -
v_chk
Me.PanB5.Top
= Me.PanB4.Top +
24
Me.TxtC5.Top
= Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
= Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
= Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
= Me.PanB5.Top -
v_chk
Me.StxB5.Top
= Me.PanB5.Top -
v_chk
Me.PanB6.Top
= Me.PanB5.Top +
24
Me.TxtC6.Top
= Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
= Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
= Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
= Me.PanB6.Top -
v_chk
Me.StxB6.Top
= Me.PanB6.Top -
v_chk
Me.PanB7.Top
= Me.PanB6.Top +
24
Me.TxtC7.Top
= Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
= Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
= Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
= Me.PanB7.Top -
v_chk
Me.StxB7.Top
= Me.PanB7.Top -
v_chk
Me.PanB8.Top
= Me.PanB7.Top +
24
Me.TxtC8.Top
= Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
= Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
= Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
= Me.PanB8.Top -
v_chk
Me.StxB8.Top
= Me.PanB8.Top -
v_chk
Me.PanB9.Top
= Me.PanB8.Top +
24
Me.TxtC9.Top
= Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
= Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
= Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
= Me.PanB9.Top -
v_chk
Me.StxB9.Top
= Me.PanB9.Top -
v_chk
Me.PanB10.Top
= Me.PanB9.Top +
24
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 1
Me.PanB2.Top
= v_PanB1
Me.TxtC2.Top
= Me.PanB2.Top -
v_TxtB
Me.TxtB2.Top
= Me.PanB2.Top -
v_TxtB
Me.BtnB2.Top
= Me.PanB2.Top -
v_BtnB
Me.ChkB2.Top
= Me.PanB2.Top -
v_chk
Me.StxB2.Top
= Me.PanB2.Top -
v_chk
Me.PanB3.Top
= Me.PanB2.Top +
24
Me.TxtC3.Top
= Me.PanB3.Top -
v_TxtB
Me.TxtB3.Top
= Me.PanB3.Top -
v_TxtB
Me.BtnB3.Top
= Me.PanB3.Top -
v_BtnB
Me.ChkB3.Top
= Me.PanB3.Top -
v_chk
Me.StxB3.Top
= Me.PanB3.Top -
v_chk
Me.PanB4.Top
= Me.PanB3.Top +
24
Me.TxtC4.Top
= Me.PanB4.Top -
v_TxtB
Me.TxtB4.Top
= Me.PanB4.Top -
v_TxtB
Me.BtnB4.Top
= Me.PanB4.Top -
v_BtnB
Me.ChkB4.Top
= Me.PanB4.Top -
v_chk
Me.StxB4.Top
= Me.PanB4.Top -
v_chk
Me.PanB5.Top
= Me.PanB4.Top +
24
Me.TxtC5.Top
= Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
= Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
= Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
= Me.PanB5.Top -
v_chk
Me.StxB5.Top
= Me.PanB5.Top -
v_chk
Me.PanB6.Top
= Me.PanB5.Top +
24
Me.TxtC6.Top
= Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
= Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
= Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
= Me.PanB6.Top -
v_chk
Me.StxB6.Top
= Me.PanB6.Top -
v_chk
Me.PanB7.Top
= Me.PanB6.Top +
24
Me.TxtC7.Top
= Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
= Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
= Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
= Me.PanB7.Top -
v_chk
Me.StxB7.Top
= Me.PanB7.Top -
v_chk
Me.PanB8.Top
= Me.PanB7.Top +
24
Me.TxtC8.Top
= Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
= Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
= Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
= Me.PanB8.Top -
v_chk
Me.StxB8.Top
= Me.PanB8.Top -
v_chk
Me.PanB9.Top
= Me.PanB8.Top +
24
Me.TxtC9.Top
= Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
= Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
= Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
= Me.PanB9.Top -
v_chk
Me.StxB9.Top
= Me.PanB9.Top -
v_chk
Me.PanB10.Top
= Me.PanB9.Top +
24
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 2
Me.PanB3.Top
= v_PanB1
Me.TxtC3.Top
= Me.PanB3.Top -
v_TxtB
Me.TxtB3.Top
= Me.PanB3.Top -
v_TxtB
Me.BtnB3.Top
= Me.PanB3.Top -
v_BtnB
Me.ChkB3.Top
= Me.PanB3.Top -
v_chk
Me.StxB3.Top
= Me.PanB3.Top -
v_chk
Me.PanB4.Top
= Me.PanB3.Top +
24
Me.TxtC4.Top
= Me.PanB4.Top -
v_TxtB
Me.TxtB4.Top
= Me.PanB4.Top -
v_TxtB
Me.BtnB4.Top
= Me.PanB4.Top -
v_BtnB
Me.ChkB4.Top
= Me.PanB4.Top -
v_chk
Me.StxB4.Top
= Me.PanB4.Top -
v_chk
Me.PanB5.Top
= Me.PanB4.Top +
24
Me.TxtC5.Top
= Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
= Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
= Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
= Me.PanB5.Top -
v_chk
Me.StxB5.Top
= Me.PanB5.Top -
v_chk
Me.PanB6.Top
= Me.PanB5.Top +
24
Me.TxtC6.Top
= Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
= Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
= Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
= Me.PanB6.Top -
v_chk
Me.StxB6.Top
= Me.PanB6.Top -
v_chk
Me.PanB7.Top
= Me.PanB6.Top +
24
Me.TxtC7.Top
= Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
= Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
= Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
= Me.PanB7.Top -
v_chk
Me.StxB7.Top
= Me.PanB7.Top -
v_chk
Me.PanB8.Top
= Me.PanB7.Top +
24
Me.TxtC8.Top
= Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
= Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
= Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
= Me.PanB8.Top -
v_chk
Me.StxB8.Top
= Me.PanB8.Top -
v_chk
Me.PanB9.Top
= Me.PanB8.Top +
24
Me.TxtC9.Top
= Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
= Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
= Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
= Me.PanB9.Top -
v_chk
Me.StxB9.Top
= Me.PanB9.Top -
v_chk
Me.PanB10.Top
= Me.PanB9.Top +
24
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 3
Me.PanB4.Top
= v_PanB1
Me.TxtC4.Top
= Me.PanB4.Top -
v_TxtB
Me.TxtB4.Top
= Me.PanB4.Top -
v_TxtB
Me.BtnB4.Top
= Me.PanB4.Top -
v_BtnB
Me.ChkB4.Top
= Me.PanB4.Top -
v_chk
Me.StxB4.Top
= Me.PanB4.Top -
v_chk
Me.PanB5.Top
= Me.PanB4.Top +
24
Me.TxtC5.Top
= Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
= Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
= Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
= Me.PanB5.Top -
v_chk
Me.StxB5.Top
= Me.PanB5.Top -
v_chk
Me.PanB6.Top
= Me.PanB5.Top +
24
Me.TxtC6.Top
= Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
= Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
= Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
= Me.PanB6.Top -
v_chk
Me.StxB6.Top
= Me.PanB6.Top -
v_chk
Me.PanB7.Top
= Me.PanB6.Top +
24
Me.TxtC7.Top
= Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
= Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
= Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
= Me.PanB7.Top -
v_chk
Me.StxB7.Top
= Me.PanB7.Top -
v_chk
Me.PanB8.Top
= Me.PanB7.Top +
24
Me.TxtC8.Top
= Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
= Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
= Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
= Me.PanB8.Top -
v_chk
Me.StxB8.Top
= Me.PanB8.Top -
v_chk
Me.PanB9.Top
= Me.PanB8.Top +
24
Me.TxtC9.Top
= Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
= Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
= Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
= Me.PanB9.Top -
v_chk
Me.StxB9.Top
= Me.PanB9.Top -
v_chk
Me.PanB10.Top
= Me.PanB9.Top +
24
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 4
Me.PanB5.Top
= v_PanB1
Me.TxtC5.Top
= Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
= Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
= Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
= Me.PanB5.Top -
v_chk
Me.StxB5.Top
= Me.PanB5.Top -
v_chk
Me.PanB6.Top
= Me.PanB5.Top +
24
Me.TxtC6.Top
= Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
= Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
= Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
= Me.PanB6.Top -
v_chk
Me.StxB6.Top
= Me.PanB6.Top -
v_chk
Me.PanB7.Top
= Me.PanB6.Top +
24
Me.TxtC7.Top
= Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
= Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
= Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
= Me.PanB7.Top -
v_chk
Me.StxB7.Top
= Me.PanB7.Top -
v_chk
Me.PanB8.Top
= Me.PanB7.Top +
24
Me.TxtC8.Top
= Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
= Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
= Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
= Me.PanB8.Top -
v_chk
Me.StxB8.Top
= Me.PanB8.Top -
v_chk
Me.PanB9.Top
= Me.PanB8.Top +
24
Me.TxtC9.Top
= Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
= Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
= Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
= Me.PanB9.Top -
v_chk
Me.StxB9.Top
= Me.PanB9.Top -
v_chk
Me.PanB10.Top
= Me.PanB9.Top +
24
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 5
Me.PanB6.Top
= v_PanB1
Me.TxtC6.Top
= Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
= Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
= Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
= Me.PanB6.Top -
v_chk
Me.StxB6.Top
= Me.PanB6.Top -
v_chk
Me.PanB7.Top
= Me.PanB6.Top +
24
Me.TxtC7.Top
= Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
= Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
= Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
= Me.PanB7.Top -
v_chk
Me.StxB7.Top
= Me.PanB7.Top -
v_chk
Me.PanB8.Top
= Me.PanB7.Top +
24
Me.TxtC8.Top
= Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
= Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
= Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
= Me.PanB8.Top -
v_chk
Me.StxB8.Top
= Me.PanB8.Top -
v_chk
Me.PanB9.Top
= Me.PanB8.Top +
24
Me.TxtC9.Top
= Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
= Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
= Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
= Me.PanB9.Top -
v_chk
Me.StxB9.Top
= Me.PanB9.Top -
v_chk
Me.PanB10.Top
= Me.PanB9.Top +
24
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 6
Me.PanB7.Top
= v_PanB1
Me.TxtC7.Top
= Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
= Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
= Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
= Me.PanB7.Top -
v_chk
Me.StxB7.Top
= Me.PanB7.Top -
v_chk
Me.PanB8.Top
= Me.PanB7.Top +
24
Me.TxtC8.Top
= Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
= Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
= Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
= Me.PanB8.Top -
v_chk
Me.StxB8.Top
= Me.PanB8.Top -
v_chk
Me.PanB9.Top
= Me.PanB8.Top +
24
Me.TxtC9.Top
= Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
= Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
= Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
= Me.PanB9.Top -
v_chk
Me.StxB9.Top
= Me.PanB9.Top -
v_chk
Me.PanB10.Top
= Me.PanB9.Top +
24
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 7
Me.PanB8.Top
= v_PanB1
Me.TxtC8.Top
= Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
= Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
= Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
= Me.PanB8.Top -
v_chk
Me.StxB8.Top
= Me.PanB8.Top -
v_chk
Me.PanB9.Top
= Me.PanB8.Top +
24
Me.TxtC9.Top
= Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
= Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
= Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
= Me.PanB9.Top -
v_chk
Me.StxB9.Top
= Me.PanB9.Top -
v_chk
Me.PanB10.Top
= Me.PanB9.Top +
24
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 8
Me.PanB9.Top
= v_PanB1
Me.TxtC9.Top
= Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
= Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
= Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
= Me.PanB9.Top -
v_chk
Me.StxB9.Top
= Me.PanB9.Top -
v_chk
Me.PanB10.Top
= Me.PanB9.Top +
24
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 9
Me.PanB10.Top
= v_PanB1
Me.TxtC10.Top
= Me.PanB10.Top
- v_TxtB
Me.TxtB10.Top
= Me.PanB10.Top
- v_TxtB
Me.BtnB10.Top
= Me.PanB10.Top
- v_BtnB
Me.ChkB10.Top
= Me.PanB10.Top
- v_chk
Me.StxB10.Top
= Me.PanB10.Top
- v_chk
Me.PanB11.Top
= Me.PanB10.Top
+ 24
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 10
Me.PanB11.Top
= v_PanB1
Me.TxtC11.Top
= Me.PanB11.Top
- v_TxtB
Me.TxtB11.Top
= Me.PanB11.Top
- v_TxtB
Me.BtnB11.Top
= Me.PanB11.Top
- v_BtnB
Me.ChkB11.Top
= Me.PanB11.Top
- v_chk
Me.StxB11.Top
= Me.PanB11.Top
- v_chk
Me.PanB12.Top
= Me.PanB11.Top
+ 24
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 11
Me.PanB12.Top
= v_PanB1
Me.TxtC12.Top
= Me.PanB12.Top
- v_TxtB
Me.TxtB12.Top
= Me.PanB12.Top
- v_TxtB
Me.BtnB12.Top
= Me.PanB12.Top
- v_BtnB
Me.ChkB12.Top
= Me.PanB12.Top
- v_chk
Me.StxB12.Top
= Me.PanB12.Top
- v_chk
Me.PanB13.Top
= Me.PanB12.Top
+ 24
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
Case 12
Me.PanB13.Top
= v_PanB1
Me.TxtC13.Top
= Me.PanB13.Top
- v_TxtB
Me.TxtB13.Top
= Me.PanB13.Top
- v_TxtB
Me.BtnB13.Top
= Me.PanB13.Top
- v_BtnB
Me.ChkB13.Top
= Me.PanB13.Top
- v_chk
Me.StxB13.Top
= Me.PanB13.Top
- v_chk
Me.PanB14.Top
= Me.PanB13.Top
+ 24
Me.TxtC14.Top
= Me.PanB14.Top
- v_TxtB
Me.TxtB14.Top
= Me.PanB14.Top
- v_TxtB
Me.BtnB14.Top
= Me.PanB14.Top
- v_BtnB
Me.ChkB14.Top
= Me.PanB14.Top
- v_chk
Me.StxB14.Top
= Me.PanB14.Top
- v_chk
Me.PanB15.Top
= Me.PanB14.Top
+ 24
Me.TxtC15.Top
= Me.PanB15.Top
- v_TxtB
Me.TxtB15.Top
= Me.PanB15.Top
- v_TxtB
Me.BtnB15.Top
= Me.PanB15.Top
- v_BtnB
Me.ChkB15.Top
= Me.PanB15.Top
- v_chk
Me.StxB15.Top
= Me.PanB15.Top
- v_chk
Me.PanB16.Top
= Me.PanB15.Top
+ 24
Me.TxtC16.Top
= Me.PanB16.Top
- v_TxtB
Me.TxtB16.Top
= Me.PanB16.Top
- v_TxtB
Me.BtnB16.Top
= Me.PanB16.Top
- v_BtnB
Me.ChkB16.Top
= Me.PanB16.Top
- v_chk
Me.StxB16.Top
= Me.PanB16.Top
- v_chk
Me.PanB17.Top
= Me.PanB16.Top
+ 24
Me.TxtC17.Top
= Me.PanB17.Top
- v_TxtB
Me.TxtB17.Top
= Me.PanB17.Top
- v_TxtB
Me.BtnB17.Top
= Me.PanB17.Top
- v_BtnB
Me.ChkB17.Top
= Me.PanB17.Top
- v_chk
Me.StxB17.Top
= Me.PanB17.Top
- v_chk
Me.PanB18.Top
= Me.PanB17.Top
+ 24
Me.TxtC18.Top
= Me.PanB18.Top
- v_TxtB
Me.TxtB18.Top
= Me.PanB18.Top
- v_TxtB
Me.BtnB18.Top
= Me.PanB18.Top
- v_BtnB
Me.ChkB18.Top
= Me.PanB18.Top
- v_chk
Me.StxB18.Top
= Me.PanB18.Top
- v_chk
Me.PanB19.Top
= Me.PanB18.Top
+ 24
Me.TxtC19.Top
= Me.PanB19.Top
- v_TxtB
Me.TxtB19.Top
= Me.PanB19.Top
- v_TxtB
Me.BtnB19.Top
= Me.PanB19.Top
- v_BtnB
Me.ChkB19.Top
= Me.PanB19.Top
- v_chk
Me.StxB19.Top
= Me.PanB19.Top
- v_chk
Me.PanB20.Top
= Me.PanB19.Top
+ 24
Me.TxtC20.Top
= Me.PanB20.Top
- v_TxtB
Me.TxtB20.Top
= Me.PanB20.Top
- v_TxtB
Me.BtnB20.Top
= Me.PanB20.Top
- v_BtnB
Me.ChkB20.Top
= Me.PanB20.Top
- v_chk
Me.StxB20.Top
= Me.PanB20.Top
- v_chk
Me.PanB21.Top
= Me.PanB20.Top
+ 24
Me.TxtC21.Top
= Me.PanB21.Top
- v_TxtB
Me.TxtB21.Top
= Me.PanB21.Top
- v_TxtB
Me.BtnB21.Top
= Me.PanB21.Top
- v_BtnB
Me.ChkB21.Top
= Me.PanB21.Top
- v_chk
Me.StxB21.Top
= Me.PanB21.Top
- v_chk
Me.PanB22.Top
= Me.PanB21.Top
+ 24
Me.TxtC22.Top
= Me.PanB22.Top
- v_TxtB
Me.TxtB22.Top
= Me.PanB22.Top
- v_TxtB
Me.BtnB22.Top
= Me.PanB22.Top
- v_BtnB
Me.ChkB22.Top
= Me.PanB22.Top
- v_chk
Me.StxB22.Top
= Me.PanB22.Top
- v_chk
Me.PanB23.Top
= Me.PanB22.Top
+ 24
Me.TxtC23.Top
= Me.PanB23.Top
- v_TxtB
Me.TxtB23.Top
= Me.PanB23.Top
- v_TxtB
Me.BtnB23.Top
= Me.PanB23.Top
- v_BtnB
Me.ChkB23.Top
= Me.PanB23.Top
- v_chk
Me.StxB23.Top
= Me.PanB23.Top
- v_chk
Me.PanB24.Top
= Me.PanB23.Top
+ 24
Me.TxtC24.Top
= Me.PanB24.Top
- v_TxtB
Me.TxtB24.Top
= Me.PanB24.Top
- v_TxtB
Me.BtnB24.Top
= Me.PanB24.Top
- v_BtnB
Me.ChkB24.Top
= Me.PanB24.Top
- v_chk
Me.StxB24.Top
= Me.PanB24.Top
- v_chk
End Select
End Sub
' ******** combobox, checkbox,
DateTimePicker ********
' select combobox,
cmb_correspond
Private Sub
cmb_correspond_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cmb_correspond.SelectedIndexChanged
current_date = Format( Me.cmb_correspond.SelectedItem)
appoint_date =
System.Convert.ToDateTime(current_date)
load_value(current_date)
Me.ltoday.Text =
FormatDateTime(System.Convert.ToDateTime(Me.cmb_correspond.SelectedItem),
DateFormat.LongDate)
Me.DateTimePicker1.Text
= current_date
Me.cmb_correspond.Text
= current_date
End Sub
' check checkbox,
Chckmonth
Private Sub
Chckmonth_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles
Chckmonth.CheckedChanged
If
Me.Chckmonth.Checked Then
v_currentmonth = 1
End If
If
Me.Chckmonth.Checked = False Then
v_currentmonth = 2
End If
sub_currentdate(v_currentmonth, v_currentyear)
Me.cmb_correspond.SelectedIndex
= -1
Me.cmb_correspond.Text
= ""
load_value(current_date)
End Sub
' check checkbox,
Chckyear
Private Sub
Chckyear_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles
Chckyear.CheckedChanged
If
Me.Chckyear.Checked Then
v_currentyear = 1
End If
If
Me.Chckyear.Checked = False Then
v_currentyear = 2
End If
sub_currentdate(v_currentmonth, v_currentyear)
Me.cmb_correspond.SelectedIndex
= -1
Me.cmb_correspond.Text
= ""
load_value(current_date)
End Sub
' select
DateTimePicker, DateTimePicker1
Private Sub
DateTimePicker1_ValueChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles
DateTimePicker1.ValueChanged
current_date = Format( Me.DateTimePicker1.Value,
"M/d/yyyy")
appoint_date =
System.Convert.ToDateTime(current_date)
load_value(current_date)
' use current
value of v_currentyear and v_currentmonth
sub_currentdate(v_currentmonth, v_currentyear)
Me.ltoday.Text =
FormatDateTime(Me.DateTimePicker1.Value,
DateFormat.LongDate)
Me.cmb_correspond.SelectedIndex
= -1
Me.cmb_correspond.Text
= ""
End Sub
'
****************** edit/modify task ....
*********************
Private Sub
BtnA1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
BtnA1.Click
toedit_task( Me.StxA1.Text,
Me.PTxA1.Text, Me.TxtA1.Text)
End Sub
'show agenda task
form, to edit ....
Private Sub
toedit_task(ByVal v_order As String, ByVal v_prirority As
String, ByVal v_descrip As String)
task_type = "edit"
task_order = Val(v_order)
task_prirority =
v_prirority
agenda_desc = v_descrip
fagenda_task.ShowDialog()
End Sub
'show agenda form
after edit (task)
Public Sub
afteredit_task()
Dim vvrc As
Integer
If task_flag =
True Then
If
(vdset1.Tables("agenda").Rows.Count > 0) Then
For vvrc = 0 To (Me.objAgendadset.Tables("agenda").Rows.Count
- 1)
If ((Trim(Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("entry_type"))
= "T") And (Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("serialno")
= task_order)) Then
'update agenda
table, the task record to edit
Sub_Update1("edit_task",
vvrc)
'load agenda
table, objAgendadset dataset
LoadDataSet()
load_value(current_date)
Exit Sub
End If
Next
End If
End If
End Sub
Private Sub
sub_loaddata(ByVal v_entry_type As String, ByVal strdate_d
As String, ByVal strdate_m As String, ByVal strdate_y As
String)
Dim WhereSearch
As String = ""
Select Case
v_entry_type
Case
"A"
WhereSearch = " WHERE (entry_type
= '" & Trim(v_entry_type) & "') AND (ondate_d = '" &
strdate_d & "') AND (ondate_m = '" & strdate_m & "') AND (ondate_y
= '" & strdate_y & "') AND (description <> '" & "" & "')"
vselect1 =
New
OleDb.OleDbCommand("SELECT agendaid, branch, datecreated,
description, entry_type, ondate, ontime, serialno,
taskprirority, ondate_d, ondate_m, ondate_y, bookid FROM
agenda" & WhereSearch & " ORDER BY ontime, serialno")
Case
"T"
WhereSearch = " WHERE (entry_type
= '" & Trim(v_entry_type) & "') AND (description <> '" &
"" & "')"
vselect1 =
New
OleDb.OleDbCommand("SELECT agendaid, branch, datecreated,
description, entry_type, ondate, ontime, serialno,
taskprirority, ondate_d, ondate_m, ondate_y, bookid FROM
agenda" & WhereSearch & " ORDER BY serialno")
End Select
vda1 = New
OleDb.OleDbDataAdapter(vselect1)
vdset1 =
New
DataSet
vselect1.Connection() =
Me.OleDbConnection1 ' Select command
vselect1.CommandTimeout
= 30
vdset1.EnforceConstraints =
False
Try
Me.OleDbConnection1.Open()
vda1.Fill(vdset1,
"agenda")
Catch
fillException As
System.Exception
System.Windows.Forms.MessageBox.Show(fillException.Message)
End Try
vdset1.EnforceConstraints = True
Me.OleDbConnection1.Close()
End Sub
Private Sub
BtnA2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
BtnA2.Click
toedit_task( Me.StxA2.Text,
Me.PTxA2.Text, Me.TxtA2.Text)
End Sub
Private Sub
BtnA3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
BtnA3.Click
toedit_task( Me.StxA3.Text,
Me.PTxA3.Text, Me.TxtA3.Text)
End Sub
Private Sub
BtnA4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
BtnA4.Click
toedit_task( Me.StxA4.Text,
Me.PTxA4.Text, Me.TxtA4.Text)
End Sub
Private Sub
BtnA5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
BtnA5.Click
toedit_task( Me.StxA5.Text,
Me.PTxA5.Text, Me.TxtA5.Text)
End Sub
Private Sub
BtnA6_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA6.Click
toedit_task( Me.StxA6.Text,
Me.PTxA6.Text, Me.TxtA6.Text)
End Sub
Private Sub
BtnA7_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA7.Click
toedit_task( Me.StxA7.Text,
Me.PTxA7.Text, Me.TxtA7.Text)
End Sub
Private Sub
BtnA8_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA8.Click
toedit_task( Me.StxA8.Text,
Me.PTxA8.Text, Me.TxtA8.Text)
End Sub
Private Sub
BtnA9_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA9.Click
toedit_task( Me.StxA9.Text,
Me.PTxA9.Text, Me.TxtA9.Text)
End Sub
Private Sub
BtnA10_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA10.Click
toedit_task( Me.StxA10.Text,
Me.PTxA10.Text, Me.TxtA10.Text)
End Sub
Private Sub
BtnA11_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA11.Click
toedit_task( Me.StxA11.Text,
Me.PTxA11.Text, Me.TxtA11.Text)
End Sub
Private Sub
BtnA12_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA12.Click
toedit_task( Me.StxA12.Text,
Me.PTxA12.Text, Me.TxtA12.Text)
End Sub
Private Sub
BtnA13_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA13.Click
toedit_task( Me.StxA13.Text,
Me.PTxA13.Text, Me.TxtA13.Text)
End Sub
Private Sub
BtnA14_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA14.Click
toedit_task( Me.StxA14.Text,
Me.PTxA14.Text, Me.TxtA14.Text)
End Sub
Private Sub
BtnA15_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA15.Click
toedit_task( Me.StxA15.Text,
Me.PTxA15.Text, Me.TxtA15.Text)
End Sub
Private Sub
BtnA16_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA16.Click
toedit_task( Me.StxA16.Text,
Me.PTxA16.Text, Me.TxtA16.Text)
End Sub
Private Sub
BtnA17_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA17.Click
toedit_task( Me.StxA17.Text,
Me.PTxA17.Text, Me.TxtA17.Text)
End Sub
Private Sub
BtnA18_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA18.Click
toedit_task( Me.StxA18.Text,
Me.PTxA18.Text, Me.TxtA18.Text)
End Sub
Private Sub
BtnA19_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA19.Click
toedit_task( Me.StxA19.Text,
Me.PTxA19.Text, Me.TxtA19.Text)
End Sub
Private Sub
BtnA20_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA20.Click
toedit_task( Me.StxA20.Text,
Me.PTxA20.Text, Me.TxtA20.Text)
End Sub
Private Sub
BtnA21_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA21.Click
toedit_task( Me.StxA21.Text,
Me.PTxA21.Text, Me.TxtA21.Text)
End Sub
Private Sub
BtnA22_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA22.Click
toedit_task( Me.StxA22.Text,
Me.PTxA22.Text, Me.TxtA22.Text)
End Sub
Private Sub
BtnA23_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA23.Click
toedit_task( Me.StxA23.Text,
Me.PTxA23.Text, Me.TxtA23.Text)
End Sub
Private Sub
BtnA24_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnA24.Click
toedit_task( Me.StxA24.Text,
Me.PTxA24.Text, Me.TxtA24.Text)
End Sub
'
****************** new/add task .... *********************
'show agenda task
form, to add/new ....
Private Sub
Btn_newtask_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles
Btn_newtask.Click
load_serialno("T", "",
"", "")
If
vdset1.Tables("agenda").Rows.Count < 24 Then
'add new record
' new task
task_type = "new"
fagenda_task.ShowDialog()
Else
MsgBox("it is full = 24 input(s),
impossible to add new task ...",
MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Information Or
MsgBoxStyle.OKOnly, Title)
Exit Sub
End If
End Sub
'show agenda form
after add/new (task)
Public Sub
afternew_task()
If task_flag =
True Then
'new value -
serialno field, agenda table
sub_serialno("T", "",
"", "")
load_serialno("T", "",
"", "")
If
vdset1.Tables("agenda").Rows.Count < 25 Then
'add new record
Me.BindingContext(Me.objAgendadset,
"agenda").EndCurrentEdit()
Me.objAgendadset.agenda.Rows.Add(Me.objAgendadset.agenda.NewRow)
'update agenda
table, the task record to edit
Sub_Update1("new_task", (Me .objAgendadset.agenda.Count()
- 1))
'load agenda
table, objAgendadset dataset
LoadDataSet()
load_value(current_date)
Exit Sub
End If
End If
End Sub
Private Sub
sub_serialno(ByVal v_entry_type As String, ByVal strdate_d
As String, ByVal strdate_m As String, ByVal strdate_y As
String)
Dim serialno_flag
As Boolean
Dim vrec As
Integer, vno As Integer
load_serialno(v_entry_type, strdate_d, strdate_m,
strdate_y)
serialno_flag =
False
vno = 1
Select Case
vdset1.Tables("agenda").Rows.Count
Case
0
new_serialno = 1
Exit Sub
Case Is
> 24
err_serialno(v_entry_type)
Exit Sub
Case Else
For vrec = 0 To
(vdset1.Tables("agenda").Rows.Count - 1)
If
vdset1.Tables("agenda").Rows(vrec).Item("serialno") = vno
Then
vno = vno + 1
If vno = 26 Then
err_serialno(v_entry_type)
Exit Sub
End If
serialno_flag = True
End If
Next
If serialno_flag
= True Then
new_serialno = vno
Exit Sub
End If
End Select
End Sub
Private Sub
load_serialno(ByVal v_entry_type As String, ByVal
strdate_d As String, ByVal strdate_m As String, ByVal
strdate_y As String)
Dim WhereSearch
As String = ""
Select Case
v_entry_type
Case
"A"
WhereSearch = " WHERE (entry_type
= '" & Trim(v_entry_type) & "') AND (ondate_d = '" &
strdate_d & "') AND (ondate_m = '" & strdate_m & "') AND (ondate_y
= '" & strdate_y & "')"
vselect1 =
New
OleDb.OleDbCommand("SELECT entry_type, ondate, ondate_d,
ondate_m, ondate_y, serialno FROM agenda" & WhereSearch &
" ORDER BY serialno")
Case
"T"
WhereSearch = " WHERE (entry_type
= '" & Trim(v_entry_type) & "')"
vselect1 =
New
OleDb.OleDbCommand("SELECT entry_type, ondate, ondate_d,
ondate_m, ondate_y, serialno FROM agenda" & WhereSearch &
" ORDER BY serialno")
End Select
vda1 = New
OleDb.OleDbDataAdapter(vselect1)
vdset1 =
New
DataSet
vselect1.Connection() =
Me.OleDbConnection1 ' Select command
vselect1.CommandTimeout
= 30
vdset1.EnforceConstraints =
False
Try
Me.OleDbConnection1.Open()
vda1.Fill(vdset1,
"agenda")
Catch
fillException As
System.Exception
System.Windows.Forms.MessageBox.Show(fillException.Message)
End Try
vdset1.EnforceConstraints = True
Me.OleDbConnection1.Close()
End Sub
Private Sub
err_serialno(ByVal v_entry_type As String)
Select Case
v_entry_type
Case
"A"
MsgBox("it is full = 24
input(s), impossible to add new appointment ...",
MsgBoxStyle.DefaultButton1
Or MsgBoxStyle.Information
Or
MsgBoxStyle.OKOnly, Title)
Exit Sub
Case
"T"
MsgBox("it is full = 24
input(s), impossible to add new task ...",
MsgBoxStyle.DefaultButton1
Or MsgBoxStyle.Information
Or
MsgBoxStyle.OKOnly, Title)
Exit Sub
End Select
End Sub
'
****************** delete/remove task ....
*********************
Private Sub
Btn_deltask_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles
Btn_deltask.Click
Dim vvrc As
Integer
Dim i As Integer
If
Me.list_chktask.Items.Count > 0 Then
For i = 0 To Me.list_chktask.Items.Count
- 1
'load agenda
table, objAgendadset dataset
LoadDataSet()
load_value(current_date)
For vvrc = 0 To (Me.objAgendadset.Tables("agenda").Rows.Count
- 1)
If ((Trim(Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("entry_type"))
= "T") And (Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("serialno")
= Val(Me.list_chktask.Items.Item(i)))) Then
'agenda table,
position
Me.BindingContext(Me.objAgendadset,
"agenda").Position = vvrc
Me.BindingContext(Me.objAgendadset, "agenda").RemoveAt(Me.BindingContext(Me.objAgendadset,
"agenda").Position)
Sub_Update()
Exit For
End If
Next
Next
Me.list_chktask.Items.Clear()
ChkA_Checked( False)
Me.Btn_deltask.Enabled = False
'load agenda
table, objAgendadset dataset
LoadDataSet()
load_value(current_date)
End If
End Sub
Private Sub
ChkAAll_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles
ChkAAll.CheckedChanged
If
Me.ChkAAll.Checked Then ChkA_Checked(True)
If
Me.ChkAAll.Checked = False Then ChkA_Checked(False)
End Sub
Public Sub
ChkA_Checked(ByVal bval As Boolean)
Me.ChkA1.Checked
= bval
Me.ChkA2.Checked
= bval
Me.ChkA3.Checked
= bval
Me.ChkA4.Checked
= bval
Me.ChkA5.Checked
= bval
Me.ChkA6.Checked
= bval
Me.ChkA7.Checked
= bval
Me.ChkA8.Checked
= bval
Me.ChkA9.Checked
= bval
Me.ChkA10.Checked
= bval
Me.ChkA11.Checked
= bval
Me.ChkA12.Checked
= bval
Me.ChkA13.Checked
= bval
Me.ChkA14.Checked
= bval
Me.ChkA15.Checked
= bval
Me.ChkA16.Checked
= bval
Me.ChkA17.Checked
= bval
Me.ChkA18.Checked
= bval
Me.ChkA19.Checked
= bval
Me.ChkA20.Checked
= bval
Me.ChkA21.Checked
= bval
Me.ChkA22.Checked
= bval
Me.ChkA23.Checked
= bval
Me.ChkA24.Checked
= bval
If bval = False
Then
'
Me.Btn_movetask.Enabled = bval
'
Me.Btn_deltask.Enabled = bval
End If
End Sub
Private Sub
sub_chkA(ByVal v_ChekBox As System.Windows.Forms.CheckBox,
ByVal str_serialno As String)
Dim i As Integer
If
Me.Btn_delappoint.Enabled = True Then
Me.Btn_delappoint.Enabled = False
If
Me.ChkBAll.Checked = True Then
Me.ChkBAll.Checked = False
Me.list_chkappoint.Items.Clear()
End If
If
v_ChekBox.Visible = True Then
Select Case
v_ChekBox.Checked
Case True
If
Me.Btn_deltask.Enabled = False Then Me.Btn_deltask.Enabled
= True
Me.list_chktask.Items.Add(str_serialno)
Case False
For i = 0 To Me.list_chktask.Items.Count
- 1
If
Me.list_chktask.Items.Item(i) = str_serialno Then
Me.list_chktask.Items.Remove(str_serialno)
Exit For
End If
Next
End Select
End If
If
v_ChekBox.Visible = True Then
Select Case Me.list_chktask.Items.Count
Case
0
Me.Btn_movetask.Enabled = False
Me.Btn_deltask.Enabled = False
If
Me.ChkAAll.Checked Then Me.ChkAAll.Checked = False
Case Is
> 0
Me.Btn_movetask.Enabled = True
Me.Btn_deltask.Enabled = True
End Select
End If
End Sub
Private Sub
ChkA1_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA1.CheckedChanged
sub_chkA( Me.ChkA1,
Me.StxA1.Text)
End Sub
Private Sub
ChkA2_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA2.CheckedChanged
sub_chkA( Me.ChkA2,
Me.StxA2.Text)
End Sub
Private Sub
ChkA3_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA3.CheckedChanged
sub_chkA( Me.ChkA3,
Me.StxA3.Text)
End Sub
Private Sub
ChkA4_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA4.CheckedChanged
sub_chkA( Me.ChkA4,
Me.StxA4.Text)
End Sub
Private Sub
ChkA5_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA5.CheckedChanged
sub_chkA( Me.ChkA5,
Me.StxA5.Text)
End Sub
Private Sub
ChkA6_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA6.CheckedChanged
sub_chkA( Me.ChkA6,
Me.StxA6.Text)
End Sub
Private Sub
ChkA7_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA7.CheckedChanged
sub_chkA( Me.ChkA7,
Me.StxA7.Text)
End Sub
Private Sub
ChkA8_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA8.CheckedChanged
sub_chkA( Me.ChkA8,
Me.StxA8.Text)
End Sub
Private Sub
ChkA9_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA9.CheckedChanged
sub_chkA( Me.ChkA9,
Me.StxA9.Text)
End Sub
Private Sub
ChkA10_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA10.CheckedChanged
sub_chkA( Me.ChkA10,
Me.StxA10.Text)
End Sub
Private Sub
ChkA11_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA11.CheckedChanged
sub_chkA( Me.ChkA11,
Me.StxA11.Text)
End Sub
Private Sub
ChkA12_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA12.CheckedChanged
sub_chkA( Me.ChkA12,
Me.StxA12.Text)
End Sub
Private Sub
ChkA13_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA13.CheckedChanged
sub_chkA( Me.ChkA13,
Me.StxA13.Text)
End Sub
Private Sub
ChkA14_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA14.CheckedChanged
sub_chkA( Me.ChkA14,
Me.StxA14.Text)
End Sub
Private Sub
ChkA15_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA15.CheckedChanged
sub_chkA( Me.ChkA15,
Me.StxA15.Text)
End Sub
Private Sub
ChkA16_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA16.CheckedChanged
sub_chkA( Me.ChkA16,
Me.StxA16.Text)
End Sub
Private Sub
ChkA17_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA17.CheckedChanged
sub_chkA( Me.ChkA17,
Me.StxA17.Text)
End Sub
Private Sub
ChkA18_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA18.CheckedChanged
sub_chkA( Me.ChkA18,
Me.StxA18.Text)
End Sub
Private Sub
ChkA19_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA19.CheckedChanged
sub_chkA( Me.ChkA19,
Me.StxA19.Text)
End Sub
Private Sub
ChkA20_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA20.CheckedChanged
sub_chkA( Me.ChkA20,
Me.StxA20.Text)
End Sub
Private Sub
ChkA21_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA21.CheckedChanged
sub_chkA( Me.ChkA21,
Me.StxA21.Text)
End Sub
Private Sub
ChkA22_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA22.CheckedChanged
sub_chkA( Me.ChkA22,
Me.StxA22.Text)
End Sub
Private Sub
ChkA23_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA23.CheckedChanged
sub_chkA( Me.ChkA23,
Me.StxA23.Text)
End Sub
Private Sub
ChkA24_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkA24.CheckedChanged
sub_chkA( Me.ChkA24,
Me.StxA24.Text)
End Sub
' ****************** edit/modify appointement ....
*********************
Private Sub
BtnB1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
BtnB1.Click
toedit_appoint( Me.StxB1.Text,
Me.TxtC1.Text, Me.TxtB1.Text, Me.txid1.Text)
End Sub
'show agenda
appointement form, to edit ....
Private Sub
toedit_appoint(ByVal v_order As String, ByVal v_time As
String, ByVal v_descrip As String, ByVal v_bookid As
String)
appoint_type = "edit"
appoint_order = Val(v_order)
appoint_time = v_time
appoint_date =
System.Convert.ToDateTime(current_date)
agenda_desc = v_descrip
appoint_bookid = v_bookid
fagenda_appoint.ShowDialog()
End Sub
'show agenda form
after edit (appointement)
Public Sub
afteredit_appoint()
Dim vvrc As
Integer
If appoint_flag =
True Then
current_date =
Format(appoint_date, "M/d/yyyy")
If (Me.objAgendadset.Tables("agenda").Rows.Count
> 0) Then
For vvrc = 0 To (Me.objAgendadset.Tables("agenda").Rows.Count
- 1)
If ((Trim(Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("entry_type"))
= "A") And (Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("serialno")
= appoint_order) And (Trim(Format(Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy")) =
Trim(Format(System.Convert.ToDateTime(current_date), "M/d/yyyy"))))
Then
'update agenda
table, the task record to edit
Sub_Update1("edit_appointment",
vvrc)
'load agenda
table, objAgendadset dataset
LoadDataSet()
load_value(current_date)
Exit Sub
End If
Next
End If
End If
End Sub
Private Sub
BtnB2_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB2.Click
toedit_appoint( Me.StxB2.Text,
Me.TxtC2.Text, Me.TxtB2.Text, Me.txid2.Text)
End Sub
Private Sub
BtnB3_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB3.Click
toedit_appoint( Me.StxB3.Text,
Me.TxtC3.Text, Me.TxtB3.Text, Me.txid3.Text)
End Sub
Private Sub
BtnB4_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB4.Click
toedit_appoint( Me.StxB4.Text,
Me.TxtC4.Text, Me.TxtB4.Text, Me.txid4.Text)
End Sub
Private Sub
BtnB5_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB5.Click
toedit_appoint( Me.StxB5.Text,
Me.TxtC5.Text, Me.TxtB5.Text, Me.txid5.Text)
End Sub
Private Sub
BtnB6_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB6.Click
toedit_appoint( Me.StxB6.Text,
Me.TxtC6.Text, Me.TxtB6.Text, Me.txid6.Text)
End Sub
Private Sub
BtnB7_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB7.Click
toedit_appoint( Me.StxB7.Text,
Me.TxtC7.Text, Me.TxtB7.Text, Me.txid7.Text)
End Sub
Private Sub
BtnB8_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB8.Click
toedit_appoint( Me.StxB8.Text,
Me.TxtC8.Text, Me.TxtB8.Text, Me.txid8.Text)
End Sub
Private Sub
BtnB9_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB9.Click
toedit_appoint( Me.StxB9.Text,
Me.TxtC9.Text, Me.TxtB9.Text, Me.txid9.Text)
End Sub
Private Sub
BtnB10_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB10.Click
toedit_appoint( Me.StxB10.Text,
Me.TxtC10.Text, Me.TxtB10.Text, Me.txid10.Text)
End Sub
Private Sub
BtnB11_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB11.Click
toedit_appoint( Me.StxB11.Text,
Me.TxtC11.Text, Me.TxtB11.Text, Me.txid11.Text)
End Sub
Private Sub
BtnB12_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB12.Click
toedit_appoint( Me.StxB12.Text,
Me.TxtC12.Text, Me.TxtB12.Text, Me.txid12.Text)
End Sub
Private Sub
BtnB13_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB13.Click
toedit_appoint( Me.StxB13.Text,
Me.TxtC13.Text, Me.TxtB13.Text, Me.txid13.Text)
End Sub
Private Sub
BtnB14_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB14.Click
toedit_appoint( Me.StxB14.Text,
Me.TxtC14.Text, Me.TxtB14.Text, Me.txid14.Text)
End Sub
Private Sub
BtnB15_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB15.Click
toedit_appoint( Me.StxB15.Text,
Me.TxtC15.Text, Me.TxtB15.Text, Me.txid15.Text)
End Sub
Private Sub
BtnB16_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB16.Click
toedit_appoint( Me.StxB16.Text,
Me.TxtC16.Text, Me.TxtB16.Text, Me.txid16.Text)
End Sub
Private Sub
BtnB17_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB17.Click
toedit_appoint( Me.StxB17.Text,
Me.TxtC17.Text, Me.TxtB17.Text, Me.txid17.Text)
End Sub
Private Sub
BtnB18_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB18.Click
toedit_appoint( Me.StxB18.Text,
Me.TxtC18.Text, Me.TxtB18.Text, Me.txid18.Text)
End Sub
Private Sub
BtnB19_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB19.Click
toedit_appoint( Me.StxB19.Text,
Me.TxtC19.Text, Me.TxtB19.Text, Me.txid19.Text)
End Sub
Private Sub
BtnB20_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB20.Click
toedit_appoint( Me.StxB20.Text,
Me.TxtC20.Text, Me.TxtB20.Text, Me.txid20.Text)
End Sub
Private Sub
BtnB21_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB21.Click
toedit_appoint( Me.StxB21.Text,
Me.TxtC21.Text, Me.TxtB21.Text, Me.txid21.Text)
End Sub
Private Sub
BtnB22_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB22.Click
toedit_appoint( Me.StxB22.Text,
Me.TxtC22.Text, Me.TxtB22.Text, Me.txid22.Text)
End Sub
Private Sub
BtnB23_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB23.Click
toedit_appoint( Me.StxB23.Text,
Me.TxtC23.Text, Me.TxtB23.Text, Me.txid23.Text)
End Sub
Private Sub
BtnB24_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BtnB24.Click
toedit_appoint( Me.StxB24.Text,
Me.TxtC24.Text, Me.TxtB24.Text, Me.txid24.Text)
End Sub
'
****************** new/add appointement ....
*********************
'show agenda
appointement form, to add/new ...
Private Sub
Btn_newappoint_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Btn_newappoint.Click
Dim vondate_d As
String, vondate_m As String, vondate_y As String
appoint_full = False
'test if it
available to add new appointmement with this current date
If (System.Convert.ToDateTime(current_date).Day
> 0 And System.Convert.ToDateTime(current_date).Day < 10)
Then
vondate_d = "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
vondate_d =
Trim(Str(System.Convert.ToDateTime(current_date).Day))
End If
If (System.Convert.ToDateTime(current_date).Month
> 0 And System.Convert.ToDateTime(current_date).Month <
10) Then
vondate_m = "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
vondate_m =
Trim(Str(System.Convert.ToDateTime(current_date).Month))
End If
vondate_y =
Trim(Str(System.Convert.ToDateTime(current_date).Year))
'new value -
serialno field, agenda table
sub_serialno("A", vondate_d,
vondate_m, vondate_y)
load_serialno("A", vondate_d,
vondate_m, vondate_y)
If
vdset1.Tables("agenda").Rows.Count > 23 Then
'with this
current date, add new appointmement not available
appoint_full = True
End If
'new appointment
appoint_type = "new"
appoint_date =
System.Convert.ToDateTime(current_date)
fagenda_appoint.ShowDialog()
End Sub
'show agenda form
after edit (appointement)
Public Sub
afternew_appoint()
Dim vondate_d As
String, vondate_m As String, vondate_y As String
If appoint_flag =
True Then
current_date =
Format(appoint_date, "M/d/yyyy")
If (System.Convert.ToDateTime(current_date).Day
> 0 And System.Convert.ToDateTime(current_date).Day < 10)
Then
vondate_d = "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
vondate_d =
Trim(Str(System.Convert.ToDateTime(current_date).Day))
End If
If (System.Convert.ToDateTime(current_date).Month
> 0 And System.Convert.ToDateTime(current_date).Month <
10) Then
vondate_m = "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
vondate_m =
Trim(Str(System.Convert.ToDateTime(current_date).Month))
End If
vondate_y =
Trim(Str(System.Convert.ToDateTime(current_date).Year))
'new value -
serialno field, agenda table
sub_serialno("A", vondate_d,
vondate_m, vondate_y)
If
vdset1.Tables("agenda").Rows.Count < 24 Then
'add new record
Me.BindingContext(Me.objAgendadset,
"agenda").EndCurrentEdit()
Me.objAgendadset.agenda.Rows.Add(Me.objAgendadset.agenda.NewRow)
'update agenda
table, the appointment record to new
Sub_Update1("new_appointment", (Me .objAgendadset.agenda.Count()
- 1))
'load agenda
table, objAgendadset dataset
LoadDataSet()
load_value(current_date)
Exit Sub
End If
End If
End Sub
'
****************** delete/remove appointement ....
*********************
Private Sub
Btn_delappoint_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Btn_delappoint.Click
'remove
appointment
Dim vvrc As
Integer
Dim i As Integer
If
Me.list_chkappoint.Items.Count > 0 Then
For i = 0 To Me.list_chkappoint.Items.Count
- 1
'load agenda
table, objAgendadset dataset
LoadDataSet()
load_value(current_date)
For vvrc = 0 To (Me.objAgendadset.Tables("agenda").Rows.Count
- 1)
If ((Trim(Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("entry_type"))
= "A") And (Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("serialno")
= Val(Me.list_chkappoint.Items.Item(i))) And (Trim(Format(Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy")) =
Trim(Format(System.Convert.ToDateTime(current_date), "M/d/yyyy"))))
Then
'agenda table,
position
Me.BindingContext(Me.objAgendadset,
"agenda").Position = vvrc
Me.BindingContext(Me.objAgendadset, "agenda").RemoveAt(Me.BindingContext(Me.objAgendadset,
"agenda").Position)
Sub_Update()
Exit For
End If
Next
Next
Me.list_chkappoint.Items.Clear()
ChkB_Checked( False)
Me.Btn_delappoint.Enabled = False
'load agenda
table, objAgendadset dataset
LoadDataSet()
load_value(current_date)
End If
End Sub
Private Sub
ChkBAll_CheckedChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
ChkBAll.CheckedChanged
If
Me.ChkBAll.Checked Then ChkB_Checked(True)
If
Me.ChkBAll.Checked = False Then ChkB_Checked(False)
End Sub
Private Sub
ChkB_Checked(ByVal bval As Boolean)
Me.ChkBAll.Checked
= bval
Me.ChkB1.Checked
= bval
Me.ChkB2.Checked
= bval
Me.ChkB3.Checked
= bval
Me.ChkB4.Checked
= bval
Me.ChkB5.Checked
= bval
Me.ChkB6.Checked
= bval
Me.ChkB7.Checked
= bval
Me.ChkB8.Checked
= bval
Me.ChkB9.Checked
= bval
Me.ChkB10.Checked
= bval
Me.ChkB11.Checked
= bval
Me.ChkB12.Checked
= bval
Me.ChkB13.Checked
= bval
Me.ChkB14.Checked
= bval
Me.ChkB15.Checked
= bval
Me.ChkB16.Checked
= bval
Me.ChkB17.Checked
= bval
Me.ChkB18.Checked
= bval
Me.ChkB19.Checked
= bval
Me.ChkB20.Checked
= bval
Me.ChkB21.Checked
= bval
Me.ChkB22.Checked
= bval
Me.ChkB23.Checked
= bval
Me.ChkB24.Checked
= bval
End Sub
Private Sub
sub_chkB(ByVal v_ChekBox As System.Windows.Forms.CheckBox,
ByVal str_serialno As String)
Dim i As Integer
If
Me.Btn_deltask.Enabled = True Then Me.Btn_deltask.Enabled
= False
If
Me.ChkAAll.Checked = True Then
Me.ChkAAll.Checked = False
Me.list_chktask.Items.Clear()
End If
If
v_ChekBox.Visible Then
Select Case
v_ChekBox.Checked
Case True
If
Me.Btn_delappoint.Enabled = False Then
Me.Btn_delappoint.Enabled = True
Me.list_chkappoint.Items.Add(str_serialno)
Case False
For i = 0 To Me.list_chkappoint.Items.Count
- 1
If
Me.list_chkappoint.Items.Item(i) = str_serialno Then
Me.list_chkappoint.Items.Remove(str_serialno)
If (Me.list_chkappoint.Items.Count
= 0) Then Me.Btn_delappoint.Enabled = False
Exit Sub
End If
Next
End Select
End If
End Sub
Private Sub
ChkB1_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB1.CheckedChanged
sub_chkB( Me.ChkB1,
Me.StxB1.Text)
End Sub
Private Sub
ChkB2_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB2.CheckedChanged
sub_chkB( Me.ChkB2,
Me.StxB2.Text)
End Sub
Private Sub
ChkB3_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB3.CheckedChanged
sub_chkB( Me.ChkB3,
Me.StxB3.Text)
End Sub
Private Sub
ChkB4_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB4.CheckedChanged
sub_chkB( Me.ChkB4,
Me.StxB4.Text)
End Sub
Private Sub
ChkB5_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB5.CheckedChanged
sub_chkB( Me.ChkB5,
Me.StxB5.Text)
End Sub
Private Sub
ChkB6_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB6.CheckedChanged
sub_chkB( Me.ChkB6,
Me.StxB6.Text)
End Sub
Private Sub
ChkB7_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB7.CheckedChanged
sub_chkB( Me.ChkB7,
Me.StxB7.Text)
End Sub
Private Sub
ChkB8_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB8.CheckedChanged
sub_chkB( Me.ChkB8,
Me.StxB8.Text)
End Sub
Private Sub
ChkB9_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB9.CheckedChanged
sub_chkB( Me.ChkB9,
Me.StxB9.Text)
End Sub
Private Sub
ChkB10_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB10.CheckedChanged
sub_chkB( Me.ChkB10,
Me.StxB10.Text)
End Sub
Private Sub
ChkB11_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB11.CheckedChanged
sub_chkB( Me.ChkB11,
Me.StxB11.Text)
End Sub
Private Sub
ChkB12_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB12.CheckedChanged
sub_chkB( Me.ChkB12,
Me.StxB12.Text)
End Sub
Private Sub
ChkB13_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB13.CheckedChanged
sub_chkB( Me.ChkB13,
Me.StxB13.Text)
End Sub
Private Sub
ChkB14_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB14.CheckedChanged
sub_chkB( Me.ChkB14,
Me.StxB14.Text)
End Sub
Private Sub
ChkB15_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB15.CheckedChanged
sub_chkB( Me.ChkB15,
Me.StxB15.Text)
End Sub
Private Sub
ChkB16_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB16.CheckedChanged
sub_chkB( Me.ChkB16,
Me.StxB16.Text)
End Sub
Private Sub
ChkB17_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB17.CheckedChanged
sub_chkB( Me.ChkB17,
Me.StxB17.Text)
End Sub
Private Sub
ChkB18_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB18.CheckedChanged
sub_chkB( Me.ChkB18,
Me.StxB18.Text)
End Sub
Private Sub
ChkB19_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB19.CheckedChanged
sub_chkB( Me.ChkB19,
Me.StxB19.Text)
End Sub
Private Sub
ChkB20_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB20.CheckedChanged
sub_chkB( Me.ChkB20,
Me.StxB20.Text)
End Sub
Private Sub
ChkB21_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB21.CheckedChanged
sub_chkB( Me.ChkB21,
Me.StxB21.Text)
End Sub
Private Sub
ChkB22_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB22.CheckedChanged
sub_chkB( Me.ChkB22,
Me.StxB22.Text)
End Sub
Private Sub
ChkB23_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB23.CheckedChanged
sub_chkB( Me.ChkB23,
Me.StxB23.Text)
End Sub
Private Sub
ChkB24_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ChkB24.CheckedChanged
sub_chkB( Me.ChkB24,
Me.StxB24.Text)
End Sub
'******************************* update/ save
*******************************
Private Sub
Sub_Update()
Try
Me.UpdateDataSet()
Catch eUpdate As
System.Exception
System.Windows.Forms.MessageBox.Show(eUpdate.Message)
End Try
End Sub
Public
Sub
UpdateDataSet()
'Create a new
dataset to hold the changes that have been made to the
main dataset.
Dim
objDataSetChanges As
work_VBNet.Agendadset =
New
work_VBNet.Agendadset
'Stop any current
edits.
Me.BindingContext(objAgendadset,
"agenda").EndCurrentEdit()
'Get the changes
that have been made to the main dataset.
objDataSetChanges =
CType(objAgendadset.GetChanges,
work_VBNet.Agendadset)
'Check to see if
any changes have been made.
If
(Not
(objDataSetChanges)
Is
Nothing)
Then
Try
'There are
changes that need to be made, so attempt to update the
datasource by
'calling the
update method and passing the dataset and any parameters.
Me.UpdateDataSource(objDataSetChanges)
objAgendadset.Merge(objDataSetChanges)
objAgendadset.AcceptChanges()
Catch
eUpdate As
System.Exception
'Add your error
handling code here.
Throw
eUpdate
End
Try
'Add your code to
check the returned dataset for any errors that may have
been
'pushed into the
row object's error.
End
If
End
Sub
Public
Sub
UpdateDataSource(ByVal
ChangedRows As
work_VBNet.Agendadset)
Try
'The data source
only needs to be updated if there are changes pending.
If
(Not
(ChangedRows) Is
Nothing)
Then
'Open the
connection.
Me.OleDbConnection1.Open()
'Attempt to
update the data source.
OleDbDataAdapter1.Update(ChangedRows)
End
If
Catch
updateException As
System.Exception
'Add your error
handling code here.
Throw
updateException
Finally
'Close the
connection whether or not the exception was thrown.
Me.OleDbConnection1.Close()
End
Try
End
Sub
Private Sub
Sub_Update1(ByVal v_type As String, ByVal v_record As
Integer)
Try
sub_updateDSet(v_type, v_record)
Catch eUpdate As
System.Exception
System.Windows.Forms.MessageBox.Show(eUpdate.Message)
End Try
End Sub
Private Sub
sub_updateDSet(ByVal v_type As String, ByVal v_record As
Integer)
'Create a new
dataset
Dim
objDataSetChanges As work_VBNet.Agendadset = New
work_VBNet.Agendadset
Select Case
v_type
Case "edit_task"
'edit task
Me.objAgendadset.agenda.Rows.Item(v_record).Item("description")
= Trim(agenda_desc)
Me.objAgendadset.agenda.Rows.Item(v_record).Item("taskprirority")
= Trim(task_prirority)
Case "new_task"
'new task
'
me.objAgendadset.agenda.Rows.Item(v_record).Item("branch")
=
Me.objAgendadset.agenda.Rows.Item(v_record).Item("datecreated")
= System.Convert.ToDateTime(current_date)
Me.objAgendadset.agenda.Rows.Item(v_record).Item("description")
= Trim(agenda_desc)
Me.objAgendadset.agenda.Rows.Item(v_record).Item("entry_type")
= "T"
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate")
= System.Convert.ToDateTime(current_date)
If (System.Convert.ToDateTime(current_date).Day
> 0 And System.Convert.ToDateTime(current_date).Day < 10)
Then
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_d")
= "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_d")
= Trim(Str(System.Convert.ToDateTime(current_date).Day))
End If
If (System.Convert.ToDateTime(current_date).Month
> 0 And System.Convert.ToDateTime(current_date).Month <
10) Then
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_m")
= "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_m")
= Trim(Str(System.Convert.ToDateTime(current_date).Month))
End If
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_y")
= Trim(Str(System.Convert.ToDateTime(current_date).Year))
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ontime")
= "12:00 AM"
Me.objAgendadset.agenda.Rows.Item(v_record).Item("serialno")
= new_serialno
Me.objAgendadset.agenda.Rows.Item(v_record).Item("taskprirority")
= Trim(task_prirority)
Case "edit_appointment"
'edit appointment
Me.objAgendadset.agenda.Rows.Item(v_record).Item("description")
= Trim(agenda_desc)
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate")
= System.Convert.ToDateTime(current_date)
If (System.Convert.ToDateTime(current_date).Day
> 0 And System.Convert.ToDateTime(current_date).Day < 10)
Then
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_d")
= "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_d")
= Trim(Str(System.Convert.ToDateTime(current_date).Day))
End If
If (System.Convert.ToDateTime(current_date).Month
> 0 And System.Convert.ToDateTime(current_date).Month <
10) Then
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_m")
= "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_m")
= Trim(Str(System.Convert.ToDateTime(current_date).Month))
End If
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_y")
= Trim(Str(System.Convert.ToDateTime(current_date).Year))
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ontime")
= Trim(appoint_time)
Case "new_appointment"
'new appointment
'
me.objAgendadset.agenda.Rows.Item(v_record).Item("branch")
=
Me.objAgendadset.agenda.Rows.Item(v_record).Item("datecreated")
= System.Convert.ToDateTime(current_date)
Me.objAgendadset.agenda.Rows.Item(v_record).Item("description")
= Trim(agenda_desc)
Me.objAgendadset.agenda.Rows.Item(v_record).Item("entry_type")
= "A"
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate")
= System.Convert.ToDateTime(current_date)
If (System.Convert.ToDateTime(current_date).Day
> 0 And System.Convert.ToDateTime(current_date).Day < 10)
Then
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_d")
= "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_d")
= Trim(Str(System.Convert.ToDateTime(current_date).Day))
End If
If (System.Convert.ToDateTime(current_date).Month
> 0 And System.Convert.ToDateTime(current_date).Month <
10) Then
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_m")
= "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_m")
= Trim(Str(System.Convert.ToDateTime(current_date).Month))
End If
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ondate_y")
= Trim(Str(System.Convert.ToDateTime(current_date).Year))
Me.objAgendadset.agenda.Rows.Item(v_record).Item("ontime")
= Trim(appoint_time)
Me.objAgendadset.agenda.Rows.Item(v_record).Item("serialno")
= new_serialno
Me.objAgendadset.agenda.Rows.Item(v_record).Item("taskprirority")
= ""
Me.objAgendadset.agenda.Rows.Item(v_record).Item("bookid")
= Val(appoint_bookid)
End Select
'Stop any current
edits.
Me.BindingContext(Me.objAgendadset,
"agenda").EndCurrentEdit()
'Get the changes
objDataSetChanges = CType(Me .objAgendadset.GetChanges,
work_VBNet.Agendadset)
If (Not (objDataSetChanges)
Is Nothing) Then
Try
Me.UpdateDataSource(objDataSetChanges)
Me.objAgendadset.Merge(objDataSetChanges)
Me.objAgendadset.AcceptChanges()
Catch eUpdate As
System.Exception
Throw
eUpdate
End Try
End If
End Sub
Private Sub
Btn_movetask_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles
Btn_movetask.Click
' task_order,
appoint_date
appoint_type = "task_appoint"
serial_taskappoint =
System.Convert.ToInt16(Trim( Me.list_chktask.Items.Item(0)))
sub_movetask("T",
serial_taskappoint)
agenda_desc =
vdset1.Tables("agenda").Rows(0).Item("description")
fagenda_appoint.ShowDialog()
End Sub
Private Sub
sub_movetask(ByVal v_entry_type As String, ByVal
v_serialno1 As Integer)
Dim WhereSearch
As String = ""
Dim i As Integer
WhereSearch = " WHERE (((entry_type)='"
& Trim(v_entry_type) & "') AND ((serialno)= " &
v_serialno1 & " ))"
vselect1 =
New
OleDb.OleDbCommand("SELECT agendaid, description,
entry_type, serialno FROM agenda" & WhereSearch)
vda1 =
New
OleDb.OleDbDataAdapter(vselect1)
vdset1 =
New
DataSet
vselect1.Connection() =
Me.OleDbConnection1
' Select command
vselect1.CommandTimeout = 30
vdset1.EnforceConstraints =
False
Try
Me.OleDbConnection1.Open()
vda1.Fill(vdset1, "agenda")
Catch
fillException As
System.Exception
System.Windows.Forms.MessageBox.Show(fillException.Message)
End Try
vdset1.EnforceConstraints = True
Me.OleDbConnection1.Close()
End Sub
'show agenda form
after edit (appointement)
Public Sub
aftermove_taskappoint()
Dim vondate_d As
String, vondate_m As String, vondate_y As String
If appoint_flag =
True Then
current_date =
Format(appoint_date, "M/d/yyyy")
If (System.Convert.ToDateTime(current_date).Day
> 0 And System.Convert.ToDateTime(current_date).Day < 10)
Then
vondate_d = "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
vondate_d =
Trim(Str(System.Convert.ToDateTime(current_date).Day))
End If
If (System.Convert.ToDateTime(current_date).Month
> 0 And System.Convert.ToDateTime(current_date).Month <
10) Then
vondate_m = "0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
vondate_m =
Trim(Str(System.Convert.ToDateTime(current_date).Month))
End If
vondate_y =
Trim(Str(System.Convert.ToDateTime(current_date).Year))
'new value -
serialno field, agenda table
sub_serialno("A", vondate_d,
vondate_m, vondate_y)
If
vdset1.Tables("agenda").Rows.Count < 24 Then
'add new record
Me.BindingContext(Me.objAgendadset,
"agenda").EndCurrentEdit()
Me.objAgendadset.agenda.Rows.Add(Me.objAgendadset.agenda.NewRow)
'update agenda
table, the task record to edit
Sub_Update1("new_appointment", (Me .objAgendadset.agenda.Count()
- 1))
'delete task
moved to appointment
sub_delmovetask()
'chkA.. -
checkbox, checked
ChkA_Checked(False )
Exit Sub
End If
End If
End Sub
Private Sub
sub_delmovetask()
Dim vvrc As
Integer
For vvrc = 0 To (Me.objAgendadset.Tables("agenda").Rows.Count
- 1)
If ((Trim(Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("entry_type"))
= "T") And (Me.objAgendadset.Tables("agenda").Rows(vvrc).Item("serialno")
= serial_taskappoint)) Then
'agenda table,
position
Me.BindingContext(Me.objAgendadset,
"agenda").Position = vvrc
Me.BindingContext(Me.objAgendadset, "agenda").RemoveAt(Me.BindingContext(Me.objAgendadset,
"agenda").Position)
Sub_Update()
Exit For
End If
Next
Me.list_chktask.Items.Clear()
ChkA_Checked( False)
Me.Btn_deltask.Enabled = False
Me.Btn_movetask.Enabled = False
'load agenda
table, objAgendadset dataset
LoadDataSet()
load_value(current_date)
End Sub
Private Sub
btn_ok_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
btn_ok.Click
Close()
End Sub
End
Class
|