iFIX退出程序

Private Sub CommandButton1_Click()
If MsgBox(“确定要退出控制系统？”, vbExclamation + vbOKCancel, “退出系统”) = vbOK Then
   Dim lResult As Long
   Dim iResult
   Dim hw&, cnt&
   hw& = FindWindow(“iFix Startup”, vbNullString)
   ‘hw& = FindWindow(“iFix Startup”, vbNullString)
   If hw& = 0 Then hw& = FindWindow(“iFix Startup – DEMO MODE”, vbNullString)
   If hw&<> 0 Then cnt& = SendMessage(hw&, &H10, 0, 0&)
End If
End Sub