Initial commit

EDKB08/_Archiv/EDKB08_GSF/WordChange.vb

@@ -0,0 +1,28 @@
+Public Class WordChange
+
+    Dim m_sourcestring As String
+    Property SourceString() As String
+        Get
+            Return m_sourcestring
+        End Get
+        Set(ByVal Value As String)
+            m_sourcestring = Value
+        End Set
+    End Property
+
+    Dim m_targetstring As String
+    Property TargetString() As String
+        Get
+            Return m_targetstring
+        End Get
+        Set(ByVal Value As String)
+            m_targetstring = Value
+        End Set
+    End Property
+
+    Public Sub New(ByVal Source As String, ByVal target As String)
+        m_sourcestring = Source
+        m_targetstring = target
+    End Sub
+
+End Class