[VB8]Aiuto per fixare funzione di controllo

[kerberos5]

Ok, ma se non dici che problemi hai come possiamo aiutarti ??

Mi genera numeri o lettere doppie... in ogni label devo avere un numero o una lettera univoca ho risolto in parte creando questa funzione di controllo:

    Public Function controlla(ByVal strA As String) As Boolean
        Dim strB As String
        Dim myArray() As String = {frmMain.lblA.Text, frmMain.lblB.Text, frmMain.lblC.Text, frmMain.lblD.Text, _
        frmMain.lblE.Text, frmMain.lblF.Text, frmMain.lblG.Text, frmMain.lblH.Text, frmMain.lblI.Text, _
        frmMain.lblL.Text, frmMain.lblM.Text, frmMain.lblN.Text, frmMain.lblO.Text, frmMain.lblP.Text, _
        frmMain.lblQ.Text, frmMain.lblR.Text, frmMain.lblS.Text, frmMain.lblT.Text, frmMain.lblU.Text, _
        frmMain.lblV.Text, frmMain.lblZ.Text}
        For Each strB In myArray
            If String.Compare(strA, strB, True) = True Then
                MsgBox("so uguali")
            Else
                MsgBox("diverse")
            End If
        Next
    End Function

così mi trova i doppi ora dovrei fargli rigenerare solo quelli doppi.. mi puoi dare una mano?

grazie