1、插入一個新模塊，在其中添加如下代碼：
＇聲明GetComputerName
DeclareFunctionGetComputerNameLib"kernel32"Alias"GetComputerNameA"(ByvallpBufferAsString,nSizeAsLong)AsLong

＇聲明SetComputerName
DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByvallpComputerNameAsString)AsLong

＇定義一個獲取計算機名字的函數
PublicFunctionGetCName(CName)AsBoolean
DimsComputerNameAsString＇計算機的名字
DimlComputerNameAsLong＇計算機名字的長度
DimlResultAsLong＇GetComputerName的返回值
DimRVAsBoolean

＇GetCName返回值，若為TRUE則表示操作成功
lComputerNameLen=256
sComputerName=Space(lComputerNameLen)
lResult=GetComputerName(sComputerName,lCompputerNameLen)
IflResult<>0ThenCname=Left$(sComputerName,lComputerNameLen)
RV=True
Else
RV=False
EndIf
GetCName=RV
EndFunction

＇定義一個修改計算機名字的函數
PublicFunctionSetCName(CName)AsBoolean
DimlResultAsLong
DimRVAsBoolean
lResult=SetComputerName(CName)
IflResult<>0Then
RV=True修改成功
Else
RV=False
EndIf
SetCName=RV
EndFunction

2、在窗體中添加一命令按鈕Command1，雙擊該按鈕并在其中添加如下代碼：

SubCommand1-Click()
DIMCNASString
x=GetCName(CN)
EndSub

3、保存上述設置和代碼，然后按F5運行該程序，觀察其運行結果。

需要說明的是：（1）修改完計算機的名字后必須重新啟動才能有效；（2）計算機名字中只能含有字母、數字和下面的幾種符號：！、@、#、$、、^、；、＇、）、（、·、-、{、}、~、（3）程序的運行環境為：VB4.0(32)、Win95中文版。