SetActiveWindow
Declaración:
Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Descripción:
La función SetActiveWindow se usa para darle el enfoque a determinada ventana de nuestra aplicación.
Parámetros:
ByVal hwnd As Long
Aquí se coloca la ventana que queremos darle el enfoque.
Valor de retorno:
Si  retorna 0 ocurrió un error.
Uso:
Dim ValorRetorno As Long 'Variable para el valor de retorno
'Conviene que tenga dos o más ventanas en la aplicación mostradas, para ver mejor el ejemplo
ValorRetorno = SetActiveWindow(Form1.hwnd) 'En este ejemplo se le da el enfoque al Form1.