InitCS Example for Visual Basic

    Dim out$
    
    'create a data set as a command set
    LEADDICOM1.InitCS COMMAND_C_STORE, True
    
    'gets information about the command set
    LEADDICOM1.GetInfoCS
    out$ = "Command: " & CStr(LEADDICOM1.InfoCommand)
    out$ = out$ & Chr(13)
    out$ = out$ & "Request: " & CStr(LEADDICOM1.InfoRequest)
    MsgBox out$