p4vbTestForm.frm #1

VERSION 5.00
Begin VB.Form p4vbTestForm 
   Caption         =   "Test p4 from vb"
   ClientHeight    =   6360
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8010
   LinkTopic       =   "Form1"
   ScaleHeight     =   6360
   ScaleWidth      =   8010
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdRun 
      Caption         =   "Run"
      Default         =   -1  'True
      Height          =   495
      Left            =   2880
      TabIndex        =   8
      Top             =   5400
      Width           =   1455
   End
   Begin VB.CheckBox UseStat 
      Caption         =   "Use stat"
      Height          =   375
      Left            =   360
      TabIndex        =   7
      Top             =   720
      Width           =   3015
   End
   Begin VB.TextBox cmd 
      Height          =   375
      Left            =   1200
      TabIndex        =   5
      Text            =   "Text1"
      Top             =   120
      Width           =   5775
   End
   Begin VB.TextBox FileName 
      Height          =   375
      Left            =   1200
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   1200
      Width           =   5775
   End
   Begin VB.ListBox ResultBox 
      Height          =   3375
      ItemData        =   "p4vbTestForm.frx":0000
      Left            =   1200
      List            =   "p4vbTestForm.frx":0002
      TabIndex        =   1
      Top             =   1800
      Width           =   5775
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "OK"
      Height          =   495
      Left            =   4680
      TabIndex        =   0
      Top             =   5400
      Width           =   1455
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      Caption         =   "cmd:"
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   120
      Width           =   975
   End
   Begin VB.Label FilenameLabel 
      Alignment       =   1  'Right Justify
      Caption         =   "File name:"
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   1200
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "Result:"
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   1800
      Width           =   975
   End
End
Attribute VB_Name = "p4vbTestForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdRun_Click()
'TODO
'    p4interface.p4vbtestrun cmd.Text, ResultBox, UseStat
End Sub