From dfac3489c438f5c54bff088a354815e79675b531 Mon Sep 17 00:00:00 2001
From: Jamie Mansfield <malgm@lapis.blue>
Date: Sun, 1 Mar 2015 10:50:24 +0000
Subject: Initial commit

---
 windows 95/Title Screen.vb | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100755 windows 95/Title Screen.vb

(limited to 'windows 95/Title Screen.vb')

diff --git a/windows 95/Title Screen.vb b/windows 95/Title Screen.vb
new file mode 100755
index 0000000..17cc5a4
--- /dev/null
+++ b/windows 95/Title Screen.vb	
@@ -0,0 +1,41 @@
+Public Class Title_Screen
+    Private Sub buttonexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonexit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub buttonnewgame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonnewgame.Click
+        Windows95.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub buttonnewgame_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonnewgame.MouseEnter
+        buttonnewgame.Image = My.Resources.msnewgame
+    End Sub
+
+    Private Sub buttonnewgame_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonnewgame.MouseLeave
+        buttonnewgame.Image = My.Resources.new_game
+    End Sub
+
+    Private Sub buttonexit_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonexit.MouseEnter
+        buttonexit.Image = My.Resources.msexit
+    End Sub
+
+    Private Sub buttonexit_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonexit.MouseLeave
+        buttonexit.Image = My.Resources._exit
+    End Sub
+
+    Private Sub buttonloadgame_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonloadgame.MouseEnter
+        buttonloadgame.Image = My.Resources.msload_game
+    End Sub
+
+    Private Sub buttonloadgame_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonloadgame.MouseLeave
+        buttonloadgame.Image = My.Resources.load_game
+    End Sub
+
+    Private Sub buttonloadgame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonloadgame.Click
+        loadsettings.Show()
+    End Sub
+
+    Private Sub Title_Screen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+    End Sub
+End Class
\ No newline at end of file
-- 
cgit v1.2.3