Pequeña duda....

Hola tengo una duda.... estoy practicando ejemplos por que recien comienzo con Visual Basic y tengo problemas con esto.... con hacer un screen remotamente....Localmente anda perfecto pero tengo un par de dudas al hacerlo Remotamente.... :xD

el codigo para que funcione localmente es

en el FORM()

Código:

Option Explicit
 
 'Api para generar un evento de tecla, en este caso Print Screen
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event _
    Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)

'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)
    
    ' borra el portapapeles
    Clipboard.Clear
    
    ' Manda la pulsación de teclas para capturar la imagen de la pantalla
    Call keybd_event(44, 2, 0, 0)
    
    DoEvents
    ' Si el formato del clipboard es un bitmap
    If Clipboard.GetFormat(vbCFBitmap) Then
    
        'Guardamos la imagen en disco
        SavePicture Clipboard.GetData(vbCFBitmap), Path
        MsgBox " Captura generada en: " & Path, vbInformation
        Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    Else
        MsgBox " Error ", vbCritical
    End If

End Sub


Private Sub ty_Click()
Call Capturar_Guardar("c:\pantalla.bmp")
End Sub

Private Sub ex_Click()
End
End Sub

______________________________________________________________________
______________________________________________________________________
______________________________________________________________________

Al hacerlo remoto lo que hice fue esto que no se si esta bien por eso pido ayuda aca...

En el FORM()

Código:

Private Sub ty_Click()
enviar "ty"
End Sub

Private Sub ex_Click()
End
End Sub

Luego en el Server en la parte de DattaArrival

Código:

'SCREEN CAPTURE
       Case "ty"
            CapturarScreen

y en un modulo aparte lo siguiente

Código:

'*******************************************************************************************************************************************************************************************************
' SCREEN CAPTURE
'********************************************************************************************************************************************************************************************************
 'Api para generar un evento de tecla, en este caso Print Screen
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event _
    Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)
'**************************************************************************************************************************************************************************************************


'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)
    
    ' borra el portapapeles
    Clipboard.Clear
    
    ' Manda la pulsación de teclas para capturar la imagen de la pantalla
    Call keybd_event(44, 2, 0, 0)
    
    DoEvents
    ' Si el formato del clipboard es un bitmap
    If Clipboard.GetFormat(vbCFBitmap) Then
    
        'Guardamos la imagen en disco
        SavePicture Clipboard.GetData(vbCFBitmap), Path
        MsgBox " Captura generada en: " & Path, vbInformation
        Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    Else
        MsgBox " Error ", vbCritical
    End If

End Sub

Function CapturarScreen()
Call Capturar_Guardar("c:\pantalla.bmp")
End Function

Hay algo que anda mal....que es? $:-\$