From f6252a83c6c637d85ab7392b86a519d57957940b Mon Sep 17 00:00:00 2001
From: Alee14 <Alee14498@gmail.com>
Date: Mon, 11 Dec 2017 18:46:40 -0500
Subject: A bunch of files!!!!!!

---
 AleeOS/Applications/File Browser.vb | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 AleeOS/Applications/File Browser.vb

(limited to 'AleeOS/Applications/File Browser.vb')

diff --git a/AleeOS/Applications/File Browser.vb b/AleeOS/Applications/File Browser.vb
new file mode 100644
index 0000000..8949b51
--- /dev/null
+++ b/AleeOS/Applications/File Browser.vb	
@@ -0,0 +1,30 @@
+Public Class Form4
+
+    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 Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+        Me.Close()
+
+    End Sub
+End Class
\ No newline at end of file
-- 
cgit v1.2.3