Public Function isMSNAvailable() As Boolean
        Dim mp As Object
        Try
            mp = CreateObject("Messenger.Messenger")
            If Not (mp Is Nothing) Then Return True
            mp = CreateObject("msnmsgr.OCX.7")
            Return Not (mp Is Nothing)
        Catch
            Return False
        End Try
 
    End Function
 
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
        isMSNAvailable()
        If isMSNAvailable() = True Then
            MsgBox("OK")
        Else
            MsgBox("Nein")
        End If
    End Sub