Letter(7)  = "01100000001100"
                  Letter(8)  = "01100000001100"
                  Letter(9)  = "01110000011100"
                  Letter(10) = "00111111111100"
                  Letter(11) = "00011111111100"
                  Letter(12) = "00000000011000"
                  Letter(13) = "00000000011000"
                  Letter(14) = "00000000111000"
                  Letter(15) = "00000001110000"
                  Letter(16) = "00000011100000"
                  Letter(17) = "00000111000000"
                  Letter(18) = "00011110000000"
                  Letter(19) = "00000000000000"
                  Font.Add "9", Letter
        End Sub
Private Sub Class_Terminate()
                  Font.RemoveAll
                  Set Font = Nothing
        End Sub

        Public Property Get Width()
                  Width = Width_
        End Property

        Public Property Get Height()
                  Height = Height_
        End Property

        Public Property Get Version()
                  Version = "NetRube VerifyCode Class 1.0 Build 20041225"

共24共  上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 下一页