VERSION 5.00 Begin VB.Form DDLJ AutoRedraw = -1 'True Caption = "Form2" ClientHeight = 8535 ClientLeft = 60 ClientTop = 345 ClientWidth = 7170 LinkTopic = "Form2" ScaleHeight = 569 ScaleMode = 3 'Pixel ScaleWidth = 478 Begin VB.ListBox List3 Height = 7470 Left = 4680 TabIndex = 5 Top = 960 Width = 2415 End Begin VB.ListBox List2 Height = 7470 Left = 2160 TabIndex = 4 Top = 960 Width = 2415 End Begin VB.ListBox List1 Height = 7470 Left = 0 TabIndex = 3 Top = 960 Width = 2055 End Begin VB.ComboBox Combo2 Height = 315 Left = 3600 TabIndex = 2 Text = "Combo2" Top = 0 Width = 3495 End Begin VB.ComboBox Combo1 Height = 315 Left = 0 TabIndex = 1 Text = "Combo1" Top = 0 Width = 3255 End Begin VB.CommandButton Command1 Caption = "-----------------ADD THE TWO NUMBERS---------------" Height = 615 Left = 0 TabIndex = 0 Top = 360 Width = 7095 End End Attribute VB_Name = "DDLJ" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Dim aa As Double, bb As Double, cc As Double, dd As Double aa = 1.4 'bb = 1.17 'cc = 0.23 'bb = 1.36 'cc = 0.04 bb = CDbl(Combo1.Text) cc = CDbl(Combo2.Text) dd = bb + cc Select Case dd Case Is > aa List2.AddItem bb & " + " & cc & ":->" & dd & " > " & dd Case Is < aa List3.AddItem bb & " + " & cc & ":->" & dd & " < " & dd Case Is = aa List1.AddItem bb & " + " & cc & ":->" & dd & " = " & dd End Select Combo1.ListIndex = Combo1.ListIndex + 1 Combo2.ListIndex = Combo2.ListIndex + 1 End Sub Private Sub Form_Load() For i = 0.01 To 1.39 Step 0.01 Combo1.AddItem Round(i, 2) Next i For i = 1.39 To 0.01 Step -0.01 Combo2.AddItem Round(i, 2) Next i Combo1.ListIndex = Combo1.ListIndex + 1 Combo2.ListIndex = Combo2.ListIndex + 1 List1.AddItem "Equal to" List2.AddItem "Greater than" List3.AddItem "Less than" End Sub