أولا اذهب إلى
Project -> Add Reference -> Click COM -> Click Messenger API Type Libary -> OK
\\Code//
Public Class Form1
Dim hackcommunity As New MessengerAPI.Messenger
Private Sub Online_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Online.Click...