Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) Private Type SYSTEM_INFO dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOrfProcessors As Long dwProcessorType As Long dwAllocationGranularity As Long dwReserved As Long End Type Private Sub Form_Load() Dim SInfo As SYSTEM_INFO 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Me.AutoRedraw = True GetSystemInfo SInfo Me.Print "Nombre de processeur:" + str$(SInfo.dwNumberOrfProcessors) Me.Print "Processeur:" + str$(SInfo.dwProcessorType) Me.Print "Adresse mémoire basse:" + str$(SInfo.lpMinimumApplicationAddress) Me.Print "Adresse mémoire haute:" + str$(SInfo.lpMaximumApplicationAddress) End Sub