Dim i%, Raster%, RasterFarbe&
 
Raster = 15
RasterFarbe = vbBlue
With Picture1
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .Cls
  For i = 0 To .ScaleWidth Step Raster
    Picture1.Line (i, 0)-(i, .ScaleHeight), RasterFarbe
  Next i
  For i = 0 To .ScaleHeight Step Raster
    Picture1.Line (0, i)-(.ScaleWidth, i), RasterFarbe
  Next i
  .AutoRedraw = False
End With

Dim i%, j%, Raster%, RasterFarbe&
 
Raster = 15
RasterFarbe = vbBlack
With Picture1
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .Cls
  For i = 0 To .ScaleWidth - 1 Step Raster
    For j = 0 To .ScaleHeight - 1 Step Raster
      Picture1.PSet (i, j), RasterFarbe
    Next j
  Next i
  .AutoRedraw = False
End With

'Benötigt werden: 1 Picturebox, 2 Line-Controls, 1 Image-Control mit Bild, 
' Index = 0
Option Explicit
Private TwX%, TwY%
 
Private Sub Form_Load()
 
With Screen
  TwX = .TwipsPerPixelX
  TwY = .TwipsPerPixelY
End With
 
Picture1.ScaleMode = vbPixels
With Line1
  Set .Container = Picture1
  .BorderColor = vbYellow
  .X1 = 0
  .X2 = Picture1.ScaleWidth
  .ZOrder vbBringToFront
End With
 
With Line2
  Set .Container = Picture1
  .BorderColor = vbYellow
  .Y1 = 0
  .Y2 = Picture1.ScaleHeight
  .ZOrder vbBringToFront
End With
 
End Sub
 
Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
 
Dim XImg!, YImg!
 
With Image1(Index)
  XImg = .Left + X / TwX
  YImg = .Top + Y / TwY
End With
 
With Line1
  .Y1 = YImg
  .Y2 = YImg
End With
 
With Line2
  .X1 = XImg
  .X2 = XImg
End With
 
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
With Line1
  .Y1 = Y
  .Y2 = Y
End With
 
With Line2
  .X1 = X
  .X2 = X
End With
 
End Sub

Gruss,

Zardoz