Site hosted by Angelfire.com: Build your free website today!

My Home Page

Private Sub Command1_Click()
Dim c, m
m = Text2.Text
c = Text1.Text
If (Text1.Text = "") Then
MsgBox "Enter Computer Name"
Text1.SetFocus
ElseIf (Text2.Text = "") Then
MsgBox "Enter Message"
Text2.SetFocus
End If
Str = "net send " & c & " " & m
Shell (Str)
End Sub