Shared Function TranslateStrikeZone(ByVal szType As Integer, ByVal X As Integer, ByVal Y As Integer) As String

        Dim dfc As Single
        Dim s As String

        s = ""

        If szType = 5 Then

            If X <= 27 Then
                If Y <= 49 Then
                    ' ball upper left
                    s = "B 2"
                Else
                    ' ball lower left
                    s = "B 3"
                End If
            ElseIf X >= 73 Then
                If Y <= 49 Then
                    ' ball upper right
                    s = "B 4"
                Else
                    ' ball lower right
                    s = "B 5"
                End If
            Else
                If Y <= 12 Then
                    ' ball high
                    s = "B 1"
                ElseIf Y >= 88 Then
                    ' ball low
                    s = "B 6"
                Else
                    ' calculate distance from center
                    dfc = CSng((Math.Abs(X - 49) ^ 2 + Math.Abs(Y - 49) ^ 2) ^ 0.5)
                    If dfc <= 10 Then
                        ' strike middle
                        s = "S 3"
                    ElseIf X <= 49 Then
                        If Y <= 49 Then
                            'strike upper left
                            s = "S 1"
                        Else
                            'strike lower left
                            s = "S 4"
                        End If
                    Else
                        If Y <= 49 Then
                            'strike upper right
                            s = "S 2"
                        Else
                            'strike lower right
                            s = "S 5"
                        End If
                    End If
                End If
            End If

        ElseIf szType = 9 Then

            If X <= 27 Then
                If Y <= 49 Then
                    ' ball upper left
                    s = "B 2"
                Else
                    ' ball lower left
                    s = "B 3"
                End If
            ElseIf X >= 73 Then
                If Y <= 49 Then
                    ' ball upper right
                    s = "B 4"
                Else
                    ' ball lower right
                    s = "B 5"
                End If
            Else
                If Y <= 12 Then
                    ' ball high
                    s = "B 1"
                ElseIf Y >= 88 Then
                    ' ball low
                    s = "B 6"
                Else
                    If Y <= 37 Then
                        If X <= 42 Then
                            ' strike upper left
                            s = "S 1"
                        ElseIf X <= 58 Then
                            ' strike upper middle
                            s = "S 2"
                        Else
                            ' strike upper right
                            s = "S 3"
                        End If
                    ElseIf Y <= 63 Then
                        If X <= 42 Then
                            ' strike middle left
                            s = "S 4"
                        ElseIf X <= 58 Then
                            ' strike right down Broadway
                            s = "S 5"
                        Else
                            ' strike middle right
                            s = "S 6"
                        End If
                    Else
                        If X <= 42 Then
                            ' strike lower left
                            s = "S 7"
                        ElseIf X <= 58 Then
                            ' strike lower middle
                            s = "S 8"
                        Else
                            ' strike lower right
                            s = "S 9"
                        End If
                    End If
                End If
            End If

        End If

        Return s

    End Function