Default member accesses hide away the actually called member. This is especially misleading if there is no indication in the expression that such a call is made and if the default member cannot be determined from the declared type of the object. As a consequence, errors in which a member was forgotten to be called can go unnoticed and should there not be a suitable default member at runtime, an error 438 'Object doesn't support this property or method' will be raised.

Private Function IGameStrategy_Play(ByVal enemyGrid As PlayerGrid) As IGridCoord
    Dim position As GridCoord
    Do
        Dim area As Collection
        Set area = enemyGrid.FindHitArea

        If Not area Is Nothing Then
            Set position = base.DestroyTarget(Random, enemyGrid, area)

        Else
            If this.Random.Maybe(AlmostNever) Then
                Set position = base.ShootRandomPosition(this.Random, enemyGrid)

            ElseIf this.Random.Maybe(Sometimes) Then
                Set position = ScanCenter(enemyGrid)

let's see if i can draw it out on here...

   ABCDE
1 F
2 X
3   XXF
4
5

where X is the body and F is the front of the ship (bow)

if i get through 5 turns and nothing has been sunk (all sections destroyed) i can move my ships up to 1 space, or turn 90 deg on the current middle pin... i could change mine to be:

   ABCDE
1 FX
2
3     XXF
4
5

note that the 2-pt boat was facing a wall so i couldn't go forward, so i turned... it doesn't have a "middle" point, so it rotates on the front-middle pin.  the 3-pt boat "floated" one position forward so it went from B-C-D to C-D-E

Private Function IGameStrategy_Play(ByVal enemyGrid As PlayerGrid) As IGridCoord

Sub DoSomething()
    '...stuff
End Sub