Codenstuff.com

Imports MessengerAPI

Dim msn As New MessengerAPI.Messenger

  Dim cons As IMessengerContacts
        Dim con As IMessengerContact
        listbox1.Items.Clear()
        cons = msn.MyContacts
        For Each con In cons
            If con.Status <> MISTATUS.MISTATUS_OFFLINE Then
                listbox1.Items.Add(con.SigninName)
            End If
        Next

textbox1.Text = listbox1.Text

   msn.InstantMessage(textbox1.Text)

 Me.Refresh()

        Me.Close()

        If msn.MyStatus = MISTATUS.MISTATUS_ONLINE Then
            Button4.Text = "Offline"
            msn.MyStatus = MISTATUS.MISTATUS_INVISIBLE
        Else
            Button4.Text = "Online"
            msn.MyStatus = MISTATUS.MISTATUS_ONLINE
        End If

        If msn.MyStatus = MISTATUS.MISTATUS_ONLINE Then
            Button4.Text = "Offline"
        Else
            Button4.Text = "Online"
        End If
        Dim cons As IMessengerContacts
        Dim con As IMessengerContact
        ListBox1.Items.Clear()
        cons = msn.MyContacts
        For Each con In cons
            If con.Status <> MISTATUS.MISTATUS_OFFLINE Then
                ListBox1.Items.Add(con.SigninName)
            End If
        Next

    Dim displayname As New MessengerAPI.Messenger
    Public WithEvents msn As New Messenger 

        Lblcurrent.Text = displayname.myfriendlyname 

         displayname.optionsPage(0, MessengerAPI.MOPTIONPAGE.MOPT_GENERAL_PAGE)
        SendKeys.Send(TxtNew.Text)
        SendKeys.Send("{Enter}")