Private Sub send_Click()          '窗体中建立一个发送按钮

Dim s
s = "net send " & Environ("computername") & " " & Me.Message         '窗体中建立一个名称为Message的文本框
Shell ("cmd.exe /c " & s)
Me.Message = Null

End Sub