ClientToBitmap example for Visual Basic

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

    BitmapX = x
    BitmapY = y
    LEAD1.ScaleMode = 1 'twips b/c that's what we get in VB's MouseDown
    LEAD1.ClientToBitmap BitmapX, BitmapY
    
    'Change that pixel to White
    LEAD1.Pixel(LEAD1.ConvertX, LEAD1.ConvertY) = vbWhite
End Sub