'Verweis Microsoft.VisualBasic entfernt
Option Strict On
Option Explicit On
 
Imports System.IO
 
Public Class Form1
 
    Private _kundendaten As New FileInfo("Kundendaten.xml")
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Bildschirm As Screen = Screen.PrimaryScreen
        Location = New Point(Bildschirm.Bounds.Left + (Bildschirm.Bounds.Width _
          - Width) \ 2, Bildschirm.Bounds.Top)
        KundendatenLaden()
    End Sub
 
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) _
      Handles Me.FormClosing
        If _kundendaten.Exists Then
            _kundendaten.Delete()
        End If
        Me.DataSet1.WriteXml(_kundendaten.FullName)
    End Sub
 
    Public Sub KundendatenLaden()
        If _kundendaten.Exists Then
            Me.DataSet1.ReadXml(_kundendaten.FullName)
        Else
            MessageBox.Show("Ich finde dein XML File nicht")
        End If
    End Sub
 
    'Button für die Farbenänderung
    Private Sub cmdFarbeAendern_Click(sender As Object, e As EventArgs) Handles _
      cmdFarbeAendern.Click
        Dim FarbeAendernKlasse As New Class1
        Dim rueckgabe() = FarbeAendernKlasse.FarbeAendern()
        'rueckgabe wird weiterverarbeitet
    End Sub
End Class

Public Class Class1
 
    'Farbe Ändern Klasse
    Dim meinNeuesDataset As New DataSet1
 
    Public Function FarbeAendern() As String()
        Dim geaendertIn() As String
        Dim kundDerGeaendertWird = meinNeuesDataset.Kunde.First
        Dim ganzerDatensatz As DataRow = kundDerGeaendertWird.GetChildRows( _
          FK_Kund_Details)
 
        'Wie komme ich an einen kompletten Datensatz ran?
        'Und wie kann ich dann den Datensatz (also die DataRow) in ein 
        ' Stringarray Speichern um es zurück zu geben?
 
 
        Return geaendertIn
    End Function
End Class