1 files changed, 73 insertions, 0 deletions
diff --git a/ShiftOS/ShiftDock.vb b/ShiftOS/ShiftDock.vb
new file mode 100644
index 0000000..b11b506
--- /dev/null
+++ b/ShiftOS/ShiftDock.vb
@@ -0,0 +1,73 @@
+Public Class ShiftDock
+    Dim uod As Integer = 5
+    Private Sub ShiftDock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        mousecheck.Start()
+        Me.Location = New Point((Screen.PrimaryScreen.Bounds.Width / 2) - (Me.Width / 2), Screen.PrimaryScreen.Bounds.Height - Me.Height)
+    End Sub
+
+    Private Sub icn1_Click(sender As Object, e As EventArgs) Handles icn1.Click
+        Downloader.Show()
+    End Sub
+
+    Private Sub icn2_Click(sender As Object, e As EventArgs) Handles icn2.Click
+
+    End Sub
+
+    Private Sub icn3_Click(sender As Object, e As EventArgs) Handles icn3.Click
+
+    End Sub
+
+    Private Sub icn4_Click(sender As Object, e As EventArgs) Handles icn4.Click
+
+    End Sub
+
+    Private Sub icn5_Click(sender As Object, e As EventArgs) Handles icn5.Click
+
+    End Sub
+
+    Private Sub icn6_Click(sender As Object, e As EventArgs) Handles icn6.Click
+
+    End Sub
+
+    Private Sub icn7_Click(sender As Object, e As EventArgs) Handles icn7.Click
+
+    End Sub
+
+    Private Sub icn8_Click(sender As Object, e As EventArgs) Handles icn8.Click
+
+    End Sub
+
+    Private Sub icn9_Click(sender As Object, e As EventArgs) Handles icn9.Click
+
+    End Sub
+
+    Private Sub mousecheck_Tick(sender As Object, e As EventArgs) Handles mousecheck.Tick
+        If (Cursor.Position.Y > Screen.PrimaryScreen.Bounds.Height - 20) And uod > 1 Then
+            uod = -5
+            dockanimate.Start()
+            mousecheck.Stop()
+        ElseIf (Cursor.Position.Y < Screen.PrimaryScreen.Bounds.Height - Me.Height) And uod < 1 Then
+            uod = 5
+            dockanimate.Start()
+            mousecheck.Stop()
+        End If
+        dockimg.Width = Me.Width
+        dockimg.Height = Me.Height
+        Content.Width = Me.Width
+        Content.Height = Me.Height
+    End Sub
+
+    Private Sub dockanimate_Tick(sender As Object, e As EventArgs) Handles dockanimate.Tick
+        Content.Location = New Point(Content.Location.X, Content.Location.Y + uod)
+        uod = uod + uod
+        If (Content.Location.Y < 0) Then
+            Content.Location = New Point(Content.Location.X, 0)
+            dockanimate.Stop()
+            mousecheck.Start()
+        ElseIf (Content.Location.Y > Me.Height) Then
+            Content.Location = New Point(Content.Location.X, Me.Height)
+            dockanimate.Stop()
+            mousecheck.Start()
+        End If
+    End Sub
+End Class
+\ No newline at end of file