برنامه نویسی

Dim x As Byte
Private Sub Command1_Click()
x = StrComp(Text1.Text, Text2.Text, 0)
If x = 1 Then
Label1.Caption = Text1.Text + "is greater"
End If
If x = -1 Then
Label1.Caption = Text2.Text + "is greater"
End If
If x = 0 Then
Label1.Caption = "åÑ Ïæ ÈÇåã ÈÑÇÈÑ ÇäÏ"

End If

End Sub