Option Explicit Rem Developed By Mr P.B.C.G.Fernando Rem System Name Code Generator Rem For Comments charith_c7@yahoo.co.uk / gehan_g7@yahoo.com Rem Software Developer In Vanik Information Technologies Sri Lanka Rem 07147810847 , 0112524596 Rem Simple And Powerful Application

Private Sub CmdGenerate_Click() Dim I As Integer Dim Code_Val As Byte Dim Code_1 As String Dim Code_2 As String Dim Code_3 As String Dim Code_Len As Byte Dim MArray(4) As Byte ' ------------------------------------ Code_1 = "": Code_2 = "": Code_3 = "" Text1(0).Text = "" Text1(1).Text = "" Text1(2).Text = "" Code_Val = 0 ' ------------------------------------ First_: Code_Len = 0 For I = 1 To 6 If Code_Len = 6 Then Exit For Code_Err: Code_Val = CInt(Rnd() * 9) DoEvents If Code_Val < 5 Then GoTo Code_Err Else Code_Len = Code_Len + 1 Code_1 = Code_1 & Code_Val End If Next I Second_: Code_Len = 0 For I = 65 To 90 If Code_Len = 4 Then Exit For Code_Err2: Code_Val = CInt(Rnd() * 90) DoEvents If Code_Val < 65 Or Code_Val > 90 Then GoTo Code_Err2 If (Code_Val Mod 2) = 0 Then Code_Len = Code_Len + 1 MArray(Code_Len) = Code_Val Code_2 = Code_2 & Chr(Code_Val) Else GoTo Code_Err2 End If Next I If (CDbl(Code_1) Mod 2) = 1 Then DoEvents Code_1 = "" GoTo First_ Else Text1(0).Text = Code_1 End If If ((Val(MArray(1)) + Val(MArray(2)) + Val(MArray(3)) + Val(MArray(4))) Mod 2) = 0 Then Text1(1).Text = Code_2 Else DoEvents I = 0 For I = 1 To 4 MArray(I) = 0 Next I GoTo Second_ End If Text1(2).Text = Left(Code_1, 2) & _ Right(Code_2, 2) & _ CInt(Rnd() * 9) & _ CInt(Rnd() * 5) End Sub