Public Class Form1
    Private Structure strTest
        Dim Maus As Point
        Dim Größe As Size
        Dim Farbe As Color
        Dim Winkel As Integer
        Dim Text As String
    End Structure
 
  Private Structure StrBildgalarie
        Dim Bild() As Byte
        Dim OrgBild() As Byte
        Dim Zoom As Integer
        Dim VScroll As Integer
        Dim HScroll As Integer
        Dim Daten() As strTest
    End Structure
    Dim Bildgalarie() asStrBildgalarie
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
     Bildgalarie(0).Daten = Grafik.Test
'Fehler BC30332 Der Wert des Typs "Grafik.strTest()" kann nicht in 
' "Form1.strTest()" konvertiert werden, da "Grafik.strTest" nicht von 
' "Form1.strTest" abgeleitet ist.
    End Sub
End Class
 
Public Class Grafik
'Hier wird das bild aufgenommen verarbeitet und wieder zurückgegeben.
    Public Structure Public Class Form1
    Private Structure strTest
        Dim Maus As Point
        Dim Größe As Size
        Dim Farbe As Color
        Dim Winkel As Integer
        Dim Text As String
    End Structure
    Public Test() As strTest
End Class