Public Shared Function Parse(ByVal sval As String) As VTProperty
        Dim svals() As String = sval.Split(","c)
        If svals.Length <> 2 Then
            Throw New NotSupportedException("Invalid format")
        End If
        Try
            Dim f1 As Integer = Integer.Parse(svals(0).Trim())
            Dim f2 As Integer = Integer.Parse(svals(1).Trim())
// was ist hier??? einfach Dim Bitmap = new Bitmap(svals(2).Trim()) ????
            Return New VTProperty(f1, f2)
        Catch
            Throw New NotSupportedException("Invalid format")
        End Try
    End Function