mdimain.frm

一款漂亮的控件。 快

VERSION 5.00
Begin VB.MDIForm MdiMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "获取系统消息"
   ClientHeight    =   3405
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   4725
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Align           =   3  'Align Left
      BorderStyle     =   0  'None
      Height          =   3405
      Left            =   0
      ScaleHeight     =   3405
      ScaleWidth      =   2040
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   2040
   End
End
Attribute VB_Name = "MdiMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
    FrmMain.Show
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Call SetParent(FrmMain.hWnd, Me.hWnd)
End Sub

Public Sub Picture1_Resize()
    On Error Resume Next
    Dim l As Long
    l = GetWindow(Picture1.hWnd, GW_CHILD)
    Call MoveWindow(l, -4, -2, Picture1.Width / Screen.TwipsPerPixelX + 8, Picture1.Height / Screen.TwipsPerPixelY + 6, True)
    Call UpdateWindow(l)
End Sub