模块中的声明：@H_301_1@

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String,nSize As Long) As Long
Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long@H_301_1@

Public Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long@H_301_1@

Type pointapi
x As Long
y As Long
End Type@H_301_1@

窗体中的代码：@H_301_1@

Private Sub Command1_Click() '获取computer name
Dim name As String * 255,length As Long
length = 255
name = String(length,0)
GetComputerName name,length
name = Left(name,InStr(name,Chr(0)) - 1)
Label1.Caption = name
End Sub@H_301_1@

Private Sub Command2_Click() '设置computer name
Dim name As String
name = Text1.Text
SetComputerName name
End Sub@H_301_1@

Private Sub Timer1_Timer() '随时获得鼠标坐标
Dim point As pointapi
GetCursorPos point
Label1.Caption = "x=" & point.x & "y=" & point.y
End Sub
@H_301_1@

Timer1.Interval=10@H_301_1@