GW Instek GSP-827 Programming Manual - Manual (Page 15)

Copyright 2003 GOODWILL INSTRUMENT CO., LTD.
StartUpPosition = 3 'System default
Begin VB.TextBox Text1
Height = 3435
Left = 0
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 1
Top = 45
Width = 5595
End
Begin VB.CommandButton cmdTest
Caption = "Test"
Height = 555
Left = 5670
TabIndex = 0
Top = 2925
Width = 960
End
Begin MSCommLib.MSComm MSComm1
Left = 6075
Top = 45
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim rdBuffer As String 'Buffer for input string
Dim ErrStr As String 'Buffer for error message
'============== Delay in ms =================================
Private Function Delay(DelaymSec As Double)