VB6.0で温度の等高線のようなものを書きたいと思っています。
3600×4800のFormで、式は
T1 = 5 * Sin(pai * X / 2400) * Sin(pai * Y / 2400) + 25

この式で20〜30℃までを色分けしたいのですが思ったようにうまくはいきません。
もし、いい案などありましたら、教えていただきたいと思います。
よろしくお願いします。
一応、書いたものを下に張ります。

Private Sub Form_Click()

Dim pai As Single
Dim i As Single
Static T1 As Single

Static X As Single
Static Y As Single
Static T As Single




DrawWidth = 3


Line (2400, -1800)-(2400, 1800), QBColor(0)
Line (2400, 1800)-(-2400, 1800), QBColor(0)

DrawWidth = 1
Line (2400, -1800)-(-2400, -1800), QBColor(0)
Line (-2400, -1800)-(-2400, 1800), QBColor(0)


Line (-2400, 0)-(2400, 0), QBColor(5)
Line (0, 1800)-(0, -1800), QBColor(5)

pai = 3.14159
T1 = 5 * Sin(pai * X / 2400) * Sin(pai * Y / 2400) + 25

If T1 > 28 And T1 <= 28 Then
PSet (X, Y), RGB(255, 0, 0)
If T1 > 26 And T1 <= 28 Then
PSet (X, Y), RGB(255, 200, 0)
If T1 > 24 And T1 <= 26 Then
PSet (X, Y), RGB(255, 255, 0)
If T1 > 22 And T1 <= 24 Then
PSet (X, Y), RGB(0, 255, 0)
If T1 >= 20 And T1 <= 22 Then
PSet (X, Y), RGB(0, 0, 255)

End If
End If
End If
End If
End If


End Sub

> この式で20〜30℃までを色分けしたいのですが思ったようにうまくはいきません。
>  If T1 > 28 And T1 <= 28 Then
>  If T1 > 26 And T1 <= 28 Then
>  If T1 > 24 And T1 <= 26 Then
>  If T1 > 22 And T1 <= 24 Then
>  If T1 >= 20 And T1 <= 22 Then
>
>  End If
>  End If
>  End If
>  End If
>  End If

IFが入れ子（IF〜End Ifの間に、別のIF〜End Ifがある）になってますね。
これだと、１つ目のIF条件を満たす時（つまりT1＝２８の時）しか、
２つ目のIFをチェックしません。（でT1＝２８ですので以降の条件は、成り立ちません）

条件を並べる時は、入れ子にしないで、普通に並べてください。
＃又は、Else（やElseIf）を使うか・・・

If T1 > 28 And T1 <= 28 Then
  If T1 > 26 And T1 <= 28 Then
    If T1 > 24 And T1 <= 26 Then
      If T1 > 22 And T1 <= 24 Then
        If T1 >= 20 And T1 <= 22 Then
        End If
      End If
    End If
  End If
End If

入れ子になってますね。
並び替えればこうなりますょ
ELSEIF文 使うかSELECT文使うかですね
SELECT CASE T1
  CASE Is < 20
  Case Is <= 22
  CASE Is <= 24
  CASE Is <= 26
  CASE Is <= 28
End Select
ですかね

> T1 = 5 * Sin(pai * X / 2400) * Sin(pai * Y / 2400) + 25
X,Yの変化でT1が決められるのですが、貴殿が意図するT1の分布は座標によるものなのか
何なのかが理解できないです（＊A）

> この式で20〜30℃までを色分けしたいのですが思ったようにうまくはいきません。
X,Yは　０だけ？ですか？
For　で回さないと、Psetは1回しかされませんよネ？

試しに、
For X = -1000 To 1000
For Y = -1000 To 1000
としてみたら、それらしい色分けにはなったのですが、・・・

大吉末吉さん、來さん、y4yamaさん返信ありがとうございます。
大吉末吉さん、來さんのアドバイスどおり、Selectでやり直しています。

y4yamaさんに質問なのですが、
> For X = -1000 To 1000
>  For Y = -1000 To 1000

XかYだけなら、惜しいとこまでいったんですが、
上のように
一気に二つのForを使うのは可能なのですか？
Nextを最後に2つつけると、エラーになってしまうのですが・・・。

> 一気に二つのForを使うのは可能なのですか？
> Nextを最後に2つつけると、エラーになってしまうのですが・・・。

VBの基本です。(こちらのサンプルでもForの2重ループは、見つかると思いますヨ )
がんばってください

> VBの基本です。(こちらのサンプルでもForの2重ループは、見つかると思いますヨ )
> がんばってください

y4yama
ありがとうございます！！
無事できました！！！
Nextの順番を変えるんですね！
勉強になりました。
みなさまありがとうございました。