【实例说明】
    通过Windows的网上邻居可以获得本机的计算机名称。本例用编程来获得计算机名称。运行程序，单击“获取”按钮，在窗体的文本框将显示本机的计算机名。

【编程思路】
    使用WinSock控件的LocalHostName属性可以返回本地机器名。在设计时是只读的，而且是不可用的。
    WinSock控件对用户来说是不可见的，它提供了访问TCP和UDP网络服务的方便途径。
    WinSock控件的LocalHostName属性可以返回本地机器名。在设计时只是只读的，而且是不可用的。
    语法：object.LocalHostName
    object所在处代表一个对象表达式，其值是“应用于”列表中的对象。
    返回值：String

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2. 单击“工程”菜单中的“部件”选项，在弹出的列表中，选中Microsoft WinSock Controls 6.0选项，单击“确定”按钮，WinSock控件被添加到工具箱中。
    3.在窗体上放置一个WinSock控件、一个TextBox控件、两个CommandButton控件。

    4.源程序  [素材源程序下载]


'获取
Private Sub Command1_Click()
        '存放本地计算机名
        Me.Text1.Text = Me.Winsock1.LocalHostName
End Sub

'退出
Private Sub Command2_Click()
        Unload Me
End Sub