Public Class Form1
Private Const missileType As Integer = 0
Private Class Something
Public direction As Integer
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mpl As New List(Of Something)
' ...
For Each pt In Mpl.FindAll(AddressOf FindMissiles)
' ...
Next
End Sub
Private Function FindMissiles(ByVal pt As Something) As Boolean
Return pt.direction = missileType
' ... obviously a more complicted match algorithm could be used in here! ...
End Function
End Class