'Imports MSMOLE
Module Module1
    'Public m As New MCommand
    Public m As Object = CreateObject("m.command")
End Module

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        m.Server = "127.0.0.1"  'Host
        m.Port = 1666           'Port
        m.Login()
        m.Xecute("zn ""USER""")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim str(65000) As String, n As Integer = 0, i As Integer
        Dim arr() As String
        Dim arrayX As Object = ""
        Dim Ret1 As String = ""
        On Error GoTo Eroare
        m.Do("in^test", str, n)
        arrayX = str
        'MsgBox(str)
        VSFlexGrid1.Rows = 1
        For i = 1 To n
            Ret1 = arrayX(i)
            arr = Split(Ret1, "\")
            VSFlexGrid1.AddItem(arr(0) & vbTab & _
                              StrConv(arr(1), vbProperCase) & vbTab & _
                               StrConv(arr(2), vbProperCase) & vbTab & _
                               arr(3) & vbTab & _
                               arr(4) & vbTab & _
                               arr(5))
        Next i
        Exit Sub
Eroare:
        MsgBox("Error: " & Err.Description)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim str = "a/b/c/d/e/f"
        'MsgBox(Split(str, "/")(2))
        MsgBox(str.Split("/")(2))
    End Sub
End Class

test ; Тестовая программа передачи клиенту одномерный масив из 10.000 строк
in(a,i)
 f i=1:1:10000 do
 . s a(i)="Эти строки мы получаем из Cache' с использованием MSM-Activate and VB.NET "
 q