Imports System Imports System.Windows.Forms Imports System.Runtime.InteropServices Public Class Form3 Private Declare Function SipShowIM Lib "coredll.dll" (ByVal dwFlag As Integer) As Boolean Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SipShowIM(1) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click SipShowIM(0) End Sub End Class |