تکه کدی برای مقایسه اعداد
Dim C As Integer
Private Sub cmdComp_Click()
C = StrComp(Text1.Text, Text2.Text)
Select Case C
Case 0: List1.AddItem Text1.Text + "=" + Text2.Text
Case 1: List1.AddItem Text1.Text + ">" + Text2.Text
Case -1: List1.AddItem Text1.Text + "<" + Text2.Text
End Select
End Sub
Private Sub cmdExit_Click()
End
End Sub