Private Declare Function MeinCheck32 Lib "FremdeDLL.dll" _
  Alias "MeinCheck@12" (ByVal xy As Double) As Integer
 
Private Declare Function MeinCheck64 Lib "FremdeDLL.dll" _
  Alias "MeinCheck" (ByVal xy As Double) As Integer
 
Private Sub Command1_Click()
 
  Dim RetVal As Integer
 
  If is64BitWin = True Then
    RetVal = MeinCheck64(xy)
  Else
    RetVal = MeinCheck32(xy)
  End If
 
End Sub

Gruss,

Zardoz