Postada em 24/8/2003 por Ð@®l@n Private Declare Function SetComputerName Lib "Kernel32" Alias "SetComputerNameA" (ByVal lpcomputername As String) As Long Private Sub Command1_Click() If Text1.Text <> "" Then SetComputerName Text1.Text MsgBox " O nome nome do computador é : " & Text1.Text End If End Sub
