Initial commit

1 files changed, 30 insertions, 0 deletions

diff --git a/Backup/windows 95/run.vb b/Backup/windows 95/run.vb
new file mode 100755
index 0000000..7725ff5
--- /dev/null
+++ b/Backup/windows 95/run.vb
@@ -0,0 +1,30 @@
+Public Class run

+

+    Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click

+        Me.Close()

+    End Sub

+

+

+    Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown

+        If e.Button = MouseButtons.Left Then

+            programtopbar.Capture = False

+

+            Const WM_NCLBUTTONDOWN As Integer = &HA1S

+            Const HTCAPTION As Integer = 2

+            Dim msg As Message = _

+                Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _

+                    New IntPtr(HTCAPTION), IntPtr.Zero)

+            Me.DefWndProc(msg)

+        End If

+    End Sub

+

+    Private Sub run_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

+        look.Start()

+    End Sub

+

+    Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick

+        Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor

+        Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage

+        Me.programname.BackColor = Windows95.exampleprogramtext.BackColor

+    End Sub

+End Class
\ No newline at end of file