[VB6 ] 程式解題查錯

[Cookiecs (這是沒有道理的阿)]

Dim A As Double, B As Double, C As Double, D As Double, E As Double, F As Double, G As Double
Dim H As Double, I As Double, W As Double, Y As Double, N As Double
Private Sub Command1_Click()
Open "ica.txt" For Input As #1
Do While Not EOF(1)
Input #1, A, B, C, D, E
N = 1
If N <= 10 Then
  V = (5 - 1) / 2
  F = Abs(A - B)
  G = Abs(B - C)
  H = Abs(C - D)
  I = Abs(D - E)
    W = (F + G + H + I) / (5 - 1)
    Y = (A + B - D - E) / ((1 + 2) * 2 * W)
   picture1.Point(N * 1, W * 0.5) = &HFF&<====程式跑完有問題的一行
                     ★ (指定呈述式左端的函數必須傳回Variant或Object型態)
   N = N + 1
Loop
Close #1
End If
End Sub


我主要是做開啟一個文件檔的數據並將數據帶入內數值做運算
跑出來的數據再映在picture1裡
請問我有哪邊寫錯了嗎??

--
有感情的生物是人，沒感情的生物是妖。
當妖有了感情之後~
他會是人妖!

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.130.37.76
推 fumizuki:Point 是 sub 不是 function 不能這樣用
推 fumizuki:說錯...Point 不是屬性 不能這樣用
推 fumizuki:Point 只能用來得到那個點的色彩值
推 fumizuki:要改變色彩必須(重新)繪圖...PSet(x, y, color)
推 Cookiecs:但是~如果我不要顏色的話!就是直接把值輸出點
→ Cookiecs:把顏色那裏都改掉後~他會顯示必須是"="
推 fumizuki:PSet (x, y), color 之前打錯
推 fumizuki:PSet (x, y)