Game_MainのESCキーが押されたときの処理で
DXEndFull frm_Mainの処理の後関数をぬけて
終了処理として
Unload frm_Main
ShowCursor True
Set dd = Nothing
Set dx = Nothing
として
Exit Do
でメインループぬけて終わり