qui deve tenere conto di + cose
1 devi disabilitare il ctrl alt canc
codice:
Declare Function SystemParametersInfo Lib "user32" _
    Alias "SystemParametersInfoA" (ByVal uAction As Long, _
    ByVal uParam As Long, lpvParam As Any, _
    ByVal fuWinIni As Long) As Long
Public Const SPI_SCREENSAVERRUNNING = 97
Public Sub Disable_Ctrl_Alt_Canc()
    
    Dim AyW As Integer
    Dim TurFls As Boolean
    AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
        True, TurFls, 0)
End Sub
Public Sub Enable_Ctrl_Alt_Canc()
    
    Dim AwY As Integer
    Dim TurFls As Boolean
    AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
        False, TurFls, 0)
End Sub
poi devi tenere il focus sempre sulla tua Applicazione
codice:
Declare Function SetWindowPos Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long) As Long

Public Sub AlwaysOnTop(myfrm As Form, SetOnTop As Boolean)
    If SetOnTop The
    lFlag = HWND_TOPMOST
Else
    lFlag = HWND_NOTOPMOST
End If
SetWindowPos myfrm.hwnd, lFlag, _
    myfrm.Left / Screen.TwipsPerPixelX, _
    myfrm.Top / Screen.TwipsPerPixelY, _
    myfrm.Width / Screen.TwipsPerPixelX, _
    myfrm.Height / Screen.TwipsPerPixelY, _
    SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub
e devi anche farlo partire all'avvio

codice:
Public Declare Function WriteProfileSection Lib "kernel32" _
Alias "WriteProfileSectionA" (ByVal  lpAppName As String, _
ByVal lpString As String) As Long
'Sul Form
WriteProfileSection "windows", "load=" & App.path + "\" + _
App.EXEName + ".exe" & vbCrLf & _
"open=" & App.path + "\" + App.EXEName + ".exe"""