Dim data() as Byte
//Screenshot von Monitor 0 in der größe 120x120...
idisplay.takeScreenShotToArray(0,120,120)

data = idisplay.takeScreenShotToArray(0,120,120)

vbConsole = session.Console
display = vbConsole.Display
Dim data() As Byte
        Try
            data = display.TakeScreenShotToArray(1, 120, 120)
            Console.Write("Success")
        Catch ex As Exception
 
            Console.WriteLine(ex.Message) //Specified array was not of the _
              expected type.
        End Try

  Private Structure SAFEARRAYBOUND
        Public cElements As Long
        Public lLbound As Long
    End Structure
    Private Structure SAFEARRAY
        Public cDims As Integer
        Public fFeatures As Integer
        Public cbElements As Long
        Public cLocks As Long
        Public pvData As Long
        Public Bounds() As SAFEARRAYBOUND
    End Structure