controlmousedialog.frm

利用RS232做通訊 可以執行自動功能 謝謝大家使用

VERSION 5.00
Begin VB.Form ControlMouseDialog 
   BorderStyle     =   3  '蛮絬㏕﹚癸杠よ遏
   Caption         =   "癸杠よ遏夹肈"
   ClientHeight    =   3195
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   6030
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   6030
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   10000
      Left            =   4320
      Top             =   1800
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   1080
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   720
      Width           =   3135
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   1080
      TabIndex        =   2
      Top             =   2040
      Width           =   2895
   End
   Begin VB.CommandButton CancelButton 
      Caption         =   "