Public Function showing()
        Dim d As Integer
        For d = 1 To 25
            Dim k As String
            k = d
            Labelk.Show()
            TextBoxd.Show()
        Next d
        On Error Resume Next
    End Function