ClientToBitmap example for Visual Basic

Private Sub LEADRasterView1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Dim BitmapX As Single
    Dim BitmapY As Single

    BitmapX = x
    BitmapY = y
    LEADRasterView1.ClientToBitmap BitmapX, BitmapY
    
    'Change that pixel to White
    LEADRasterView1.Raster.Pixel(LEADRasterView1.ConvertX, LEADRasterView1.ConvertY) = vbWhite
End Sub