Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.EDMI.API
Public Class frmtest
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim oString As String
        oString = _Client.NewFileStoreObject(txtIDBOBJID.Text, txtFilestoreType.Text, txtDate.Text)
        txtResult.Text = oString
    End Sub
End Class