Public Function ConvertToString(ByVal Value As Boolean) As String
      Return IIf(Value = True, "Wahr", "Falsch")
   End Function
 
   Public Function ConvertToBool(ByVal Value As String) As Boolean
      Value = Value.ToLower
      Return IIf(Value = "wahr", True, False)
   End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control