Simple ESC Menu

[farrel24]

I do not know it was there or not.
but I was just fun to share. :cheesy:

sorry I did not put the photos because my connection is very slow

**Only Client Side**

All the way just in **frm.Main**

1.first of all you create and name the **Picture box** = **picExitOptions**
- Apperance = Flat
- Width = 313
- Height = 233
- Visible = False

2.and create a command button in the Picture box
- Name = **cmdResume**
- Caption = **Resume Playing**

3.further, and if you want to make Exit command
you create a command button
- Name = **cmdExit**
- Caption = **Exit Game**

4\. Insert this Code to **cmdResume**

```
Private Sub cmdResume_Click()
picExitOptions.Visible = False
End Sub
```
6\. Insert This code to **cmdExit**

```
Private Sub cmdExit_Click()
Call DestroyGame
End Sub
```
7\. and go to frm.Main-> View Code
and Search
```
    Select Case KeyCode
        Case vbKeyInsert
            If Player(MyIndex).Access > 0 Then
                frmAdminMenu.Visible = Not frmAdminMenu.Visible
            End If
    End Select
```
under that add

```
' Exit Options
If KeyCode = vbKeyEscape Then
        frmMain.picExitOptions.Visible = True
    End If
```
Next up, you can create a command button suit your taste! :cheesy:

[hisherwin]

I Haven't test it yet .
But i will , if it work thanks for this tutorial

[farrel24]

I'm sorry if this does not work

[Growlith1223]

[Menustone](http://www.touchofdeathforums.com/smf2/index.php/topic,78164.msg837893.html#msg837893)
I already made a tutorial on that but thanks for helping the community out :3

[narut0no]

Wow this is really simple !!! i like it,Nice Job !!!!