Open "C:WINDOWSDesktop	est.map" For Input As #1 
Do Until EOF(1) 
  Input #1, sline 
  lPos = InStr(sline, "#")
  If lPos < 1 Then
    MsgBox "KEIN # in sLine enthalten!"
  Else
    Xpos = Left$(sline, lPos - 1) 
    YPos = Mid$(sline, lPos + 1) 
    lPos = InStr(YPos, "#") 
    If lPos < 1 Then
      MsgBox "KEIN weiteres # in yPos enthalten!"
    Else
      ZPos = Mid$(sline, lPos + 1) 
      BitBlt Form1.Picture3.hDC, Xpos, YPos, 16, 16, Form1.Picture5.hDC, _
        ZPos, MPos, SRCCOPY 
    End If
  End If
Loop 
Close #1