Imports SKYPE4COMLib 
 
Public Class form1 
 
 Public WithEvents refSkype As New SKYPE4COMLib.Skype 
 
 Private Sub BtnSend_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSend.Click 
 If TextBox1.Text <> "" Then
 
 On Error Resume Next
 
 refSkype.Client.Start() 
 refSkype.Attach() 
 For Each user In refSkype.Friends 
 refSkype.SendMessage(user.Handle, TextBox1.Text) 
 Next
 End If
 End Sub
End Class