res = Shell ("cmd.exe /c net stop SharedAccess")

set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\" & "C:\mi prgrama.exe","C:\mi programa.exe:*:Enabled:mi programa"

res = Shell ("cmd.exe /c net stop SharedAccess")

set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\" & "C:\mi prgrama.exe","C:\mi programa.exe:*:Enabled:mi programa"

dim vidas as integer

vidas =vidas 1

'declaración de variables
Public base As Database
Public area As Workspace
Public reg As Recordset 'recomendable declararla en el general
Public Const ruta = "D:\jorge\programas\clasemejoradoyaumnetado\agenda.mdb" 'ruta donde se encuentra la base de datos
Public x As Integer
'abrir la base de datos
Sub main()
    Set area = DBEngine.Workspaces(0)
    Set base = area.OpenDatabase(ruta)
    MDIForm1.Show 'muestra el formulario MDI
End Sub

Dim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative

'Example by Joacim Andersson (joacim@programmer.net)
'Author comments: I often get asked the question "How can
'I dial a phone number from VB?". Well, you can add
'the MSCOMM32.OCX control to a form but that isn't necessary
'if you just want to dial a phone number.
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
Private Sub PhoneCall(sNumber As String, sName As String)
    Dim lRetVal As Long
    lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")
    If lRetVal <> 0 Then
        'Couldn't make the call.
        'Take appropriate action
    End If
End Sub
Private Sub Form_Load()
    PhoneCall "123456", "TheName"
End Sub

ws.close

ws.sendata "cerrar"

ws.getdata datos, vbstring
if datos = "cerrar" then ws.close 'osea si es el server ws.close y despues ws.close y si no ws.close solo