[color=FF0000] Dim i As Long, j As Long
Text1 = ""
Text2 = ""
For i = 0 To Picture1.ScaleWidth - 1 '注意坐标是从0开始
  For j = 0 To Picture1.ScaleHeight - 1
    If Picture1.Point(i, j) <> &HFFFFFF Then '颜色的判定
      Text1 = Text1 & Format(i) & "," '逗号做分隔符
      Text2 = Text2 & Format(j) & ","
    End If
  Next
Next   '循环无法进行,数据无法获取[/color]
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Picture1.AutoSize = True
 Command1.Enabled = True
 Command2.Enabled = False
 Picture1.Scale (0, 150)-(300, 0)
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Text2_Change()
End Sub