Public Class FileSorter
  Public typ As String
End Class

Public Class Type
  Private Sub Type_Loaded(sender As Object, e As RoutedEventArgs) Handles _
    Me.Loaded
    'Variable "typ" verändern
  End Sub
End Class

_______________________________________________________________________
Heute stehen wir am Abgrund. Morgen sind wir schon einen Schritt weiter.

iComputerfreak