Can someone comment the Visual Basic code underneath for me please?
Private Sub Form_Load()
If gfGetYellow = False Then
End
End If
For li = 1 To UBound(laHouseData)
If laHouseData(li, 1) <> lsPrevHouse Or li = 0 Then
cboYell.AddItem laHouseData(li, 1)
lsPrevHouse = laHouseData(li, 1)
End If
Next li
If cboYell.ListCount > 0 Then
cboYell.ListIndex = 0
End If
If gfGetGreen = False Then
End
End If
For li = 1 To UBound(laHouseData1)
If laHouseData1(li, 1) <> lsPrevHouse1 Or li = 0 Then
cboGre.AddItem laHouseData1(li, 1)
lsPrevHouse1 = laHouseData1(li, 1)
End If
Next li
If cboGre.ListCount > 0 Then
cboGre.ListIndex = 0
End If
End Sub
|