Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Dim drawtag As String
Function Pencil(col1 As Long) As Single
  Dim R As Single
  Dim G As Single
  Dim B As Single
  R = col1 And 255
  G = (col1 And 65280) \ 256&
  B = (col1 And 16711680) \ 65535
  Pencil = (R + B + G) / 765
End Function
Function Brush(col1 As Long) As Long
  Dim R As Single
  Dim G As Single
  Dim B As Single
  R = col1 And 255
  G = (col1 And 65280) \ 256&
  B = (col1 And 16711680) \ 65535
  Brush = RGB(R, G, B)
End Function
 
Private Sub Command1_Click()
On Error GoTo Err
Dim Ix, Iy As Integer
Dim col1 As Long
Dim col2 As Single
Dim col3 As String
 
rt1.SelFontName = "Lucida Console"
rt1.SelFontSize = 2
rt1.Text = vbNewLine
rt1.Enabled = False
 
For Iy = 1 To HScroll1.Value
For Ix = 1 To HScroll2.Value
 
col1 = GetPixel(Picture1.hdc, Ix, Iy)
col2 = Pencil(col1)
col3 = Mid(drawtag, Len(drawtag) - Int(col2 * (Len(drawtag) - 1)), 1)
 
rt1.SelStart = Len(rt1.Text) - 2
rt1.SelLength = 1
rt1.SelText = col3
rt1.SelStart = Len(rt1.Text) - 2
rt1.SelLength = 1
rt1.SelColor = Brush(Picture1.Point(Ix + 1, Iy))
 
Next
rt1.SelText = vbNewLine
DoEvents
Next
Err:
rt1.Enabled = True
End Sub
Private Sub Command2_Click()
On Error Resume Next
Dim filename As String
cmd.ShowOpen
filename = cmd.filename
Picture1.Picture = LoadPicture(filename)
End Sub
Private Sub Form_Load()
drawtag = "#"
End Sub