Example 4

pack.def      

LIBRARY  pack

EXPORTS

  Connect2Pro @1

  Repaint @2

pack.h

#include <windows.h>

int __declspec(dllexport) Connect2Pro();

int __declspec(dllexport) Repaint();

pack.cpp

int Connect2Pro(){

  ProProcessHandle proe_handle;

  ProError err;

  ProBoolean random;

  err = ProEngineerConnect("",NULL,NULL,"",PRO_B_TRUE, 100, &random, &proe_handle); 

  if(err != PRO_TK_NO_ERROR){

      return -1; 

   }

  }

  return 0;

}

int Repaint(){

  ProWindowRepaint(PRO_VALUE_UNUSED); 

  return 1;

}

pack.vb

Public Class ptk

    Declare Auto Function Connect2Pro Lib ".\pack.dll" () As Integer

    Declare Auto Function Repaint Lib ".\pack.dll" () As Integer

End Class 

MainForm.vb

.

.

.

Private Sub ConnectToProE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ConnectToProE.Click

    Dim res As Integer

    res = ptk.Connect2Pro()

    If res = 0 Then

        MsgBox("Connection to ProE established.")

   Else

        MsgBox("Failed to connect to ProE.")

   End If

End Sub

Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click

    ptk.Repaint()

End Sub