799 lines
25 KiB
Plaintext
799 lines
25 KiB
Plaintext
VERSION 5.00
|
||
Begin VB.Form frmInitFM85
|
||
BorderStyle = 0 'Kein
|
||
Caption = "Pruef2000"
|
||
ClientHeight = 9105
|
||
ClientLeft = 0
|
||
ClientTop = 0
|
||
ClientWidth = 12105
|
||
LinkTopic = "Form1"
|
||
MaxButton = 0 'False
|
||
MinButton = 0 'False
|
||
ScaleHeight = 9105
|
||
ScaleWidth = 12105
|
||
ShowInTaskbar = 0 'False
|
||
StartUpPosition = 3 'Windows-Standard
|
||
Begin VB.Frame frMain
|
||
Height = 7815
|
||
Left = 360
|
||
TabIndex = 2
|
||
Top = 780
|
||
Width = 6855
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 16
|
||
Left = 1680
|
||
TabIndex = 19
|
||
Top = 6000
|
||
Visible = 0 'False
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 15
|
||
Left = 1680
|
||
TabIndex = 18
|
||
Top = 5640
|
||
Visible = 0 'False
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 14
|
||
Left = 1680
|
||
TabIndex = 17
|
||
Top = 5280
|
||
Visible = 0 'False
|
||
Width = 4095
|
||
End
|
||
Begin VB.CommandButton cmdStart
|
||
Caption = "Start"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 495
|
||
Left = 2520
|
||
TabIndex = 16
|
||
Top = 6360
|
||
Width = 1935
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 13
|
||
Left = 1680
|
||
TabIndex = 15
|
||
Top = 4920
|
||
Visible = 0 'False
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 12
|
||
Left = 1680
|
||
TabIndex = 14
|
||
Top = 4560
|
||
Visible = 0 'False
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 11
|
||
Left = 1680
|
||
TabIndex = 13
|
||
Top = 4200
|
||
Visible = 0 'False
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 10
|
||
Left = 1680
|
||
TabIndex = 12
|
||
Top = 3840
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 9
|
||
Left = 1680
|
||
TabIndex = 11
|
||
Top = 3480
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 8
|
||
Left = 1680
|
||
TabIndex = 10
|
||
Top = 3120
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 7
|
||
Left = 1680
|
||
TabIndex = 9
|
||
Top = 2760
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 6
|
||
Left = 1680
|
||
TabIndex = 8
|
||
Top = 2400
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 5
|
||
Left = 1680
|
||
TabIndex = 7
|
||
Top = 2040
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 4
|
||
Left = 1680
|
||
TabIndex = 6
|
||
Top = 1680
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 3
|
||
Left = 1680
|
||
TabIndex = 5
|
||
Top = 1320
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 2
|
||
Left = 1680
|
||
TabIndex = 4
|
||
Top = 960
|
||
Width = 4095
|
||
End
|
||
Begin VB.TextBox Text1
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 285
|
||
Index = 1
|
||
Left = 1680
|
||
TabIndex = 3
|
||
Top = 600
|
||
Width = 4095
|
||
End
|
||
Begin VB.Label lblStatus
|
||
BorderStyle = 1 'Fest Einfach
|
||
Height = 255
|
||
Left = 240
|
||
TabIndex = 37
|
||
Top = 7440
|
||
Width = 6435
|
||
End
|
||
Begin VB.Label lblCOMMSettings
|
||
BorderStyle = 1 'Fest Einfach
|
||
Height = 315
|
||
Left = 2220
|
||
TabIndex = 36
|
||
Top = 6960
|
||
Width = 2955
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 16
|
||
Left = 120
|
||
TabIndex = 35
|
||
Top = 6000
|
||
Visible = 0 'False
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 15
|
||
Left = 120
|
||
TabIndex = 34
|
||
Top = 5640
|
||
Visible = 0 'False
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 14
|
||
Left = 120
|
||
TabIndex = 33
|
||
Top = 5280
|
||
Visible = 0 'False
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 13
|
||
Left = 120
|
||
TabIndex = 32
|
||
Top = 4920
|
||
Visible = 0 'False
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 12
|
||
Left = 120
|
||
TabIndex = 31
|
||
Top = 4560
|
||
Visible = 0 'False
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 11
|
||
Left = 120
|
||
TabIndex = 30
|
||
Top = 4200
|
||
Visible = 0 'False
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 10
|
||
Left = 120
|
||
TabIndex = 29
|
||
Top = 3840
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 9
|
||
Left = 120
|
||
TabIndex = 28
|
||
Top = 3480
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 8
|
||
Left = 120
|
||
TabIndex = 27
|
||
Top = 3120
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 7
|
||
Left = 120
|
||
TabIndex = 26
|
||
Top = 2760
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 6
|
||
Left = 120
|
||
TabIndex = 25
|
||
Top = 2400
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 5
|
||
Left = 120
|
||
TabIndex = 24
|
||
Top = 2040
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 4
|
||
Left = 120
|
||
TabIndex = 23
|
||
Top = 1680
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 3
|
||
Left = 120
|
||
TabIndex = 22
|
||
Top = 1320
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 2
|
||
Left = 120
|
||
TabIndex = 21
|
||
Top = 960
|
||
Width = 1500
|
||
End
|
||
Begin VB.Label Label1
|
||
Alignment = 1 'Rechts
|
||
Caption = "00"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Index = 1
|
||
Left = 120
|
||
TabIndex = 20
|
||
Top = 600
|
||
Width = 1500
|
||
End
|
||
End
|
||
Begin VB.CommandButton cmdCancel
|
||
Cancel = -1 'True
|
||
Caption = "Zur<75>ck"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 615
|
||
Left = 7080
|
||
TabIndex = 1
|
||
Top = 0
|
||
Width = 1935
|
||
End
|
||
Begin VB.Label lblTitle
|
||
Caption = "Initialisierung der FM Ger<65>te"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 12
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 375
|
||
Left = 720
|
||
TabIndex = 0
|
||
Top = 120
|
||
Width = 4215
|
||
End
|
||
End
|
||
Attribute VB_Name = "frmInitFM85"
|
||
Attribute VB_GlobalNameSpace = False
|
||
Attribute VB_Creatable = False
|
||
Attribute VB_PredeclaredId = True
|
||
Attribute VB_Exposed = False
|
||
Option Explicit
|
||
|
||
|
||
' Private Member
|
||
' --------------
|
||
Private m_nRet As Integer
|
||
Private m_FM85Bus As CFMBus
|
||
|
||
|
||
' @return Code, mit dem endDialog aufgerufen wurde
|
||
'
|
||
Public Function getExitCode() As Integer
|
||
getExitCode = m_nRet
|
||
End Function
|
||
|
||
'------------------------------------------------------------------------------
|
||
' Private Funktionalit<69>t
|
||
'------------------------------------------------------------------------------
|
||
|
||
' Dialog beenden
|
||
'
|
||
' @param nRet Returncode des Dialogs
|
||
'
|
||
Private Sub endDialog(nRet As Integer)
|
||
m_nRet = nRet
|
||
Unload Me
|
||
End Sub
|
||
|
||
'------------------------------------------------------------------------------
|
||
' Event-Handling
|
||
'------------------------------------------------------------------------------
|
||
|
||
Private Sub Form_Load()
|
||
Dim i As Integer
|
||
|
||
Call setupStdDlg(Me)
|
||
|
||
Set m_FM85Bus = g_App.getFMBus()
|
||
OpenComPort
|
||
|
||
For i = 1 To 16
|
||
Label1(i).Caption = Str(i)
|
||
Text1(i).Enabled = False
|
||
Next i
|
||
End Sub
|
||
|
||
|
||
Private Sub OpenComPort()
|
||
On Error Resume Next
|
||
m_FM85Bus.GetMSComm.PortOpen = True
|
||
End Sub
|
||
|
||
Private Sub cmdStart_Click()
|
||
Dim i As Integer
|
||
Dim oFM85 As CFM85P
|
||
Dim oWaage As CWaage
|
||
|
||
cmdCancel.Enabled = False
|
||
cmdStart.Enabled = False
|
||
Screen.MousePointer = vbHourglass
|
||
|
||
' Todo: aktivieren
|
||
' Set oWaage = g_App.getWaage
|
||
' txtWaage.Text = "testing..."
|
||
' If oWaage.Reset Then
|
||
' txtWaage.Text = "OK: " & oWaage.getData
|
||
' Else
|
||
' txtWaage.Text = "Fehler: " & oWaage.getErrorCode & "," & oWaage.getErrorDesc
|
||
' End If
|
||
' oWaage.releaseMScomm
|
||
' Set oWaage = Nothing
|
||
|
||
For i = 1 To 10
|
||
Label1(i).Caption = Str(i)
|
||
Text1(i).text = ""
|
||
Text1(i).Enabled = False
|
||
Next i
|
||
DoEvents
|
||
|
||
|
||
lblCOMMSettings.Caption = m_FM85Bus.GetMSComm.Settings
|
||
lblStatus.Caption = "Resetten aller FM85: **0@"
|
||
DoEvents
|
||
m_FM85Bus.send "**0@"
|
||
Sleep 100, True
|
||
lblStatus.Caption = "Resetten aller FM85: R"
|
||
DoEvents
|
||
m_FM85Bus.send "R"
|
||
m_FM85Bus.receive 2000
|
||
|
||
Sleep 4000, True
|
||
|
||
For i = 1 To 10
|
||
Text1(i).text = "Anwahl..."
|
||
Set oFM85 = m_FM85Bus.getFM85P(i)
|
||
lblStatus.Caption = "Anwahl " & i
|
||
oFM85.sendAttention
|
||
Text1(i).text = oFM85.getLastAnswer
|
||
Debug.Print m_FM85Bus.getErrorDesc
|
||
If oFM85.getErrorCode > 0 Then
|
||
Text1(i).text = oFM85.getErrorDesc
|
||
End If
|
||
Sleep 100, True
|
||
Next i
|
||
|
||
cmdStart.Enabled = True
|
||
Screen.MousePointer = vbDefault
|
||
cmdCancel.Enabled = True
|
||
End Sub
|
||
|
||
Private Sub cmdCancel_Click()
|
||
Call endDialog(IDOK)
|
||
End Sub
|
||
|