-API.

[code]Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long[/code]

-CODE.

[code]Private Sub Command1_Click()
Dim bChange
Dim SetCompName
bChange = MsgBox("Do you want to change the name of your computer?", vbYesNo + vbInformation)
If bChange = vbYes Then
SetCompName = SetComputerName(Text1.Text)
End If
End Sub[/code]


You Need: 1 Botton + 1 Text

[spoiler]Like This! No problem, good use to all ....[/spoiler]