Public Class Form1

    Dim Skype As New SKYPE4COMLib.Skype


    Private Sub TabPage1_Click(sender As Object, e As EventArgs) Handles TabPage1.Click

    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

            Skype.Attach()
            MessageBox.Show("Successfully Connected! Please Enjoy!", "Connected", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Label3.Text = ("Connected!")
            Label1.Text = ("Welcome: " + Skype.CurrentUserProfile.FullName)

        Catch ex As Exception

            MessageBox.Show("Unable To Connect!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Label3.Text = ("Disconnected!")
            Label1.Text = ("Welcome: Unknown")

        End Try




    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Skype.CurrentUserProfile.MoodText = TextBox1.Text


    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Skype.CurrentUserProfile.FullName = TextBox2.Text




    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        For Each user As SKYPE4COMLib.User In Skype.Friends

            Skype.SendMessage(user.Handle, TextBox3.Text)

        Next

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        If ComboBox1.SelectedItem = "Online" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline

        End If

        If ComboBox1.SelectedItem = "Offline" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOffline

        End If

        If ComboBox1.SelectedItem = "Away" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway

        End If

        If ComboBox1.SelectedItem = "Do Not Disturb" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb

        End If


        ' End Life ' ' https://www.youtube.com/watch?v=c4K-GFz6KHY '
    End Sub
End Class