Private Declare Function WriteFile Lib "kernel32" ( _ ByVal hFile As Integer, _ ByVal lpBuffer As String, _ ByVal nNumberOfBytesToWrite As Integer, _ ByVal lpNumberOfBytesWritten As Integer, _ ByVal lpOverlapped As Integer _ ) As Integer
Dim bool As Integer Dim pipe As Integer Dim size As Integer pipe = CreateFile("\\.\pipe\mypipe", &H40000000, 0, 0, 4, &H80, 0) bool = WriteFile(pipe, "ABC", 4, Size, 0)
