form1.frm

上传的包含两个文件

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4710
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5565
   LinkTopic       =   "Form1"
   ScaleHeight     =   4710
   ScaleLeft       =   1
   ScaleMode       =   0  'User
   ScaleTop        =   1
   ScaleWidth      =   5565
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   1455
      Left            =   2760
      MultiLine       =   -1  'True
      TabIndex        =   1
      Text            =   "Form1.frx":0000
      Top             =   360
      Width           =   2295
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   975
      Left            =   360
      TabIndex        =   0
      Top             =   3120
      Width           =   1335
   End
   Begin VB.Image Image1 
      Height          =   1575
      Left            =   120
      Picture         =   "Form1.frx":0098
      Top             =   240
      Width           =   2100
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ap() As cp
Sub ai()
Dim i As Integer
For i = 0 To Controls.Count - 1
With ap(i)
.wp = Controls(i).Width / Form1.ScaleWidth
.hp = Controls(i).Height / Form1.ScaleHeight
.lp = Controls(i).Left / Form1.ScaleWidth
.tp = Controls(i).Top / Form1.ScaleHeight
End With
Next i
End Sub
Private Sub Form_Load()
ReDim ap(0 To Controls.Count - 1)
ai
End Sub

Private Sub Form_Resize()
Dim i As Integer
For i = 0 To Controls.Count - 1
Controls(i).Move ap(i).lp * Form1.ScaleWidth, ap(i).tp * Form1.ScaleHeight, ap(i).wp * Form1.ScaleWidth, ap(i).hp * Form1.ScaleHeight




Next i

End Sub