frm_msg.frm

vb串口编程电表读数 vb串口编程电表读数 vb串口编程电表读数 vb串口编程电表读数

VERSION 5.00
Begin VB.Form frm_msg 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00E0E0E0&
   Caption         =   "通讯报告"
   ClientHeight    =   4560
   ClientLeft      =   9750
   ClientTop       =   1635
   ClientWidth     =   2985
   Icon            =   "frm_msg.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   304
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   199
   Visible         =   0   'False
End
Attribute VB_Name = "frm_msg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 If MARK = 1 Then
 Cancel = 1
 Else: Cancel = 0
 End If
 End Sub

Private Sub Form_Load()
frm_msg.Height = Screen.Height / 2.4
frm_msg.Width = Screen.Width / 5
frm_msg.Top = 4500
frm_msg.Left = 9900
frm_msg.Cls

End Sub