Private Declare Function GetBinaryType Lib "kernel32" Alias "GetBinaryTypeA" ( _
  ByVal lpApplicationName As String, lpBinaryType As Long) As Long

Const SCS_32BIT_BINARY As Long = 0 'A 32-bit Windows-based application
 
Const SCS_64BIT_BINARY As Long = 6 'A 64-bit Windows-based application.
 
Const SCS_DOS_BINARY As Long = 1 'An MS-DOS – based application
 
Const SCS_OS216_BINARY As Long = 5 'A 16-bit OS/2-based application
 
Const SCS_PIF_BINARY As Long = 3 'A PIF file that executes an MS-DOS – based 
' application
 
Const SCS_POSIX_BINARY As Long = 4 'A POSIX – based application
 
Const SCS_WOW_BINARY As Long = 2 'A 16-bit Windows-based application