Process Modules Project

Process Modules Project source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Universal Accounting Manager - ViewBox.vb

ViewBox.vb
  1. Public Class ViewBox
  2.     Dim ProgramName As String = My.Application.Info.AssemblyName
  3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
  4.     Dim ProductPath As String = DataPath & "\Products" '
  5.     Dim ServicesPath As String = DataPath & "\Services"
  6.     Dim CatPath As String = DataPath & "\Categories"
  7.     Dim StoresPath As String = DataPath & "\Stores"
  8.     Dim CustomersPath As String = DataPath & "\Customers"
  9.     Dim CompanyPath As String = DataPath & "\Company"
  10.     Dim MovmentPath As String = DataPath & "\Movment"
  11.     Dim RequestsPath As String = DataPath & "\Requests"
  12.     Dim VendorsPath As String = DataPath & "\Vendors"
  13.     Dim BoxPath As String = DataPath & "\Box"
  14.     Dim YearSTR As String = Date.Now.Year
  15.     Dim MonthSTR As String = Date.Now.Month
  16.     Dim DaySTR As String = Date.Now.Day
  17.     Dim Status As String = ""
  18.     Private Shared ViewBoxInstance As ViewBox
  19.     Public Shared Function GetInstance() As ViewBox
  20.         If (ViewBoxInstance Is Nothing) Then
  21.             ViewBoxInstance = New ViewBox
  22.         End If
  23.         Return ViewBoxInstance
  24.     End Function
  25.     Private Sub ViewBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  26.         LV.Columns.Add("التاريخ")
  27.         LV.Columns.Add("مجموع العملة في الصندوق")
  28.         LV.Columns.Add("رأس المال")
  29.         LV.Columns.Add("الضرائب")
  30.         LV.Columns.Add("الخدمات")
  31.         LV.Columns.Add("الربح")
  32.         LV.Columns.Add("أجرة المتجر")
  33.         LV.Columns.Add("أجرة الكهرباء")
  34.         LV.Columns.Add("أجرة المياه")
  35.         LV.Columns.Add("أجرة العمال")
  36.         LV.Columns.Add("نفقات يومية")
  37.         LoadCalender()
  38.         ReadBox()
  39.         GetDateData()
  40.         Refresher.Enabled = True
  41.     End Sub
  42.     Public Sub GetDateData()
  43.         On Error Resume Next
  44.         LV.Items.Clear()
  45.         Dim Addad As Integer = 0
  46.         Dim WDir As String = MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text
  47.         Dim TimeSTR As String = YearTXT.Text & "/" & MonthTXT.Text & "/" & DayTXT.Text
  48.         Dim TotalMoney As String = My.Computer.FileSystem.ReadAllText(WDir & "\money.dat", System.Text.Encoding.GetEncoding(0))
  49.         Dim TotalCapital As String = My.Computer.FileSystem.ReadAllText(WDir & "\capital.dat", System.Text.Encoding.GetEncoding(0))
  50.         Dim TotalTax As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\tax.dat", System.Text.Encoding.GetEncoding(0)))
  51.         Dim TotalServices As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\service.dat", System.Text.Encoding.GetEncoding(0)))
  52.         Dim TotalInter As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\inter.dat", System.Text.Encoding.GetEncoding(0)))
  53.         Dim Place As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\placerent.dat", System.Text.Encoding.GetEncoding(0)))
  54.         Dim Elec As String = My.Computer.FileSystem.ReadAllText(WDir & "\electricity.dat", System.Text.Encoding.GetEncoding(0))
  55.         Dim Water As String = My.Computer.FileSystem.ReadAllText(WDir & "\water.dat", System.Text.Encoding.GetEncoding(0))
  56.         Dim Worker As String = My.Computer.FileSystem.ReadAllText(WDir & "\workerrent.dat", System.Text.Encoding.GetEncoding(0))
  57.         Dim Daialy As String = My.Computer.FileSystem.ReadAllText(WDir & "\daialyspent.dat", System.Text.Encoding.GetEncoding(0))
  58.         LV.Items.Add(TimeSTR)
  59.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalMoney)
  60.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalCapital)
  61.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalTax)
  62.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalServices)
  63.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalInter)
  64.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Place)
  65.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Elec)
  66.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Water)
  67.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Worker)
  68.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Daialy)
  69.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
  70.     End Sub
  71.     Public Sub ReadBox()
  72.         On Error Resume Next
  73.         If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
  74.         If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
  75.         Dim WDir As String = MovmentPath & "\" & YearSTR & "\" & MonthSTR & "\" & DaySTR
  76.         MoneyLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\money.dat", System.Text.Encoding.GetEncoding(0))
  77.         CapitalLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\capital.dat", System.Text.Encoding.GetEncoding(0))
  78.         TaxLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\tax.dat", System.Text.Encoding.GetEncoding(0))
  79.         ServiceLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\service.dat", System.Text.Encoding.GetEncoding(0))
  80.         InterestLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\inter.dat", System.Text.Encoding.GetEncoding(0))
  81.         '
  82.         PlaceRentLBL.Text = My.Computer.FileSystem.ReadAllText(BoxPath & "\placerent.dat", System.Text.Encoding.GetEncoding(0)) & " / " & My.Computer.FileSystem.ReadAllText(CompanyPath & "\placerent.dat", System.Text.Encoding.GetEncoding(0))
  83.         PlaceBar.Value = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\placerent.dat", System.Text.Encoding.GetEncoding(0))) * 100 / Val(My.Computer.FileSystem.ReadAllText(CompanyPath & "\placerent.dat", System.Text.Encoding.GetEncoding(0)))
  84.         '
  85.         ElectricityLBL.Text = My.Computer.FileSystem.ReadAllText(BoxPath & "\electricity.dat", System.Text.Encoding.GetEncoding(0)) & " / " & My.Computer.FileSystem.ReadAllText(CompanyPath & "\electricity.dat", System.Text.Encoding.GetEncoding(0))
  86.         ElcBar.Value = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\electricity.dat", System.Text.Encoding.GetEncoding(0))) * 100 / Val(My.Computer.FileSystem.ReadAllText(CompanyPath & "\electricity.dat", System.Text.Encoding.GetEncoding(0)))
  87.         '
  88.         WaterLBL.Text = My.Computer.FileSystem.ReadAllText(BoxPath & "\water.dat", System.Text.Encoding.GetEncoding(0)) & " / " & My.Computer.FileSystem.ReadAllText(CompanyPath & "\water.dat", System.Text.Encoding.GetEncoding(0))
  89.         WaterBar.Value = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\water.dat", System.Text.Encoding.GetEncoding(0))) * 100 / Val(My.Computer.FileSystem.ReadAllText(CompanyPath & "\water.dat", System.Text.Encoding.GetEncoding(0)))
  90.         '
  91.         WorkerRentLBL.Text = My.Computer.FileSystem.ReadAllText(BoxPath & "\workerrent.dat", System.Text.Encoding.GetEncoding(0)) & " / " & My.Computer.FileSystem.ReadAllText(CompanyPath & "\workerrent.dat", System.Text.Encoding.GetEncoding(0))
  92.         WorkerBar.Value = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\workerrent.dat", System.Text.Encoding.GetEncoding(0))) * 100 / Val(My.Computer.FileSystem.ReadAllText(CompanyPath & "\workerrent.dat", System.Text.Encoding.GetEncoding(0)))
  93.         '
  94.         DaialySpentLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\daialyspent.dat", System.Text.Encoding.GetEncoding(0))
  95.         '
  96.         YearPaymentLBL.Text = "أرباح العام : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
  97.         MonthPaymentLBL.Text = "أرباح الشهر : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
  98.     End Sub
  99.     Public Sub LoadCalenderYear()
  100.         YearTXT.Items.Clear()
  101.         Dim Addad As Integer = 0
  102.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath).Count - 1
  103.             YearTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath).Item(Addad)).Name)
  104.         Next
  105.         YearTXT.Text = YearSTR
  106.     End Sub
  107.     Public Sub LoadCalenderMonth()
  108.         MonthTXT.Items.Clear()
  109.         Dim MonthAdaad As Integer = 0
  110.         For MonthAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Count - 1
  111.             MonthTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Item(MonthAdaad)).Name)
  112.         Next
  113.         If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
  114.         MonthTXT.SelectedIndex = MonthTXT.Items.Count - 1
  115.     End Sub
  116.     Public Sub LoadCalenderDay()
  117.         DayTXT.Items.Clear()
  118.         Dim DayAdaad As Integer = 0
  119.         For DayAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Count - 1
  120.             DayTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Item(DayAdaad)).Name)
  121.         Next
  122.         If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
  123.         DayTXT.SelectedIndex = DayTXT.Items.Count - 1
  124.     End Sub
  125.     Public Sub LoadCalender()
  126.         LoadCalenderYear()
  127.         LoadCalenderMonth()
  128.         LoadCalenderDay()
  129.     End Sub
  130.     Private Sub CloseSaveBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseSaveBTN.Click
  131.         StartUp.CloseTabs()
  132.     End Sub
  133.     Private Sub YearTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YearTXT.SelectedIndexChanged
  134.         Refresher.Enabled = False
  135.         LoadCalenderMonth()
  136.         Refresher.Enabled = True
  137.     End Sub
  138.     Private Sub MonthTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthTXT.SelectedIndexChanged
  139.         Refresher.Enabled = False
  140.         LoadCalenderDay()
  141.         Refresher.Enabled = True
  142.     End Sub
  143.     Private Sub DayTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DayTXT.SelectedIndexChanged
  144.         GetDateData()
  145.     End Sub
  146.     Private Sub ConvertBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConvertBTN.Click
  147.         Status = "con"
  148.         FromLBL.Visible = True
  149.         FromTXT.Visible = True
  150.         ToLBL.Visible = True
  151.         ToTXT.Visible = True
  152.         MoveBTN.Visible = True
  153.         AmountLBL.Visible = True
  154.         AmountTXT.Visible = True
  155.         cancelBTN.Visible = True
  156.         AddBTN.Visible = False
  157.     End Sub
  158.     Private Sub MoveBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MoveBTN.Click
  159.         'On Error Resume Next
  160.         Dim WDir As String = MovmentPath & "\" & YearSTR & "\" & MonthSTR & "\" & DaySTR
  161.         Dim SName As String = ""
  162.         Dim TName As String = ""
  163.         If FromTXT.SelectedIndex = 0 Then SName = "money.dat"
  164.         If FromTXT.SelectedIndex = 1 Then SName = "capital.dat"
  165.         If FromTXT.SelectedIndex = 2 Then SName = "tax.dat"
  166.         If FromTXT.SelectedIndex = 3 Then SName = "service.dat"
  167.         If FromTXT.SelectedIndex = 4 Then SName = "inter.dat"
  168.         If FromTXT.SelectedIndex = 5 Then SName = "placerent.dat"
  169.         If FromTXT.SelectedIndex = 6 Then SName = "electricity.dat"
  170.         If FromTXT.SelectedIndex = 7 Then SName = "water.dat"
  171.         If FromTXT.SelectedIndex = 8 Then SName = "workerrent.dat"
  172.         If FromTXT.SelectedIndex = 9 Then SName = "daialyspent.dat"
  173.         If ToTXT.SelectedIndex = 0 Then TName = "placerent.dat"
  174.         If ToTXT.SelectedIndex = 1 Then TName = "electricity.dat"
  175.         If ToTXT.SelectedIndex = 2 Then TName = "water.dat"
  176.         If ToTXT.SelectedIndex = 3 Then TName = "workerrent.dat"
  177.         If ToTXT.SelectedIndex = 4 Then TName = "daialyspent.dat"
  178.         If ToTXT.SelectedIndex = 5 Then TName = "money.dat"
  179.         If ToTXT.SelectedIndex = 6 Then TName = "capital.dat"
  180.         If ToTXT.SelectedIndex = 7 Then TName = "tax.dat"
  181.         If ToTXT.SelectedIndex = 8 Then TName = "service.dat"
  182.         If ToTXT.SelectedIndex = 9 Then TName = "inter.dat"
  183.         If FromTXT.SelectedIndex = 3 And ToTXT.SelectedIndex = 9 Then GoTo Panned
  184.         If FromTXT.SelectedIndex = 8 And ToTXT.SelectedIndex = 4 Then GoTo Panned
  185.         If FromTXT.SelectedIndex = 0 Then GoTo Panned
  186.         If ToTXT.SelectedIndex = 5 Then GoTo Panned
  187.         Dim SWValue As Double = 0
  188.         Dim SBValue As Double = 0
  189.         Dim TWValue As Double = 0
  190.         Dim TBValue As Double = 0
  191.         Dim MoneyValue As Double = 0
  192.         If My.Computer.FileSystem.FileExists(BoxPath & "\" & SName) = False Then My.Computer.FileSystem.WriteAllText(BoxPath & "\" & SName, 0, False, System.Text.Encoding.GetEncoding(0))
  193.         If My.Computer.FileSystem.FileExists(BoxPath & "\" & TName) = False Then My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, 0, False, System.Text.Encoding.GetEncoding(0))
  194.         SWValue = Val(My.Computer.FileSystem.ReadAllText(WDir & "\" & SName, System.Text.Encoding.GetEncoding(0)))
  195.         SBValue = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\" & SName, System.Text.Encoding.GetEncoding(0)))
  196.         TWValue = Val(My.Computer.FileSystem.ReadAllText(WDir & "\" & TName, System.Text.Encoding.GetEncoding(0)))
  197.         TBValue = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\" & TName, System.Text.Encoding.GetEncoding(0)))
  198.         MoneyValue = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\money.dat", System.Text.Encoding.GetEncoding(0)))
  199.         If Status = "add" Then GoTo AddStatus
  200.         If FromTXT.SelectedIndex < 5 And SWValue < Val(AmountTXT.Text) Then MsgBox("المبلغ الذي أدخلته كبير جداً") : GoTo Finish
  201.         If FromTXT.SelectedIndex >= 5 And SBValue < Val(AmountTXT.Text) Then MsgBox("المبلغ الذي أدخلته كبير جداً - Box") : GoTo Finish
  202.         If FromTXT.SelectedIndex < 5 Then
  203.             My.Computer.FileSystem.WriteAllText(WDir & "\" & SName, SWValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  204.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & SName, SWValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  205.             My.Computer.FileSystem.WriteAllText(WDir & "\money.dat", MoneyValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  206.             My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", MoneyValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  207.         Else
  208.             My.Computer.FileSystem.WriteAllText(WDir & "\" & SName, SWValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  209.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & SName, SBValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  210.         End If
  211.         MoneyValue = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\money.dat", System.Text.Encoding.GetEncoding(0)))
  212.         If ToTXT.SelectedIndex >= 5 Then
  213.             My.Computer.FileSystem.WriteAllText(WDir & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  214.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  215.             My.Computer.FileSystem.WriteAllText(WDir & "\money.dat", MoneyValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  216.             My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", MoneyValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  217.         Else
  218.             My.Computer.FileSystem.WriteAllText(WDir & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  219.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, TBValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  220.         End If
  221.         GoTo Final
  222. AddStatus:
  223.         If ToTXT.SelectedIndex >= 5 Then
  224.             My.Computer.FileSystem.WriteAllText(WDir & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  225.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  226.             My.Computer.FileSystem.WriteAllText(WDir & "\money.dat", MoneyValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  227.             My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", MoneyValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  228.         Else
  229.             My.Computer.FileSystem.WriteAllText(WDir & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  230.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, TBValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
  231.         End If
  232. Final:
  233.         ReadBox()
  234.         GetDateData()
  235.         FromLBL.Visible = False
  236.         FromTXT.Visible = False
  237.         ToLBL.Visible = False
  238.         ToTXT.Visible = False
  239.         MoveBTN.Visible = False
  240.         AmountLBL.Visible = False
  241.         AmountTXT.Visible = False
  242.         cancelBTN.Visible = False
  243.         AddBTN.Visible = True
  244.         GoTo Finish
  245. Panned:
  246.         MsgBox("عذراً ، العملية التي قمت بطلبها غير مسموحة ، لا يمكن رياضياً السحب و التحويل بهذه الطريقة")
  247. Finish:
  248.         AmountTXT.Text = ""
  249.     End Sub
  250.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
  251.         ReadBox()
  252.         GetDateData()
  253.     End Sub
  254.     Private Sub cancelBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancelBTN.Click
  255.         FromLBL.Visible = False
  256.         FromTXT.Visible = False
  257.         ToLBL.Visible = False
  258.         ToTXT.Visible = False
  259.         MoveBTN.Visible = False
  260.         AmountLBL.Visible = False
  261.         AmountTXT.Visible = False
  262.         cancelBTN.Visible = False
  263.         AddBTN.Visible = True
  264.     End Sub
  265.     Private Sub AddBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBTN.Click
  266.         Status = "add"
  267.         ToLBL.Visible = True
  268.         ToTXT.Visible = True
  269.         MoveBTN.Visible = True
  270.         AmountLBL.Visible = True
  271.         AmountTXT.Visible = True
  272.         cancelBTN.Visible = True
  273.     End Sub
  274.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
  275.         If LV.SelectedItems.Count > 0 Then
  276.             StartUp.OpenNewTab(Charts.GetInstance)
  277.         End If
  278.     End Sub
  279.     Private Sub AmountTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles AmountTXT.KeyDown
  280.         If e.KeyCode = Keys.Enter Then MoveBTN.Select()
  281.     End Sub
  282. End Class

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.