forfm.frm

个人财务计算的好工具

VERSION 5.00
Begin VB.Form Frmfm 
   BorderStyle     =   0  'None
   ClientHeight    =   3450
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5640
   LinkTopic       =   "Form1"
   Picture         =   "Forfm.frx":0000
   ScaleHeight     =   3450
   ScaleWidth      =   5640
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   2500
      Left            =   3465
      Top             =   1305
   End
End
Attribute VB_Name = "Frmfm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal CX As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Click()
Timer1.Enabled = False
Unload Me
frmxb.Enabled = True
frmxb.SetFocus
End Sub

Private Sub Form_Load()

SetWindowPos Frmfm.hwnd, -1, 0, 0, 0, 0, 1
Timer1.Enabled = True
frmxb.Show
frmxb.Enabled = False
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Unload Me
frmxb.Enabled = True
frmxb.SetFocus
End Sub