怎样将一个矩阵拼成图形(45分)

我有一个矩阵，我想将它拼成一幅图
该如何实现？

我开始在VB中做的
用PictureBox控件的Pset方法，但一直无法实现
连一个点都画不出来
下面就是最简单的画一个点的程序，但无法实现
其中picture1就是picturebox控件
Private Sub Command1_Click()
Dim x As Long
Dim y As Long
Form1.Picture1.DrawWidth = 1
Form1.Picture1.DrawMode = 13
Form1.Picture1.Cls
Form1.Picture1.ScaleMode = 3
x = Form1.Picture1.Left + Form1.Picture1.Width / 2
y = Form1.Picture1.Top + Form1.Picture1.Height / 4
Form1.Picture1.PSet (x, y), RGB(255, 0, 0)
End Sub
唉，被VB的pset方法搞得烦死了

这里好像不是讨论VB的地方吧？

我是用VB实现不了，准备用DELPHI实现啊
如果水能帮我用VB解决了，那更好
毕竟已经用VB写了那么多代码了

?

用矩阵拼图形? 不知道我前几天刚完成的一个程序能不能满足你的要求,请看一看下帖:

http://www.delphibbs.com/delphibbs/dispq.asp?lid=834874