易语言如何实现超级列表框里判断

Public Class Form1
    '演示为动态添加的控件添加事件
    Private WithEvents Tb As New TextBox '方法2必须这样写
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Dim Tb As New TextBox
        Tb.Name = "Textbox1"
        Tb.Text = "文本框1"
        Controls.Add(Tb)
        AddHandler Tb.KeyPress, AddressOf XX '方法1，移动鼠标触发
    End Sub

    Private Sub XX()
        MsgBox("AddHandler方法")
    End Sub

    Private Sub ShowClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb.Click '方法2，单击触发
        MsgBox("Handles方法，点击了" & sender.name)
    End Sub
End Class

计次循环(超级列表框.取表项数,i)
判断(到整数(超级列表框.取标题(i,0))=1 或 到整数(超级列表框.取标题(i,1))=1 或 到整数(超级列表框.取标题(i,2))=1)
超级列表框.至标题(i,3,"1")

否则
超级列表框.至标题(i,3,"0")

结束循环

我这个电脑 没 E语言 纯手打 希望加分！！！！