'Public Class TaggedIMG2 ' 'Public Class Mark ' ' Dim Position As String ' ' Dim ID As String ' ' Dim Description As String ' 'End Class 'Mark ' Public Class Place ' Dim Adresse ' Public Description ' Public GPS ' End Class ' Public Class Mark( ' Public Mark_PositionX() As Long ' Public Mark_PositionY() As Long ' Public Mark_Radius() As Long ' Public Mark_Description() As String ' End Class ' Public ID As Long ' Public Title As String ' Public Description As String ' Public Time As String ' Public Image As Image ' Public Path As String 'End Class