controlpanel added

Author: PSNAppz

KeyLogger/Menu.vb

@@ -43,6 +43,8 @@
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         If TextBox1.Text = My.Settings.USER And TextBox2.Text = My.Settings.PASSWORD Then
             Errorlbl.Text = "Login Succesful!"
+            controlpanel.Show()
+            Me.Hide()
         End If
     End Sub
 

KeyLogger/controlpanel.Designer.vb

@@ -1,5 +1,6 @@
 Public Class controlpanel
 
+
     Dim drag As Boolean
     Dim mousex As Integer
     Dim mousey As Integer
@@ -20,4 +21,10 @@
     Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
         drag = False
     End Sub
+
+    
+    
+    Private Sub controlpanel_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Label1.Text = My.Settings.USER
+    End Sub
 End Class