VERSION 5.00
Begin VB.Form frmMenu 
   ClientHeight    =   1110
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   2445
   LinkTopic       =   "Form3"
   ScaleHeight     =   1110
   ScaleWidth      =   2445
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu RightMenu 
      Caption         =   "RightMenu"
      Begin VB.Menu mnuResume 
         Caption         =   "恢復(fù)(&R)"
      End
      Begin VB.Menu Menu_0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "關(guān)于(&A)"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
      End
   End
End
Attribute VB_Name = "frmMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 塊 名：frmMenu
'**說    明：YFHome 版權(quán)所有2003 - 2004(C)
'**創(chuàng) 建 人：葉帆
'**日    期：2003年04月25日
'**修 改 人：
'**日    期：
'**描    述：
'**版    本：版本1.0
'*************************************************************************
Option Explicit

'*************************************************************************
'**模 塊 名：frmMenu
'**說    明：YFHome 版權(quán)所有2003 - 2004(C)
'**創(chuàng) 建 人：葉帆
'**日    期：2003年04月17日
'**修 改 人：
'**日    期：
'**描    述：
'**版    本：V1.0
'*************************************************************************
Private Sub mnuAbout_Click()

End Sub

'*************************************************************************
'**函 數(shù) 名：mnuExit_Click
'**輸    入：無
'**輸    出：無
'**功能描述：
'**全局變量：
'**調(diào)用模塊：
'**作    者：葉帆
'**日    期：2004-09-18
'**修 改 人：
'**日    期：
'**版    本：V3.1.50
'*************************************************************************
Private Sub mnuExit_Click()
  Unload Me
  Unload frmMain
End Sub

'*************************************************************************
'**函 數(shù) 名：mnuResume_Click
'**輸    入：無
'**輸    出：無
'**功能描述：
'**全局變量：
'**調(diào)用模塊：
'**作    者：葉帆
'**日    期：2004-09-18
'**修 改 人：
'**日    期：
'**版    本：V3.1.50
'*************************************************************************
Private Sub mnuResume_Click()
  '窗體狀態(tài)為最小化
    If TheForm.WindowState = vbMinimized Then TheForm.WindowState = TheForm.LastState
    TheForm.Visible = True
    TheForm.SetFocus
   
End Sub