Antes de mirar tu localhostname, necesitas ir a proyect >> Components y activar Microsoft Winsock Controls, una vez activados, a?ades un winsock al form, y 1 textbox.

Luego en el Form_Load a?ade este c?digo:

Dim lhn As String
lhn = Winsock1.LocalHostName
Text1.Text = Trim$(lhn)

Una vez a?adido, lo compilas y huala, te dice tu Localhostname.

Es muy sencillo, pronto a?adire m?s cosas sobre Winsock Controls