What would be the pseudo code for this piece of Visual Basic code that is underneath???

Private Sub Form_Load()
If gfGetYellow = False Then
End
End If

For li = 1 To UBound(laParkData)
If laParkData(li, 1) <> lsPrevPark Or li = 0 Then
cboYell.AddItem laParkData(li, 1)
lsPrevPark = laParkData(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(laParkData1)
If laParkData1(li, 1) <> lsPrevPark1 Or li = 0 Then
cboGre.AddItem laParkData1(li, 1)
lsPrevPark1 = laParkData1(li, 1)
End If
Next li

If cboGre.ListCount > 0 Then
cboGre.ListIndex = 0
End If
End Sub

start function Load

if gfGetYellow is false then exit function

for li as 1 to the last element of laParkData
if the value of the li'th item at position 1 in laparkdata is not equal to isprev park or li is zero then
cbOYell add that item
prevoius is that item
end if
end for

if cboyell's number of items greater than zero then
cboyell's list box gets zero
endif

if gfGetGreen is false then exit function

for li as 1 to the last element of laParkData1
if the value of the li'th item at position 1 in laparkdata1 is not equal to isprev1 park or li is zero then
cbogre add that item
prevoius1 is that item
end if
end for

if cbogre's number of items greater than zero then
cbogre's list box gets zero
endif

end function