Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim abonents As New ICmtControl
        Dim pdwCount As UInteger
        Dim savep As New SABONENT_STATE
        Dim ppAbonentState As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(savep))
        abonents.GetAbonentState(pdwCount, ppAbonentState)
        savep = CType(Marshal.PtrToStructure(ppAbonentState, GetType(SABONENT_STATE)), SABONENT_STATE)
        TextBox9.Text = savep.Name
    End Sub

Imports cmtLib
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
        Dim Start As New CmtControl, pError As Integer, pErrorDescription As String

        Start.Start(pError, pErrorDescription)

    End Sub
End Class