A bunch of files!!!!!!HEADmaster

1 files changed, 35 insertions, 0 deletions

diff --git a/AleeOS/AleeOS Launcher About.vb b/AleeOS/AleeOS Launcher About.vb
new file mode 100644
index 0000000..6037a5e
--- /dev/null
+++ b/AleeOS/AleeOS Launcher About.vb
@@ -0,0 +1,35 @@
+Public Class Form2
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Close()
+    End Sub
+    Dim mouseLocation As Point
+    Dim isMouseDown As Boolean = False
+
+    Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
+
+        isMouseDown = True
+        mouseLocation = e.Location
+
+    End Sub
+
+    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
+
+        If (isMouseDown = True) Then
+            Me.Location += e.Location - mouseLocation
+        End If
+    End Sub
+
+    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
+
+        isMouseDown = False
+
+    End Sub
+
+    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+End Class
\ No newline at end of file