The Visual Basic .Net Form - agenda.vb, Text Codes
 
 
 

       
      Return



  The Form -  agenda.vb ...

 
 

 The codes  corresponding ...
   
    
   The text Code is red color, the codes added manuel ...
 
 
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

 

   
  
 



 

      Return