[Resolvido]32 bits x 64 bits

Estou fazendo um projeto para meu filho e encontro um problema que gostaria de saber se alguém tem uma solução. Meu computador é 32 bits e o dele 64 bits. Algumas coisas dão problema que precisa inserir, na declaração da função o PTRSAFE. Gostaria de saber se dá para fazer algo assim :

Option Compare Database
if "computador é 64 bits"
Public Declare ptrsafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
end if

Obrigado !!

Boa tarde

Código:


#If Win64 Then
    Public Declare ptrsafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If


Boa tarde, Alexandre,
Inseri o código que você mandou, porém, no 32, quando depura o programa dá erro e exibe mensagem dando conta que a função Sleep não está definida, no local onde é chamada !!

Apenas adaptei o código para 32 ou 64 bits que julgo funcionará. A função se não funciona terá que ver o porquê

Quando retira o código
#If Win64 Then
Public Declare ptrsafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

funciona no 32 bits e não dá problema de compilação, ou seja, o else parece não funcionar neste código!!

Olá Alexandre, tentei o código desta forma :
#If win64 Then
Public Declare ptrsafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
#If Win32 Then
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

e não deu problema de compilação !!

obrigado

Obrigado, mais uma vez !!