图像

'调入源图

    Set Me.Picture = LoadPicture("c:/map.jpg")

 '获得源图描述信息

    GetObject Me.Picture.Handle, Len(m_bmp), m_bmp

'获得源图数据

    ReDim bmpData(m_bmp.bmWidthBytes * m_bmp.bmHeight - 1)

    GetBitmapBits Me.Picture.Handle, UBound(bmpData), bmpData(0)

   '获得源图每像素

    m_bmPixels = m_bmp.bmBitsPixel / 8

    '创建内存DC和位图

    Dim rcBMP As RECT

    m_hMemDC = CreateCompatibleDC(Me.hdc)

    m_hMemBMP = CreateCompatibleBitmap(Me.hdc, m_bmp.bmWidth, m_bmp.bmHeight)

    m_hOldBMP = SelectObject(m_hMemDC, m_hMemBMP)

http://www.codeproject.com/KB/recipes/Wykobi.aspx 各种线的交点算法.牛人