VB Snippet - Change User Name

VB Code:

Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long 
 
Dim strNewComputerName as string
 
Dim lngReturn as Long 
 
strNewComputerName = "Speedy's system"
 
lngReturn = SetComputerName(strNewComputerName)