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