.NET (Core and Framework)

Public Overrides Sub Initialize(ByVal component As IComponent)
    MyBase.Initialize(component)

    Dim iccs As IComponentChangeService = _
    DirectCast(GetService(GetType(IComponentChangeService)), IComponentChangeService)
    If iccs IsNot Nothing Then AddHandler iccs.ComponentRemoved, AddressOf ComponentRemoved

    Dim s As ISelectionService = DirectCast(GetService(GetType(ISelectionService)), ISelectionService)
    If s IsNot Nothing Then AddHandler s.SelectionChanged, AddressOf sSelectionChanged

    'Attempt to add two pages
    Dim DH As IDesignerHost = DirectCast(GetService(GetType(IDesignerHost)), IDesignerHost)
    If DH IsNot Nothing Then
        Dim MPP As MultiPanelPage = _
        DirectCast(DH.CreateComponent(GetType(MultiPanelPage)), MultiPanelPage)
        MPP.Text = MPP.Name
        _MPanel.Controls.Add(MPP)
        _MPanel.SelectedPage = MPP

        MPP = DirectCast(DH.CreateComponent(GetType(MultiPanelPage)), MultiPanelPage)
        MPP.Text = MPP.Name
        _MPanel.Controls.Add(MPP)
    End If
End Sub

gymgym_jim wrote:

Really could do with some help!

Imports System
Imports System.Net.Sockets
Imports System.Text

Public Class Form1
    Private Const portNum As Integer = 13
    Private Const hostName As String = "hostMachineName" ' or IP "192.168.131.67"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim client As New TcpClient(hostName, portNum)

            Dim ns As NetworkStream = client.GetStream()

            Dim bytes(1024) As Byte
            Dim bytesRead As Integer = ns.Read(bytes, 0, bytes.Length)
            Dim xx$
            xx = Encoding.ASCII.GetString(bytes, 0, bytesRead)
            Beep()
            'client.Connect
            client.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


        'Return 0

    End Sub
End Class

Imports System
Imports System.Net.Sockets
Imports System.Text


Public Class Form1
    Private Const portNum As Integer = 13

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim done As Boolean = False

        Dim listener As New TcpListener(portNum)

        listener.Start()

        While Not done
            Console.Write("Waiting for connection...")
            Dim client As TcpClient = listener.AcceptTcpClient()

            Console.WriteLine("Connection accepted.")
            Dim ns As NetworkStream = client.GetStream()

            Dim byteTime As Byte() = _
                Encoding.ASCII.GetBytes(DateTime.Now.ToString())

            Try
                ns.Write(byteTime, 0, byteTime.Length)
                ns.Close()
                client.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End While

        listener.Stop()

    End Sub
End Class