Public Class Form1
    Public 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
    Dim Test() As strTest
    Dim testweise() As strTest
    Dim Grafik As Grafik = New Grafik
    Public Function Export() As strTest()
        If Not IsNothing(Test) Then
            Dim tmp(Test.Count - 1) As strTest
            For i As Integer = 0 To Test.Count - 1
                tmp(i).Maus = Test(i).Maus
                tmp(i).Größe = Test(i).Größe
                tmp(i).Farbe = Test(i).Farbe
                tmp(i).Winkel = Test(i).Winkel
                tmp(i).Text = Test(i).Text
            Next
            Return tmp
        Else
            Return Nothing
        End If
    End Function
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        testweise = Export() 'Funtioniert Kein Fehler
        testweise = Grafik.Export '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
    Public 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
    Dim Test() As strTest
    Public Function Export() As strTest()
        If Not IsNothing(Test) Then
            Dim tmp(Test.Count - 1) As strTest
            For i As Integer = 0 To Test.Count - 1
                tmp(i).Maus = Test(i).Maus
                tmp(i).Größe = Test(i).Größe
                tmp(i).Farbe = Test(i).Farbe
                tmp(i).Winkel = Test(i).Winkel
                tmp(i).Text = Test(i).Text
            Next
            Return tmp
        Else
            Return Nothing
        End If
    End Function
End Class