initial commit

ArinWarev1/Forms/Frm_Calc.vb

@@ -0,0 +1,36 @@
+Public Class Frm_Calc
+    Public Type As Calculator.ECalc
+    Public Overrides Function AcceptChanged() As Boolean
+
+    End Function
+    Public Overrides Function RejectChanged() As Boolean
+
+    End Function
+    Public Overrides Function HasChanged() As Boolean
+
+    End Function
+    Private Sub Frm_Calc_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
+        If e.KeyCode = Keys.Escape Then
+            Me.DialogResult = Windows.Forms.DialogResult.Cancel
+        End If
+    End Sub
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        Type = Calculator.ECalc.REq
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+    End Sub
+
+    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
+        Type = Calculator.ECalc.Use
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+    End Sub
+
+    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
+        Type = Calculator.ECalc.All
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+    End Sub
+
+    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
+        Me.Close()
+    End Sub
+End Class