modprocedimientos.bas

the Customer programs in vb for chat

Attribute VB_Name = "modProcedimientos"
Option Explicit
Public Sub Envio_Texto(Txt As String, tcp As Winsock)
    On Error GoTo no_va
    Dim vect(1 To 3) As Integer
    tcp.SendData Txt   'envio el texto
    Exit Sub
no_va:
    MsgBox Err.Description
End Sub

Public Sub Aplicar_skin(ByVal Formulario As Form, file As String)
    frmClienteHabla.Skin1.LoadSkin file 'App.Path & "\Skins\winaqua.skn"
   frmClienteHabla.Skin1.ApplySkin Formulario.hWnd
End Sub