Visual Basic

<br />
    'This function exists within a custom collection<br />
    Public Function GetStack(ByVal height As Decimal) As GageBlockCollection<br />
        Me.ClearUsedBlocks()<br />
        Dim Stack As New GageBlockCollection<br />
        If Me.HasEqualGageBlock(height) Then<br />
            Stack.Add(Me.GetEqualGageBlock(height))<br />
            Return Stack<br />
        Else<br />
            Dim PossibleBlocks As New GageBlockCollection<br />
            If height >= 1 Then<br />
                'Height is greater than 1", so find the block that makes eliminates the inch part<br />
                For Each Block As GageBlock In Me<br />
                    If height - Block.Height > 0 AndAlso height - block.Height < 1 Then<br />
                        Block.IsUsed = True<br />
                        PossibleBlocks.Add(block)<br />
                        height -= Block.Height<br />
                    End If<br />
                Next<br />
            End If<br />
            'Find all Blocks that are smaller than height<br />
            For Each Block As GageBlock In Me<br />
                If Block.Height < height AndAlso Not Block.IsUsed Then<br />
                    PossibleBlocks.Add(block)<br />
                End If<br />
            Next<br />
            'Find combinations of blocks that are less that height<br />
            Dim Done As Boolean = False<br />
            For Each Block1 As GageBlock In PossibleBlocks<br />
                For Each Block2 As GageBlock In PossibleBlocks<br />
                    If height - (Block1.Height + Block2.Height) = 0 Then<br />
                        Block1.IsUsed = True<br />
                        Block2.IsUsed = True<br />
                        Stack.Add(Block1)<br />
                        Stack.Add(Block2)<br />
                        Done = True<br />
                        Exit For<br />
                    End If<br />
                Next<br />
                If Done Then<br />
                    Exit For<br />
                End If<br />
            Next<br />
            For Each Block As GageBlock In PossibleBlocks<br />
                If Block.IsUsed Then<br />
                    Stack.Add(block)<br />
                End If<br />
            Next<br />
            Return Stack<br />
        End If<br />
    End Function<br />

AppActivate("Title of the application")<br />
        SendKeys.Send(Keys.Enter)

Regards,

Chatura Dilan

If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.