API tools faq
paste
Advertisement
TermSpar

Desktop

TermSpar
Jan 4th, 2016
235
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 56.04 KB | None | 0 0
raw download clone embed print report
  1. Imports System.IO
  2. Public Class frmMain
  3.     Dim blk() As PictureBox
  4.     Dim lastImage As PictureBox
  5.     Dim pressed2 As Integer = 1
  6.     Dim pressed As Integer = 1
  7.     Dim mousePosX As Single, mousePosY As Single
  8.     Dim mousePosX2 As Single, mousePosY2 As Single
  9.     Dim mousePosX3 As Single, mousePosY3 As Single
  10.     Dim mousePosX4 As Single, mousePosY4 As Single
  11.     Dim mousePosX5 As Single, mousePosY5 As Single
  12.     Dim mousePosX6 As Single, mousePosY6 As Single
  13.     Dim mousePosX7 As Single, mousePosY7 As Single
  14.     Dim mousePosX8 As Single, mousePosY8 As Single
  15.     Dim mousePosX9 As Single, mousePosY9 As Single
  16.     Dim mousePosX10 As Single, mousePosY10 As Single
  17.     Public picArrayInternet() As PictureBox
  18.     Public picArrayCalculator() As PictureBox
  19.     Public picArrayChatBot() As PictureBox
  20.     Public picArrayStopWatch() As PictureBox
  21.     Public picArrayBinaryTrans() As PictureBox
  22.     Public picArrayGPA() As PictureBox
  23.     Public picArrayGmail() As PictureBox
  24.     Public picArrayMessenger() As PictureBox
  25.     Public picArrayNotes() As PictureBox
  26.     Public picArrayFinals() As PictureBox
  27.  
  28.     Private Sub frmMain_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  29.         My.Settings.background = Me.BackColor
  30.     End Sub
  31.  
  32.  
  33.     Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  34.         pbFinals.Hide()
  35.         Me.BackColor = My.Settings.background
  36.         picArrayStopWatch = {Me.pbBinaryTranslator, Me.pbChatBot, Me.pbGmail, Me.pbGPA, Me.pbInternet, Me.pbMessenger, Me.pbNotes, Me.pbCalculator, Me.pbFinals}
  37.         picArrayInternet = {Me.pbBinaryTranslator, Me.pbChatBot, Me.pbGmail, Me.pbGPA, Me.pbCalculator, Me.pbMessenger, Me.pbNotes, Me.pbStopWatch, Me.pbFinals}
  38.         picArrayBinaryTrans = {Me.pbCalculator, Me.pbChatBot, Me.pbGmail, Me.pbGPA, Me.pbInternet, Me.pbMessenger, Me.pbNotes, Me.pbStopWatch, Me.pbFinals}
  39.         picArrayCalculator = {Me.pbBinaryTranslator, Me.pbChatBot, Me.pbGmail, Me.pbGPA, Me.pbInternet, Me.pbMessenger, Me.pbNotes, Me.pbStopWatch, Me.pbFinals}
  40.         picArrayChatBot = {Me.pbBinaryTranslator, Me.pbCalculator, Me.pbGmail, Me.pbGPA, Me.pbInternet, Me.pbMessenger, Me.pbNotes, Me.pbStopWatch, Me.pbFinals}
  41.         picArrayGmail = {Me.pbBinaryTranslator, Me.pbCalculator, Me.pbChatBot, Me.pbGPA, Me.pbInternet, Me.pbMessenger, Me.pbNotes, Me.pbStopWatch, Me.pbFinals}
  42.         picArrayGPA = {Me.pbBinaryTranslator, Me.pbCalculator, Me.pbChatBot, Me.pbGmail, Me.pbInternet, Me.pbMessenger, Me.pbNotes, Me.pbStopWatch, Me.pbFinals}
  43.         picArrayGmail = {Me.pbBinaryTranslator, Me.pbCalculator, Me.pbChatBot, Me.pbGPA, Me.pbInternet, Me.pbMessenger, Me.pbNotes, Me.pbStopWatch, Me.pbFinals}
  44.         picArrayMessenger = {Me.pbBinaryTranslator, Me.pbCalculator, Me.pbChatBot, Me.pbGPA, Me.pbInternet, Me.pbGmail, Me.pbNotes, Me.pbStopWatch, Me.pbFinals}
  45.         picArrayNotes = {Me.pbBinaryTranslator, Me.pbCalculator, Me.pbChatBot, Me.pbGPA, Me.pbInternet, Me.pbGmail, Me.pbMessenger, Me.pbStopWatch, Me.pbFinals}
  46.         picArrayFinals = {Me.pbBinaryTranslator, Me.pbCalculator, Me.pbChatBot, Me.pbGPA, Me.pbInternet, Me.pbGmail, Me.pbMessenger, Me.pbStopWatch, Me.pbNotes}
  47.             pbBinaryTranslator.Hide()
  48.             pbCalculator.Hide()
  49.             pbChatBot.Hide()
  50.             pbGmail.Hide()
  51.             pbGPA.Hide()
  52.             pbInternet.Hide()
  53.             pbMessenger.Hide()
  54.             pbNotes.Hide()
  55.             pbStopWatch.Hide()
  56.             Label16.Hide()
  57.             Label17.Hide()
  58.             Label18.Hide()
  59.             lblName.Text = My.Computer.Name
  60.             Button2.Hide()
  61.             Label3.Hide()
  62.             Label4.Hide()
  63.             Label5.Hide()
  64.             Label14.Hide()
  65.             mousePosX = My.Settings.Position1
  66.             mousePosY = My.Settings.Position1
  67.             Label1.Hide()
  68.             Timer2.Start()
  69.             Label12.Hide()
  70.             TextBox1.Hide()
  71.             Label11.Hide()
  72.             Label6.Hide()
  73.             Label7.Hide()
  74.             Label8.Hide()
  75.             Label9.Hide()
  76.             Label10.Hide()
  77.             PictureBox4.Hide()
  78.             Timer1.Start()
  79.             GroupBox1.Hide()
  80.             Label2.Hide()
  81.     End Sub
  82.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  83.         lblTime.Text = TimeOfDay
  84.     End Sub
  85.  
  86.     Private Sub btnHide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHide.Click
  87.         pressed += 1
  88.         If ((pressed Mod 2) = 0) Then
  89.             PictureBox4.Show()
  90.             Label6.Show()
  91.             Label7.Show()
  92.             Label8.Show()
  93.             Label9.Show()
  94.             Label10.Show()
  95.             TextBox1.Show()
  96.             Label11.Show()
  97.             Label12.Show()
  98.             Label1.Show()
  99.             Button2.Show()
  100.             Label14.Show()
  101.             ''label15.show()
  102.             Label16.Show()
  103.             Label17.Show()
  104.             Label18.Show()
  105.         Else
  106.             PictureBox4.Hide()
  107.             Label6.Hide()
  108.             Label7.Hide()
  109.             Label8.Hide()
  110.             Label9.Hide()
  111.             Label10.Hide()
  112.             Label11.Hide()
  113.             TextBox1.Hide()
  114.             Label12.Hide()
  115.             Label1.Hide()
  116.             Button2.Hide()
  117.             Label14.Hide()
  118.             Label16.Hide()
  119.             Label17.Hide()
  120.             Label18.Hide()
  121.         End If
  122.         If GroupBox1.Visible = True Then
  123.             pressed2 += 1
  124.             Label3.Hide()
  125.             Label4.Hide()
  126.             Label5.Hide()
  127.             GroupBox1.Hide()
  128.             Label2.Hide()
  129.         End If
  130.         If TextBox1.Text = "" Then
  131.             TextBox1.Text = "Search..."
  132.             TextBox1.ForeColor = Color.Gray
  133.         End If
  134.     End Sub
  135.  
  136.     Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
  137.         PictureBox1_DoubleClick(Label6, System.EventArgs.Empty)
  138.         frmBrowser.Show()
  139.         If PictureBox4.Visible = True Then
  140.             pressed += 1
  141.             PictureBox4.Hide()
  142.             Label6.Hide()
  143.             Label7.Hide()
  144.             Label8.Hide()
  145.             Label9.Hide()
  146.             Label10.Hide()
  147.             Label11.Hide()
  148.             TextBox1.Hide()
  149.             Label12.Hide()
  150.             Label1.Hide()
  151.             Button2.Hide()
  152.             Label14.Hide()
  153.             Label16.Hide()
  154.             Label17.Hide()
  155.             Label18.Hide()
  156.             If GroupBox1.Visible = True Then
  157.                 pressed2 += 1
  158.                 Label3.Hide()
  159.                 Label4.Hide()
  160.                 Label5.Hide()
  161.                 GroupBox1.Hide()
  162.                 Label2.Hide()
  163.             End If
  164.         End If
  165.     End Sub
  166.  
  167.     Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
  168.         PictureBox2_DoubleClick(Label7, System.EventArgs.Empty)
  169.         frmCalculator.Show()
  170.         If PictureBox4.Visible = True Then
  171.             pressed += 1
  172.             PictureBox4.Hide()
  173.             Label6.Hide()
  174.             Label7.Hide()
  175.             Label8.Hide()
  176.             Label9.Hide()
  177.             Label10.Hide()
  178.             Label11.Hide()
  179.             TextBox1.Hide()
  180.             Label12.Hide()
  181.             Label1.Hide()
  182.             Button2.Hide()
  183.             Label14.Hide()
  184.             Label16.Hide()
  185.             Label17.Hide()
  186.             Label18.Hide()
  187.             If GroupBox1.Visible = True Then
  188.                 pressed2 += 1
  189.                 Label3.Hide()
  190.                 Label4.Hide()
  191.                 Label5.Hide()
  192.                 GroupBox1.Hide()
  193.                 Label2.Hide()
  194.             End If
  195.         End If
  196.     End Sub
  197.  
  198.     Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
  199.         PictureBox5_DoubleClick(Label8, System.EventArgs.Empty)
  200.         frmMessenger.Show()
  201.         If PictureBox4.Visible = True Then
  202.             pressed += 1
  203.             PictureBox4.Hide()
  204.             Label6.Hide()
  205.             Label7.Hide()
  206.             Label8.Hide()
  207.             Label9.Hide()
  208.             Label10.Hide()
  209.             Label11.Hide()
  210.             TextBox1.Hide()
  211.             Label12.Hide()
  212.             Label1.Hide()
  213.             Button2.Hide()
  214.             Label14.Hide()
  215.             Label16.Hide()
  216.             Label17.Hide()
  217.             Label18.Hide()
  218.             If GroupBox1.Visible = True Then
  219.                 pressed2 += 1
  220.                 Label3.Hide()
  221.                 Label4.Hide()
  222.                 Label5.Hide()
  223.                 GroupBox1.Hide()
  224.                 Label2.Hide()
  225.             End If
  226.         End If
  227.     End Sub
  228.  
  229.     Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
  230.         PictureBox3_DoubleClick(Label9, System.EventArgs.Empty)
  231.         frmStopWatch.Show()
  232.         If PictureBox4.Visible = True Then
  233.             pressed += 1
  234.             PictureBox4.Hide()
  235.             Label6.Hide()
  236.             Label7.Hide()
  237.             Label8.Hide()
  238.             Label9.Hide()
  239.             Label10.Hide()
  240.             Label11.Hide()
  241.             TextBox1.Hide()
  242.             Label12.Hide()
  243.             Label1.Hide()
  244.             Button2.Hide()
  245.             Label14.Hide()
  246.             Label16.Hide()
  247.             Label17.Hide()
  248.             Label18.Hide()
  249.             If GroupBox1.Visible = True Then
  250.                 pressed2 += 1
  251.                 Label3.Hide()
  252.                 Label4.Hide()
  253.                 Label5.Hide()
  254.                 GroupBox1.Hide()
  255.                 Label2.Hide()
  256.             End If
  257.         End If
  258.     End Sub
  259.  
  260.     Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
  261.         PictureBox7_DoubleClick(Label10, System.EventArgs.Empty)
  262.         frmBinary.Show()
  263.         If PictureBox4.Visible = True Then
  264.             pressed += 1
  265.             PictureBox4.Hide()
  266.             Label6.Hide()
  267.             Label7.Hide()
  268.             Label8.Hide()
  269.             Label9.Hide()
  270.             Label10.Hide()
  271.             Label11.Hide()
  272.             TextBox1.Hide()
  273.             Label12.Hide()
  274.             Label1.Hide()
  275.             Button2.Hide()
  276.             Label14.Hide()
  277.             Label16.Hide()
  278.             Label17.Hide()
  279.             Label18.Hide()
  280.             If GroupBox1.Visible = True Then
  281.                 pressed2 += 1
  282.                 Label3.Hide()
  283.                 Label4.Hide()
  284.                 Label5.Hide()
  285.                 GroupBox1.Hide()
  286.                 Label2.Hide()
  287.             End If
  288.         End If
  289.     End Sub
  290.  
  291.     Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
  292.         If e.KeyCode = Keys.Enter Then
  293.             If TextBox1.Text.Contains("browser") Or TextBox1.Text.Contains("Browser") Then
  294.                 frmBrowser.Show()
  295.                 If PictureBox4.Visible = True Then
  296.                     pressed += 1
  297.                     PictureBox4.Hide()
  298.                     Label6.Hide()
  299.                     Label7.Hide()
  300.                     Label8.Hide()
  301.                     Label9.Hide()
  302.                     Label10.Hide()
  303.                     Label11.Hide()
  304.                     TextBox1.Hide()
  305.                     Label12.Hide()
  306.                     Label1.Hide()
  307.                     Button2.Hide()
  308.                     Label14.Hide()
  309.                     Label16.Hide()
  310.                     Label17.Hide()
  311.                     Label18.Hide()
  312.                     If GroupBox1.Visible = True Then
  313.                         pressed2 += 1
  314.                         Label3.Hide()
  315.                         Label4.Hide()
  316.                         Label5.Hide()
  317.                         GroupBox1.Hide()
  318.                         Label2.Hide()
  319.                     End If
  320.                 End If
  321.                 TextBox1.Clear()
  322.             ElseIf TextBox1.Text.Contains("calculator") Or TextBox1.Text.Contains("Calculator") Then
  323.                 frmCalculator.Show()
  324.                 TextBox1.Clear()
  325.                 If PictureBox4.Visible = True Then
  326.                     pressed += 1
  327.                     PictureBox4.Hide()
  328.                     Label6.Hide()
  329.                     Label7.Hide()
  330.                     Label8.Hide()
  331.                     Label9.Hide()
  332.                     Label10.Hide()
  333.                     Label11.Hide()
  334.                     TextBox1.Hide()
  335.                     Label12.Hide()
  336.                     Label1.Hide()
  337.                     Button2.Hide()
  338.                     Label14.Hide()
  339.                     Label16.Hide()
  340.                     Label17.Hide()
  341.                     Label18.Hide()
  342.                     If GroupBox1.Visible = True Then
  343.                         pressed2 += 1
  344.                         Label3.Hide()
  345.                         Label4.Hide()
  346.                         Label5.Hide()
  347.                         GroupBox1.Hide()
  348.                         Label2.Hide()
  349.                     End If
  350.                 End If
  351.             ElseIf TextBox1.Text.Contains("binary") Or TextBox1.Text.Contains("Binary") Then
  352.                 frmBinary.Show()
  353.                 TextBox1.Clear()
  354.                 If PictureBox4.Visible = True Then
  355.                     pressed += 1
  356.                     PictureBox4.Hide()
  357.                     Label6.Hide()
  358.                     Label7.Hide()
  359.                     Label8.Hide()
  360.                     Label9.Hide()
  361.                     Label10.Hide()
  362.                     Label11.Hide()
  363.                     TextBox1.Hide()
  364.                     Label12.Hide()
  365.                     Label1.Hide()
  366.                     Button2.Hide()
  367.                     Label14.Hide()
  368.                     Label16.Hide()
  369.                     Label17.Hide()
  370.                     Label18.Hide()
  371.                     If GroupBox1.Visible = True Then
  372.                         pressed2 += 1
  373.                         Label3.Hide()
  374.                         Label4.Hide()
  375.                         Label5.Hide()
  376.                         GroupBox1.Hide()
  377.                         Label2.Hide()
  378.                     End If
  379.                 End If
  380.             ElseIf TextBox1.Text.Contains("messenger") Or TextBox1.Text.Contains("Messenger") Then
  381.                 frmMessenger.Show()
  382.                 TextBox1.Clear()
  383.                 If PictureBox4.Visible = True Then
  384.                     pressed += 1
  385.                     PictureBox4.Hide()
  386.                     Label6.Hide()
  387.                     Label7.Hide()
  388.                     Label8.Hide()
  389.                     Label9.Hide()
  390.                     Label10.Hide()
  391.                     Label11.Hide()
  392.                     TextBox1.Hide()
  393.                     Label12.Hide()
  394.                     Label1.Hide()
  395.                     Button2.Hide()
  396.                     Label14.Hide()
  397.                     Label16.Hide()
  398.                     Label17.Hide()
  399.                     Label18.Hide()
  400.                     If GroupBox1.Visible = True Then
  401.                         pressed2 += 1
  402.                         Label3.Hide()
  403.                         Label4.Hide()
  404.                         Label5.Hide()
  405.                         GroupBox1.Hide()
  406.                         Label2.Hide()
  407.                     End If
  408.                 End If
  409.             ElseIf TextBox1.Text.Contains("watch") Or TextBox1.Text.Contains("Watch") Then
  410.                 frmStopWatch.Show()
  411.                 TextBox1.Clear()
  412.                 If PictureBox4.Visible = True Then
  413.                     pressed += 1
  414.                     PictureBox4.Hide()
  415.                     Label6.Hide()
  416.                     Label7.Hide()
  417.                     Label8.Hide()
  418.                     Label9.Hide()
  419.                     Label10.Hide()
  420.                     Label11.Hide()
  421.                     TextBox1.Hide()
  422.                     Label12.Hide()
  423.                     Label1.Hide()
  424.                     Button2.Hide()
  425.                     Label14.Hide()
  426.                     Label16.Hide()
  427.                     Label17.Hide()
  428.                     Label18.Hide()
  429.                     If GroupBox1.Visible = True Then
  430.                         pressed2 += 1
  431.                         Label3.Hide()
  432.                         Label4.Hide()
  433.                         Label5.Hide()
  434.                         GroupBox1.Hide()
  435.                         Label2.Hide()
  436.                     End If
  437.                 End If
  438.             ElseIf TextBox1.Text.Contains("GPA") Or TextBox1.Text.Contains("gpa") Then
  439.                 frmGPACalculator.Show()
  440.                 TextBox1.Clear()
  441.                 If PictureBox4.Visible = True Then
  442.                     pressed += 1
  443.                     PictureBox4.Hide()
  444.                     Label6.Hide()
  445.                     Label7.Hide()
  446.                     Label8.Hide()
  447.                     Label9.Hide()
  448.                     Label10.Hide()
  449.                     Label11.Hide()
  450.                     TextBox1.Hide()
  451.                     Label12.Hide()
  452.                     Label1.Hide()
  453.                     Button2.Hide()
  454.                     Label14.Hide()
  455.                     Label15.Hide()
  456.                     Label16.Hide()
  457.                     Label17.Hide()
  458.                     Label18.Hide()
  459.                     If GroupBox1.Visible = True Then
  460.                         pressed2 += 1
  461.                         Label3.Hide()
  462.                         Label4.Hide()
  463.                         Label5.Hide()
  464.                         GroupBox1.Hide()
  465.                         Label2.Hide()
  466.                     End If
  467.                 End If
  468.             ElseIf TextBox1.Text.Contains("chat") Or TextBox1.Text.Contains("Chat") Then
  469.                 frmChatBot.Show()
  470.                 TextBox1.Clear()
  471.                 If PictureBox4.Visible = True Then
  472.                     pressed += 1
  473.                     PictureBox4.Hide()
  474.                     Label6.Hide()
  475.                     Label7.Hide()
  476.                     Label8.Hide()
  477.                     Label9.Hide()
  478.                     Label10.Hide()
  479.                     Label11.Hide()
  480.                     TextBox1.Hide()
  481.                     Label12.Hide()
  482.                     Label1.Hide()
  483.                     Button2.Hide()
  484.                     Label14.Hide()
  485.                     Label15.Hide()
  486.                     Label16.Hide()
  487.                     Label17.Hide()
  488.                     Label18.Hide()
  489.                     If GroupBox1.Visible = True Then
  490.                         pressed2 += 1
  491.                         Label3.Hide()
  492.                         Label4.Hide()
  493.                         Label5.Hide()
  494.                         GroupBox1.Hide()
  495.                         Label2.Hide()
  496.                     End If
  497.                 End If
  498.             ElseIf TextBox1.Text.Contains("gmail") Or TextBox1.Text.Contains("Gmail") Then
  499.                 frmMail.Show()
  500.                 TextBox1.Clear()
  501.                 If PictureBox4.Visible = True Then
  502.                     pressed += 1
  503.                     PictureBox4.Hide()
  504.                     Label6.Hide()
  505.                     Label7.Hide()
  506.                     Label8.Hide()
  507.                     Label9.Hide()
  508.                     Label10.Hide()
  509.                     Label11.Hide()
  510.                     TextBox1.Hide()
  511.                     Label12.Hide()
  512.                     Label1.Hide()
  513.                     Button2.Hide()
  514.                     Label14.Hide()
  515.                     Label15.Hide()
  516.                     Label16.Hide()
  517.                     Label17.Hide()
  518.                     Label18.Hide()
  519.                     If GroupBox1.Visible = True Then
  520.                         pressed2 += 1
  521.                         Label3.Hide()
  522.                         Label4.Hide()
  523.                         Label5.Hide()
  524.                         GroupBox1.Hide()
  525.                         Label2.Hide()
  526.                     End If
  527.                 End If
  528.                 Button1.PerformClick()
  529.             ElseIf TextBox1.Text.Contains("console") Or TextBox1.Text.Contains("Console") Then
  530.                 frmConsole.Show()
  531.                 TextBox1.Clear()
  532.                 If PictureBox4.Visible = True Then
  533.                     pressed += 1
  534.                     PictureBox4.Hide()
  535.                     Label6.Hide()
  536.                     Label7.Hide()
  537.                     Label8.Hide()
  538.                     Label9.Hide()
  539.                     Label10.Hide()
  540.                     Label11.Hide()
  541.                     TextBox1.Hide()
  542.                     Label12.Hide()
  543.                     Label1.Hide()
  544.                     Button2.Hide()
  545.                     Label14.Hide()
  546.                     Label16.Hide()
  547.                     Label17.Hide()
  548.                     Label18.Hide()
  549.                     If GroupBox1.Visible = True Then
  550.                         pressed2 += 1
  551.                         Label3.Hide()
  552.                         Label4.Hide()
  553.                         Label5.Hide()
  554.                         GroupBox1.Hide()
  555.                         Label2.Hide()
  556.                     End If
  557.                 End If
  558.             End If
  559.         End If
  560.     End Sub
  561.  
  562.     Private Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick
  563.         PictureBox1.Enabled = False
  564.         pbInternet.Show()
  565.         frmBrowser.Show()
  566.         For Each p In picArrayInternet
  567.             If pbBinaryTranslator.Visible = True Or pbCalculator.Visible = True Or pbFinals.Visible = True Or pbChatBot.Visible = True Or pbGmail.Visible = True Or pbGPA.Visible = True Or pbMessenger.Visible = True Or pbNotes.Visible = True Or pbStopWatch.Visible = True Then
  568.                 pbInternet.Location = New Point(107, 980)
  569.                 p.Left += 125
  570.             Else
  571.                 pbInternet.Location = New Point(107, 980)
  572.             End If
  573.         Next
  574.     End Sub
  575.  
  576.  
  577.     Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
  578.         PictureBox1.BackColor = Color.CornflowerBlue
  579.     End Sub
  580.  
  581.     Private Sub PictureBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.DoubleClick
  582.         PictureBox2.Enabled = False
  583.         pbCalculator.Show()
  584.         frmCalculator.Show()
  585.         For Each p In picArrayCalculator
  586.             If pbBinaryTranslator.Visible = True Or pbFinals.Visible = True Or pbInternet.Visible = True Or pbChatBot.Visible = True Or pbGmail.Visible = True Or pbGPA.Visible = True Or pbMessenger.Visible = True Or pbNotes.Visible = True Or pbStopWatch.Visible = True Then
  587.                 pbCalculator.Location = New Point(107, 980)
  588.                 p.Left += 125
  589.             Else
  590.                 pbCalculator.Location = New Point(107, 980)
  591.             End If
  592.         Next
  593.     End Sub
  594.     Private Sub PictureBox2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseEnter
  595.         PictureBox2.BackColor = Color.CornflowerBlue
  596.     End Sub
  597.  
  598.     Private Sub PictureBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.DoubleClick
  599.         PictureBox5.Enabled = False
  600.         pbMessenger.Show()
  601.         frmMessenger.Show()
  602.         For Each p In picArrayMessenger
  603.             If pbStopWatch.Visible = True Or pbCalculator.Visible = True Or pbFinals.Visible = True Or pbInternet.Visible = True Or pbGmail.Visible = True Or pbGPA.Visible = True Or pbBinaryTranslator.Visible = True Or pbNotes.Visible = True Or pbChatBot.Visible = True Then
  604.                 pbMessenger.Location = New Point(107, 980)
  605.                 p.Left += 125
  606.             Else
  607.                 pbMessenger.Location = New Point(107, 980)
  608.             End If
  609.         Next
  610.     End Sub
  611.     Private Sub PictureBox5_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.MouseEnter
  612.         PictureBox5.BackColor = Color.CornflowerBlue
  613.     End Sub
  614.  
  615.     Private Sub PictureBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.DoubleClick
  616.         PictureBox3.Enabled = False
  617.         pbStopWatch.Show()
  618.         frmStopWatch.Show()
  619.         For Each p In picArrayStopWatch
  620.             If pbBinaryTranslator.Visible = True Or pbCalculator.Visible = True Or pbFinals.Visible = True Or pbInternet.Visible = True Or pbGmail.Visible = True Or pbGPA.Visible = True Or pbMessenger.Visible = True Or pbNotes.Visible = True Or pbChatBot.Visible = True Then
  621.                 pbStopWatch.Location = New Point(107, 980)
  622.                 p.Left += 125
  623.             Else
  624.                 pbStopWatch.Location = New Point(107, 980)
  625.             End If
  626.         Next
  627.     End Sub
  628.     Private Sub PictureBox3_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseEnter
  629.         PictureBox3.BackColor = Color.CornflowerBlue
  630.     End Sub
  631.  
  632.     Private Sub PictureBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.DoubleClick
  633.         PictureBox7.Enabled = False
  634.         pbBinaryTranslator.Show()
  635.         frmBinary.Show()
  636.         For Each p In picArrayBinaryTrans
  637.             If pbStopWatch.Visible = True Or pbCalculator.Visible = True Or pbInternet.Visible = True Or pbFinals.Visible = True Or pbGmail.Visible = True Or pbGPA.Visible = True Or pbMessenger.Visible = True Or pbNotes.Visible = True Or pbChatBot.Visible = True Then
  638.                 pbBinaryTranslator.Location = New Point(107, 980)
  639.                 p.Left += 125
  640.             Else
  641.                 pbBinaryTranslator.Location = New Point(107, 980)
  642.             End If
  643.         Next
  644.     End Sub
  645.     Private Sub PictureBox7_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.MouseEnter
  646.         PictureBox7.BackColor = Color.CornflowerBlue
  647.     End Sub
  648.  
  649.     Private Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseHover
  650.         ToolTip1.SetToolTip(Me.PictureBox1, "phInternet")
  651.     End Sub
  652.  
  653.     Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
  654.         PictureBox1.BackColor = Me.BackColor
  655.     End Sub
  656.  
  657.     Private Sub PictureBox2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseHover
  658.         ToolTip1.SetToolTip(Me.PictureBox2, "phCalculator")
  659.     End Sub
  660.     Private Sub PictureBox2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseLeave
  661.         PictureBox2.BackColor = Me.BackColor
  662.     End Sub
  663.  
  664.     Private Sub PictureBox5_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.MouseHover
  665.         ToolTip1.SetToolTip(Me.PictureBox5, "phMessenger")
  666.     End Sub
  667.     Private Sub PictureBox5_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.MouseLeave
  668.         PictureBox5.BackColor = Me.BackColor
  669.     End Sub
  670.  
  671.     Private Sub PictureBox3_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseHover
  672.         ToolTip1.SetToolTip(Me.PictureBox3, "phStopWatch")
  673.     End Sub
  674.     Private Sub PictureBox3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseLeave
  675.         PictureBox3.BackColor = Me.BackColor
  676.     End Sub
  677.  
  678.     Private Sub PictureBox7_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.MouseHover
  679.         ToolTip1.SetToolTip(Me.PictureBox7, "phBinaryTranslator")
  680.     End Sub
  681.     Private Sub PictureBox7_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.MouseLeave
  682.         PictureBox7.BackColor = Me.BackColor
  683.     End Sub
  684.  
  685.     Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
  686.         If TextBox1.Text = "Search..." Then
  687.             TextBox1.Clear()
  688.             TextBox1.ForeColor = Color.Black
  689.         End If
  690.     End Sub
  691.  
  692.     Private Sub Label6_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label6.MouseEnter
  693.         Label6.BackColor = Color.Pink
  694.     End Sub
  695.  
  696.     Private Sub Label6_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label6.MouseLeave
  697.         Label6.BackColor = Color.Thistle
  698.     End Sub
  699.     Private Sub Label7_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label7.MouseEnter
  700.         Label7.BackColor = Color.Pink
  701.     End Sub
  702.  
  703.     Private Sub Label7_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label7.MouseLeave
  704.         Label7.BackColor = Color.Thistle
  705.     End Sub
  706.     Private Sub Label8_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label8.MouseEnter
  707.         Label8.BackColor = Color.Pink
  708.     End Sub
  709.  
  710.     Private Sub Label8_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label8.MouseLeave
  711.         Label8.BackColor = Color.Thistle
  712.     End Sub
  713.     Private Sub Label9_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label9.MouseEnter
  714.         Label9.BackColor = Color.Pink
  715.     End Sub
  716.  
  717.     Private Sub Label9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label9.MouseLeave
  718.         Label9.BackColor = Color.Thistle
  719.     End Sub
  720.     Private Sub Label10_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label10.MouseEnter
  721.         Label10.BackColor = Color.Pink
  722.     End Sub
  723.  
  724.     Private Sub Label10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label10.MouseLeave
  725.         Label10.BackColor = Color.Thistle
  726.     End Sub
  727.  
  728.     Private Sub btnHide_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHide.MouseEnter
  729.         btnHide.BackColor = Color.Lime
  730.     End Sub
  731.  
  732.     Private Sub btnHide_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHide.MouseLeave
  733.         btnHide.BackColor = Color.White
  734.     End Sub
  735.  
  736.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  737.         lblDate.Text = DateTime.Now.ToString("dd MMMM yyyy")
  738.     End Sub
  739.  
  740.     Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
  741.         If e.Button = 0 Then
  742.             mousePosX = e.X
  743.             mousePosY = e.Y
  744.             My.Settings.Position1 = mousePosX & mousePosY
  745.         Else
  746.             PictureBox1.Left = PictureBox1.Left + (e.X - mousePosX)
  747.             PictureBox1.Top = PictureBox1.Top + (e.Y - mousePosY)
  748.         End If
  749.     End Sub
  750.  
  751.     Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
  752.         If e.Button = 0 Then
  753.             mousePosX2 = e.X
  754.             mousePosY2 = e.Y
  755.         Else
  756.             PictureBox2.Left = PictureBox2.Left + (e.X - mousePosX2)
  757.             PictureBox2.Top = PictureBox2.Top + (e.Y - mousePosY2)
  758.         End If
  759.     End Sub
  760.  
  761.     Private Sub PictureBox3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseMove
  762.         If e.Button = 0 Then
  763.             mousePosX3 = e.X
  764.             mousePosY3 = e.Y
  765.         Else
  766.             PictureBox3.Left = PictureBox3.Left + (e.X - mousePosX3)
  767.             PictureBox3.Top = PictureBox3.Top + (e.Y - mousePosY3)
  768.         End If
  769.     End Sub
  770.  
  771.     Private Sub PictureBox5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseMove
  772.         If e.Button = 0 Then
  773.             mousePosX4 = e.X
  774.             mousePosY4 = e.Y
  775.         Else
  776.             PictureBox5.Left = PictureBox5.Left + (e.X - mousePosX4)
  777.             PictureBox5.Top = PictureBox5.Top + (e.Y - mousePosY4)
  778.         End If
  779.     End Sub
  780.  
  781.     Private Sub PictureBox7_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove
  782.         If e.Button = 0 Then
  783.             mousePosX5 = e.X
  784.             mousePosY5 = e.Y
  785.         Else
  786.             PictureBox7.Left = PictureBox7.Left + (e.X - mousePosX5)
  787.             PictureBox7.Top = PictureBox7.Top + (e.Y - mousePosY5)
  788.         End If
  789.     End Sub
  790.  
  791.     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  792.         Login.Show()
  793.         Me.Close()
  794.     End Sub
  795.  
  796.     Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
  797.         Me.BackColor = Color.Red
  798.         PictureBox1.BackColor = Color.Red
  799.         PictureBox2.BackColor = Color.Red
  800.         PictureBox3.BackColor = Color.Red
  801.         PictureBox5.BackColor = Color.Red
  802.         PictureBox7.BackColor = Color.Red
  803.         PictureBox8.BackColor = Color.Red
  804.         PictureBox10.BackColor = Color.Red
  805.         PictureBox11.BackColor = Color.Red
  806.         PictureBox12.BackColor = Color.Red
  807.     End Sub
  808.  
  809.     Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
  810.         Me.BackColor = Color.Green
  811.         PictureBox1.BackColor = Color.Green
  812.         PictureBox2.BackColor = Color.Green
  813.         PictureBox3.BackColor = Color.Green
  814.         PictureBox5.BackColor = Color.Green
  815.         PictureBox7.BackColor = Color.Green
  816.         PictureBox8.BackColor = Color.Green
  817.         PictureBox10.BackColor = Color.Green
  818.         PictureBox11.BackColor = Color.Green
  819.         PictureBox12.BackColor = Color.Green
  820.     End Sub
  821.  
  822.     Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
  823.         Me.BackColor = Color.DeepSkyBlue
  824.         PictureBox1.BackColor = Color.DeepSkyBlue
  825.         PictureBox2.BackColor = Color.DeepSkyBlue
  826.         PictureBox3.BackColor = Color.DeepSkyBlue
  827.         PictureBox5.BackColor = Color.DeepSkyBlue
  828.         PictureBox7.BackColor = Color.DeepSkyBlue
  829.         PictureBox8.BackColor = Color.DeepSkyBlue
  830.         PictureBox10.BackColor = Color.DeepSkyBlue
  831.         PictureBox11.BackColor = Color.DeepSkyBlue
  832.         PictureBox12.BackColor = Color.DeepSkyBlue
  833.     End Sub
  834.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  835.         pressed2 += 1
  836.         If ((pressed2 Mod 2) = 0) Then
  837.             Label3.Show()
  838.             Label4.Show()
  839.             Label5.Show()
  840.             GroupBox1.Show()
  841.             Label2.Show()
  842.         Else
  843.             Label3.Hide()
  844.             Label4.Hide()
  845.             Label5.Hide()
  846.             GroupBox1.Hide()
  847.             Label2.Hide()
  848.         End If
  849.     End Sub
  850.  
  851.     Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
  852.         Me.BackColor = Color.RoyalBlue
  853.         PictureBox1.BackColor = Color.RoyalBlue
  854.         PictureBox2.BackColor = Color.RoyalBlue
  855.         PictureBox3.BackColor = Color.RoyalBlue
  856.         PictureBox5.BackColor = Color.RoyalBlue
  857.         PictureBox7.BackColor = Color.RoyalBlue
  858.         PictureBox8.BackColor = Color.RoyalBlue
  859.         PictureBox10.BackColor = Color.RoyalBlue
  860.         PictureBox11.BackColor = Color.RoyalBlue
  861.         PictureBox12.BackColor = Color.RoyalBlue
  862.     End Sub
  863.  
  864.     Private Sub PictureBox8_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox8.DoubleClick
  865.         PictureBox8.Enabled = False
  866.         pbGPA.Show()
  867.         frmGPACalculator.Show()
  868.         For Each p In picArrayGPA
  869.             If pbStopWatch.Visible = True Or pbCalculator.Visible = True Or pbFinals.Visible = True Or pbInternet.Visible = True Or pbBinaryTranslator.Visible = True Or pbGPA.Visible = True Or pbMessenger.Visible = True Or pbNotes.Visible = True Or pbChatBot.Visible = True Then
  870.                 pbGPA.Location = New Point(107, 980)
  871.                 p.Left += 125
  872.             Else
  873.                 pbGPA.Location = New Point(107, 980)
  874.             End If
  875.         Next
  876.     End Sub
  877.  
  878.     Private Sub PictureBox8_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox8.MouseEnter
  879.         PictureBox8.BackColor = Color.CornflowerBlue
  880.     End Sub
  881.  
  882.     Private Sub PictureBox8_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox8.MouseHover
  883.         ToolTip1.SetToolTip(Me.PictureBox8, "phGPACalculator")
  884.     End Sub
  885.  
  886.     Private Sub PictureBox8_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox8.MouseLeave
  887.         PictureBox8.BackColor = Me.BackColor
  888.     End Sub
  889.  
  890.     Private Sub PictureBox8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove
  891.         If e.Button = 0 Then
  892.             mousePosX6 = e.X
  893.             mousePosY6 = e.Y
  894.             My.Settings.Position1 = mousePosX6 & mousePosY6
  895.         Else
  896.             PictureBox8.Left = PictureBox8.Left + (e.X - mousePosX6)
  897.             PictureBox8.Top = PictureBox8.Top + (e.Y - mousePosY6)
  898.         End If
  899.     End Sub
  900.  
  901.     Private Sub Label14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label14.Click
  902.         Application.Exit()
  903.     End Sub
  904.  
  905.     Private Sub PictureBox9_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.MouseEnter
  906.         lblTime.BackColor = Color.Gray
  907.         lblDate.BackColor = Color.Gray
  908.         lblName.BackColor = Color.Gray
  909.         PictureBox9.BackColor = Color.Gray
  910.     End Sub
  911.  
  912.     Private Sub lblTime_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblTime.MouseEnter
  913.         lblTime.BackColor = Color.Gray
  914.         lblDate.BackColor = Color.Gray
  915.         lblName.BackColor = Color.Gray
  916.         PictureBox9.BackColor = Color.Gray
  917.     End Sub
  918.  
  919.     Private Sub lblTime_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblTime.MouseHover
  920.         ToolTip1.SetToolTip(Me.lblTime, TimeOfDay & ", " & DateTime.Now.ToString("dd MMMM yyyy"))
  921.     End Sub
  922.  
  923.     Private Sub lblTime_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblTime.MouseLeave
  924.         lblTime.BackColor = Color.LightGray
  925.         lblDate.BackColor = Color.LightGray
  926.         lblName.BackColor = Color.LightGray
  927.         PictureBox9.BackColor = Color.LightGray
  928.     End Sub
  929.  
  930.     Private Sub lblDate_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblDate.MouseLeave
  931.         lblTime.BackColor = Color.LightGray
  932.         lblDate.BackColor = Color.LightGray
  933.         lblName.BackColor = Color.LightGray
  934.         PictureBox9.BackColor = Color.LightGray
  935.     End Sub
  936.  
  937.     Private Sub lblDate_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblDate.MouseEnter
  938.         lblTime.BackColor = Color.Gray
  939.         lblDate.BackColor = Color.Gray
  940.         lblName.BackColor = Color.Gray
  941.         PictureBox9.BackColor = Color.Gray
  942.     End Sub
  943.  
  944.     Private Sub lblDate_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblDate.MouseHover
  945.         ToolTip1.SetToolTip(Me.lblDate, TimeOfDay & ", " & DateTime.Now.ToString("dd MMMM yyyy"))
  946.     End Sub
  947.  
  948.     Private Sub lblName_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblName.MouseHover
  949.         ToolTip1.SetToolTip(Me.lblName, TimeOfDay & ", " & DateTime.Now.ToString("dd MMMM yyyy"))
  950.     End Sub
  951.  
  952.     Private Sub lblName_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblName.MouseLeave
  953.         lblTime.BackColor = Color.LightGray
  954.         lblDate.BackColor = Color.LightGray
  955.         lblName.BackColor = Color.LightGray
  956.         PictureBox9.BackColor = Color.LightGray
  957.     End Sub
  958.  
  959.     Private Sub lblName_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblName.MouseEnter
  960.         lblTime.BackColor = Color.Gray
  961.         lblDate.BackColor = Color.Gray
  962.         lblName.BackColor = Color.Gray
  963.         PictureBox9.BackColor = Color.Gray
  964.     End Sub
  965.  
  966.     Private Sub PictureBox9_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.MouseHover
  967.         ToolTip1.SetToolTip(Me.PictureBox9, TimeOfDay & ", " & DateTime.Now.ToString("dd MMMM yyyy"))
  968.     End Sub
  969.  
  970.     Private Sub PictureBox9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.MouseLeave
  971.         lblTime.BackColor = Color.LightGray
  972.         lblDate.BackColor = Color.LightGray
  973.         lblName.BackColor = Color.LightGray
  974.         PictureBox9.BackColor = Color.LightGray
  975.     End Sub
  976.  
  977.     Private Sub PictureBox10_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox10.DoubleClick
  978.         PictureBox10.Enabled = False
  979.         pbGmail.Show()
  980.         frmMail.Show()
  981.         For Each p In picArrayGmail
  982.             If pbStopWatch.Visible = True Or pbCalculator.Visible = True Or pbInternet.Visible = True Or pbBinaryTranslator.Visible = True Or pbGPA.Visible = True Or pbMessenger.Visible = True Or pbNotes.Visible = True Or pbChatBot.Visible = True Then
  983.                 pbGmail.Location = New Point(107, 980)
  984.                 p.Left += 125
  985.             Else
  986.                 pbGmail.Location = New Point(107, 980)
  987.             End If
  988.         Next
  989.     End Sub
  990.  
  991.     Private Sub PictureBox10_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox10.MouseEnter
  992.         PictureBox10.BackColor = Color.CornflowerBlue
  993.     End Sub
  994.  
  995.     Private Sub PictureBox10_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox10.MouseHover
  996.         ToolTip1.SetToolTip(Me.PictureBox10, "phGmailClient")
  997.     End Sub
  998.  
  999.     Private Sub PictureBox10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox10.MouseLeave
  1000.         PictureBox10.BackColor = Me.BackColor
  1001.     End Sub
  1002.  
  1003.     Private Sub PictureBox10_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove
  1004.         If e.Button = 0 Then
  1005.             mousePosX7 = e.X
  1006.             mousePosY7 = e.Y
  1007.         Else
  1008.             PictureBox10.Left = PictureBox10.Left + (e.X - mousePosX7)
  1009.             PictureBox10.Top = PictureBox10.Top + (e.Y - mousePosY7)
  1010.         End If
  1011.     End Sub
  1012.  
  1013.     Private Sub PictureBox11_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox11.DoubleClick
  1014.         PictureBox11.Enabled = False
  1015.         pbChatBot.Show()
  1016.         frmChatBot.Show()
  1017.         For Each p In picArrayChatBot
  1018.             If pbBinaryTranslator.Visible = True Or pbCalculator.Visible = True Or pbFinals.Visible = True Or pbInternet.Visible = True Or pbGmail.Visible = True Or pbGPA.Visible = True Or pbMessenger.Visible = True Or pbNotes.Visible = True Or pbStopWatch.Visible = True Then
  1019.                 pbChatBot.Location = New Point(107, 980)
  1020.                 p.Left += 125
  1021.             Else
  1022.                 pbChatBot.Location = New Point(107, 980)
  1023.             End If
  1024.         Next
  1025.     End Sub
  1026.  
  1027.     Private Sub PictureBox11_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox11.MouseEnter
  1028.         PictureBox11.BackColor = Color.CornflowerBlue
  1029.     End Sub
  1030.  
  1031.     Private Sub PictureBox11_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox11.MouseHover
  1032.         ToolTip1.SetToolTip(Me.PictureBox11, "phChatBot")
  1033.     End Sub
  1034.  
  1035.     Private Sub PictureBox11_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox11.MouseLeave
  1036.         PictureBox11.BackColor = Me.BackColor
  1037.     End Sub
  1038.  
  1039.     Private Sub PictureBox11_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMove
  1040.         If e.Button = 0 Then
  1041.             mousePosX8 = e.X
  1042.             mousePosY8 = e.Y
  1043.             My.Settings.Position1 = mousePosX8 & mousePosY8
  1044.         Else
  1045.             PictureBox11.Left = PictureBox11.Left + (e.X - mousePosX8)
  1046.             PictureBox11.Top = PictureBox11.Top + (e.Y - mousePosY8)
  1047.         End If
  1048.     End Sub
  1049.  
  1050.     Private Sub Label16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label16.Click
  1051.         PictureBox11_DoubleClick(Label16, System.EventArgs.Empty)
  1052.         frmChatBot.Show()
  1053.         If PictureBox4.Visible = True Then
  1054.             pressed += 1
  1055.             PictureBox4.Hide()
  1056.             Label6.Hide()
  1057.             Label7.Hide()
  1058.             Label8.Hide()
  1059.             Label9.Hide()
  1060.             Label10.Hide()
  1061.             Label11.Hide()
  1062.             TextBox1.Hide()
  1063.             Label12.Hide()
  1064.             Label1.Hide()
  1065.             Button2.Hide()
  1066.             Label14.Hide()
  1067.             Label15.Hide()
  1068.             Label16.Hide()
  1069.             Label17.Hide()
  1070.             Label18.Hide()
  1071.             If GroupBox1.Visible = True Then
  1072.                 pressed2 += 1
  1073.                 Label3.Hide()
  1074.                 Label4.Hide()
  1075.                 Label5.Hide()
  1076.                 GroupBox1.Hide()
  1077.                 Label2.Hide()
  1078.             End If
  1079.         End If
  1080.     End Sub
  1081.  
  1082.     Private Sub Label17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label17.Click
  1083.         PictureBox8_DoubleClick(Label17, System.EventArgs.Empty)
  1084.         frmGPACalculator.Show()
  1085.         If PictureBox4.Visible = True Then
  1086.             pressed += 1
  1087.             PictureBox4.Hide()
  1088.             Label6.Hide()
  1089.             Label7.Hide()
  1090.             Label8.Hide()
  1091.             Label9.Hide()
  1092.             Label10.Hide()
  1093.             Label11.Hide()
  1094.             TextBox1.Hide()
  1095.             Label12.Hide()
  1096.             Label1.Hide()
  1097.             Button2.Hide()
  1098.             Label14.Hide()
  1099.             Label15.Hide()
  1100.             Label16.Hide()
  1101.             Label17.Hide()
  1102.             Label18.Hide()
  1103.             If GroupBox1.Visible = True Then
  1104.                 pressed2 += 1
  1105.                 Label3.Hide()
  1106.                 Label4.Hide()
  1107.                 Label5.Hide()
  1108.                 GroupBox1.Hide()
  1109.                 Label2.Hide()
  1110.             End If
  1111.         End If
  1112.     End Sub
  1113.  
  1114.     Private Sub Label18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label18.Click
  1115.         PictureBox10_DoubleClick(Label8, System.EventArgs.Empty)
  1116.         frmMail.Show()
  1117.         If PictureBox4.Visible = True Then
  1118.             pressed += 1
  1119.             PictureBox4.Hide()
  1120.             Label6.Hide()
  1121.             Label7.Hide()
  1122.             Label8.Hide()
  1123.             Label9.Hide()
  1124.             Label10.Hide()
  1125.             Label11.Hide()
  1126.             TextBox1.Hide()
  1127.             Label12.Hide()
  1128.             Label1.Hide()
  1129.             Button2.Hide()
  1130.             Label14.Hide()
  1131.             Label15.Hide()
  1132.             Label16.Hide()
  1133.             Label17.Hide()
  1134.             Label18.Hide()
  1135.             If GroupBox1.Visible = True Then
  1136.                 pressed2 += 1
  1137.                 Label3.Hide()
  1138.                 Label4.Hide()
  1139.                 Label5.Hide()
  1140.                 GroupBox1.Hide()
  1141.                 Label2.Hide()
  1142.             End If
  1143.         End If
  1144.     End Sub
  1145.  
  1146.     Private Sub Label16_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label16.MouseEnter
  1147.         Label16.BackColor = Color.Pink
  1148.     End Sub
  1149.  
  1150.     Private Sub Label16_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label16.MouseLeave
  1151.         Label16.BackColor = Color.Thistle
  1152.     End Sub
  1153.  
  1154.     Private Sub Label17_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label17.MouseEnter
  1155.         Label17.BackColor = Color.Pink
  1156.     End Sub
  1157.  
  1158.     Private Sub Label17_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label17.MouseLeave
  1159.         Label17.BackColor = Color.Thistle
  1160.     End Sub
  1161.  
  1162.     Private Sub Label18_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label18.MouseEnter
  1163.         Label18.BackColor = Color.Pink
  1164.     End Sub
  1165.  
  1166.     Private Sub Label18_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label18.MouseLeave
  1167.         Label18.BackColor = Color.Thistle
  1168.     End Sub
  1169.  
  1170.     Private Sub frmMain_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
  1171.         If PictureBox4.Visible = True Then
  1172.             pressed += 1
  1173.             PictureBox4.Hide()
  1174.             Label6.Hide()
  1175.             Label7.Hide()
  1176.             Label8.Hide()
  1177.             Label9.Hide()
  1178.             Label10.Hide()
  1179.             Label11.Hide()
  1180.             TextBox1.Hide()
  1181.             Label12.Hide()
  1182.             Label1.Hide()
  1183.             Button2.Hide()
  1184.             Label14.Hide()
  1185.             Label15.Hide()
  1186.             Label16.Hide()
  1187.             Label17.Hide()
  1188.             Label18.Hide()
  1189.             If GroupBox1.Visible = True Then
  1190.                 pressed2 += 1
  1191.                 Label3.Hide()
  1192.                 Label4.Hide()
  1193.                 Label5.Hide()
  1194.                 GroupBox1.Hide()
  1195.                 Label2.Hide()
  1196.             End If
  1197.         End If
  1198.     End Sub
  1199.  
  1200.     Private Sub MenuStrip1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MenuStrip1.MouseClick
  1201.         If PictureBox4.Visible = True Then
  1202.             pressed += 1
  1203.             PictureBox4.Hide()
  1204.             Label6.Hide()
  1205.             Label7.Hide()
  1206.             Label8.Hide()
  1207.             Label9.Hide()
  1208.             Label10.Hide()
  1209.             Label11.Hide()
  1210.             TextBox1.Hide()
  1211.             Label12.Hide()
  1212.             Label1.Hide()
  1213.             Button2.Hide()
  1214.             Label14.Hide()
  1215.             Label15.Hide()
  1216.             Label16.Hide()
  1217.             Label17.Hide()
  1218.             Label18.Hide()
  1219.             If GroupBox1.Visible = True Then
  1220.                 pressed2 += 1
  1221.                 Label3.Hide()
  1222.                 Label4.Hide()
  1223.                 Label5.Hide()
  1224.                 GroupBox1.Hide()
  1225.                 Label2.Hide()
  1226.             End If
  1227.         End If
  1228.     End Sub
  1229.  
  1230.     Private Sub Label20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  1231.         frmWord.Show()
  1232.     End Sub
  1233.  
  1234.     Private Sub NewTextFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  1235.         frmWord.Show()
  1236.     End Sub
  1237.  
  1238.     Private Sub PictureBox12_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox12.DoubleClick
  1239.         PictureBox12.Enabled = False
  1240.         pbNotes.Show()
  1241.         frmWord.Show()
  1242.         For Each p In picArrayNotes
  1243.             If pbStopWatch.Visible = True Or pbCalculator.Visible = True Or pbFinals.Visible = True Or pbInternet.Visible = True Or pbGmail.Visible = True Or pbGPA.Visible = True Or pbMessenger.Visible = True Or pbBinaryTranslator.Visible = True Or pbChatBot.Visible = True Then
  1244.                 pbNotes.Location = New Point(107, 980)
  1245.                 p.Left += 125
  1246.             Else
  1247.                 pbNotes.Location = New Point(107, 980)
  1248.             End If
  1249.         Next
  1250.     End Sub
  1251.  
  1252.     Private Sub PictureBox12_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox12.MouseEnter
  1253.         PictureBox12.BackColor = Color.CornflowerBlue
  1254.     End Sub
  1255.  
  1256.     Private Sub PictureBox12_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox12.MouseHover
  1257.         ToolTip1.SetToolTip(Me.PictureBox12, "phTextEditor")
  1258.     End Sub
  1259.  
  1260.     Private Sub PictureBox12_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox12.MouseLeave
  1261.         PictureBox12.BackColor = Me.BackColor
  1262.     End Sub
  1263.  
  1264.     Private Sub PictureBox12_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMove
  1265.         If e.Button = 0 Then
  1266.             mousePosX9 = e.X
  1267.             mousePosY9 = e.Y
  1268.         Else
  1269.             PictureBox12.Left = PictureBox12.Left + (e.X - mousePosX9)
  1270.             PictureBox12.Top = PictureBox12.Top + (e.Y - mousePosY9)
  1271.         End If
  1272.     End Sub
  1273.  
  1274.     Private Sub pbNotes_Click(sender As System.Object, e As System.EventArgs) Handles pbNotes.Click
  1275.         frmWord.Select()
  1276.     End Sub
  1277.  
  1278.     Private Sub pbCalculator_Click(sender As System.Object, e As System.EventArgs) Handles pbCalculator.Click
  1279.         frmCalculator.Select()
  1280.     End Sub
  1281.  
  1282.     Private Sub pbChatBot_Click(sender As System.Object, e As System.EventArgs) Handles pbChatBot.Click
  1283.         frmChatBot.Select()
  1284.     End Sub
  1285.  
  1286.     Private Sub pbInternet_Click(sender As System.Object, e As System.EventArgs) Handles pbInternet.Click
  1287.         frmBrowser.Select()
  1288.     End Sub
  1289.  
  1290.     Private Sub pbMessenger_Click(sender As System.Object, e As System.EventArgs) Handles pbMessenger.Click
  1291.         frmMessenger.Select()
  1292.     End Sub
  1293.  
  1294.     Private Sub pbBinaryTranslator_Click(sender As System.Object, e As System.EventArgs) Handles pbBinaryTranslator.Click
  1295.         frmBinary.Select()
  1296.     End Sub
  1297.  
  1298.     Private Sub pbStopWatch_Click(sender As System.Object, e As System.EventArgs) Handles pbStopWatch.Click
  1299.         frmStopWatch.Select()
  1300.     End Sub
  1301.  
  1302.     Private Sub pbGPA_Click(sender As System.Object, e As System.EventArgs) Handles pbGPA.Click
  1303.         frmGPACalculator.Select()
  1304.     End Sub
  1305.  
  1306.     Private Sub pbGmail_Click(sender As System.Object, e As System.EventArgs) Handles pbGmail.Click
  1307.         frmMail.Select()
  1308.     End Sub
  1309.  
  1310.     Private Sub TestToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TestToolStripMenuItem.Click
  1311.         frmWord.Close()
  1312.     End Sub
  1313.  
  1314.     Private Sub CloseToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CloseToolStripMenuItem.Click
  1315.         frmBrowser.Close()
  1316.     End Sub
  1317.  
  1318.     Private Sub CloseToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles CloseToolStripMenuItem1.Click
  1319.         frmCalculator.Close()
  1320.     End Sub
  1321.  
  1322.     Private Sub CloseToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles CloseToolStripMenuItem2.Click
  1323.         frmChatBot.Close()
  1324.     End Sub
  1325.  
  1326.     Private Sub CloseToolStripMenuItem3_Click(sender As System.Object, e As System.EventArgs) Handles CloseToolStripMenuItem3.Click
  1327.         frmGPACalculator.Close()
  1328.     End Sub
  1329.  
  1330.     Private Sub CloseToolStripMenuItem4_Click(sender As System.Object, e As System.EventArgs) Handles CloseToolStripMenuItem4.Click
  1331.         frmMessenger.Close()
  1332.     End Sub
  1333.  
  1334.     Private Sub CloseToolStripMenuItem5_Click(sender As System.Object, e As System.EventArgs) Handles CloseToolStripMenuItem5.Click
  1335.         frmMail.Close()
  1336.     End Sub
  1337.  
  1338.     Private Sub CloseToolStripMenuItem6_Click(sender As System.Object, e As System.EventArgs) Handles CloseToolStripMenuItem6.Click
  1339.         frmBinary.Close()
  1340.     End Sub
  1341.  
  1342.     Private Sub CloseToolStripMenuItem7_Click(sender As System.Object, e As System.EventArgs) Handles CloseToolStripMenuItem7.Click
  1343.         frmStopWatch.Close()
  1344.     End Sub
  1345.  
  1346.     Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
  1347.         frmConsole.Show()
  1348.     End Sub
  1349.  
  1350.     Private Sub PictureBox13_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox13.DoubleClick
  1351.         PictureBox13.Enabled = False
  1352.         pbFinals.Show()
  1353.         frmFinals.Show()
  1354.         For Each p In picArrayFinals
  1355.             If pbStopWatch.Visible = True Or pbCalculator.Visible = True Or pbInternet.Visible = True Or pbGmail.Visible = True Or pbGPA.Visible = True Or pbMessenger.Visible = True Or pbBinaryTranslator.Visible = True Or pbChatBot.Visible = True Or pbNotes.Visible = True Then
  1356.                 pbFinals.Location = New Point(107, 980)
  1357.                 p.Left += 125
  1358.             Else
  1359.                 pbFinals.Location = New Point(107, 980)
  1360.             End If
  1361.         Next
  1362.     End Sub
  1363.  
  1364.     Private Sub PictureBox13_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox13.MouseEnter
  1365.         PictureBox13.BackColor = Color.CornflowerBlue
  1366.     End Sub
  1367.  
  1368.     Private Sub PictureBox13_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox13.MouseLeave
  1369.         PictureBox13.BackColor = Me.BackColor
  1370.     End Sub
  1371.  
  1372.     Private Sub PictureBox13_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseMove
  1373.         If e.Button = 0 Then
  1374.             mousePosX10 = e.X
  1375.             mousePosY10 = e.Y
  1376.         Else
  1377.             PictureBox13.Left = PictureBox13.Left + (e.X - mousePosX10)
  1378.             PictureBox13.Top = PictureBox13.Top + (e.Y - mousePosY10)
  1379.         End If
  1380.     End Sub
  1381.  
  1382.     Private Sub pbFinals_Click(sender As System.Object, e As System.EventArgs) Handles pbFinals.Click
  1383.         frmFinals.Select()
  1384.     End Sub
  1385. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!