Public Function GetPictureFromNumber( num as byte) as string
     Select Case num
         case 0
             GetPictureFromNumber = "hill_gerade_top1.gif"
         case 1
             GetPictureFromNumber = "hill_gerade_top2.gif"
         case 2
             GetPictureFromNumber = "hill_gerade_top3.gif"
          'usw.
     End Select
End Function

Public Function GetNumberFromPicture( pic as string) as byte
    Select Case pic
        case "hill_gerade_top1.gif"
            GetNumberFromPicture = 0
        case "hill_gerade_top2.gif"
            GetNumberFromPicture = 1
        case "hill_gerade_top3.gif"
            GetNumberFromPicture = 2
        'usw.  
    End Select
End Function

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)