Option Explicit Dim Totalnumbers As Integer Dim Index As Integer 'Private search string Private strFindWhat As String 'these are the checkboxes with a white bg Private Sub go_Click() If Texti1 = "1" Then Labelo1.Caption = "Class Attendance = 1 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "2" Then Labelo1.Caption = "Class Attendance = 2 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "3" Then Labelo1.Caption = "Class Attendance = 3 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "4" Then Labelo1.Caption = "Class Attendance = 4 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "5" Then Labelo1.Caption = "Class Attendance = 5 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "6" Then Labelo1.Caption = "Class Attendance = 6 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "7" Then Labelo1.Caption = "Class Attendance = 7 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "8" Then Labelo1.Caption = "Class Attendance = 8 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "9" Then Labelo1.Caption = "Class Attendance = 9 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "10" Then Labelo1.Caption = "Class Attendance = 10 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "11" Then Labelo1.Caption = "Class Attendance = 11 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "12" Then Labelo1.Caption = "Class Attendance = 12 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "13" Then Labelo1.Caption = "Class Attendance = 13 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "14" Then Labelo1.Caption = "Class Attendance = 14 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "15" Then Labelo1.Caption = "Class Attendance = 15 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "16" Then Labelo1.Caption = "Class Attendance = 16 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "17" Then Labelo1.Caption = "Class Attendance = 17 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "18" Then Labelo1.Caption = "Class Attendance = 18 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture18.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "19" Then Labelo1.Caption = "Class Attendance = 19 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture18.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture19.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "20" Then Labelo1.Caption = "Class Attendance = 20 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture18.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture19.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture20.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "21" Then Labelo1.Caption = "Class Attendance = 21 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture18.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture19.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture20.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "22" Then Labelo1.Caption = "Class Attendance = 22 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture18.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture19.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture20.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture21.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture22.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture23.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "23" Then Labelo1.Caption = "Class Attendance = 23 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture18.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture19.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture20.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture21.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture22.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture23.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If If Texti1 = "24" Then Labelo1.Caption = "Class Attendance = 24 time(s)" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture18.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture19.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture20.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture21.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture22.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture23.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Picture24.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") End If End Sub Private Sub Command2my_Click() Shell "C:\PROGRA~1\ASTKA\SADM\sdm.exe", vbNormalFocus End Sub 'Event handler called when this form is first loaded Private Sub Form_Load() Labelo1.Caption = "NO class attendance" Label1my.Caption = "" 'Ensure application directory is active ChDrive App.Path ChDir App.Path 'Read a data file if there is one LoadFile 'Display current record ShowCurrRecord End Sub Private Sub command1my_Click() Text1my.Text = Date Label1my.Caption = "Data Saved!" Dim F As Integer 'Setup up constant file number Dim filepathname As String F = FreeFile ' Set F to the next free file number 'open file Text.txt filepathname = "C:\PROGRA~1\ASTKA\SADM\info\" & txtName.Text & ".Doc" Open (filepathname) For Append As F Print #F, Print #F, "Full Name:", txtName.Text Print #F, "Date of attendance:", Text1my.Text Print #F, Print #F, 'Close file Close #F End Sub 'Event handler called when this form unloads Private Sub Form_Unload(Cancel As Integer) 'Make sure current record is saved SaveCurrRecord 'Save data to disk before terminating SaveFile End Sub 'Send data to the printer Private Sub mnuFilePrint_Click() 'Make sure data record is current SaveCurrRecord 'Print records PrintRecords End Sub 'Save data to disk without exit Private Sub mnuFileSave_Click() 'Make sure current record is save SaveCurrRecord 'Save file SaveFile End Sub 'Exit program Private Sub mnuFileExit_Click() 'Unloading only form will end program 'Data is saved in Unload event Unload Me End Sub 'Add a new record Private Sub mnuRecordsAdd_Click() 'Make sure current record is saved SaveCurrRecord 'Make record array one element bigger RecordCount = RecordCount + 1 ReDim Preserve RecordArray(RecordCount) 'Make new record the active one CurrRecord = RecordCount ShowCurrRecord 'Set focus to first field txtName.SetFocus End Sub 'Delete the current record Private Sub mnuRecordsDelete_Click() Dim i As Integer Dim Prompt As String 'Cannot delete if no records If RecordCount = 0 Then Beep 'Nothing to delete! Exit Sub End If 'Ask for confirmation before deleting Prompt = "Are you sure you want to delete " Prompt = Prompt & RecordArray(CurrRecord).Name Prompt = Prompt & "?" i = MsgBox(Prompt, vbYesNo) 'Delete record only if user said Yes If i = vbYes Then 'Shift trailing records down over deleted one For i = CurrRecord To RecordCount - 1 RecordArray(i) = RecordArray(i + 1) Next i 'Shrink array by 1 record RecordCount = RecordCount - 1 ReDim Preserve RecordArray(RecordCount) 'Adjust active record if no longer valid If CurrRecord > RecordCount Then CurrRecord = CurrRecord - 1 End If 'Show newly activated record ShowCurrRecord End If End Sub 'Make the previous record active Private Sub mnuRecordsPrevious_Click() 'Test if any previous record If CurrRecord > 1 Then 'Make sure current record is saved SaveCurrRecord 'Make previous record the active one CurrRecord = CurrRecord - 1 ShowCurrRecord Else Beep 'No previous record! End If End Sub 'Make the next record active Private Sub mnuRecordsNext_Click() 'Test if any next record If CurrRecord < RecordCount Then 'Make sure current record is saved SaveCurrRecord 'Make next record the active one CurrRecord = CurrRecord + 1 ShowCurrRecord Else Beep 'No next record! End If End Sub 'Make first record active Private Sub mnuRecordsFirst_Click() 'Test if already at first record If CurrRecord <> 1 Then 'Make sure current record is saved SaveCurrRecord 'Make first record the active one CurrRecord = 1 ShowCurrRecord Else Beep 'First record is already active! End If End Sub 'Make last record active Private Sub mnuRecordsLast_Click() 'Test if already at last record If CurrRecord <> RecordCount Then 'Make sure current record is saved SaveCurrRecord 'Make last record the active one CurrRecord = RecordCount ShowCurrRecord Else Beep 'Last record is already active! End If End Sub 'Make the next record active Private Sub cmdNext_Click() Label1my.Caption = "" mnuRecordsNext_Click End Sub 'Make the previous record active Private Sub cmdPrevious_Click() Label1my.Caption = "" mnuRecordsPrevious_Click End Sub 'Update the current record with the data currently in text box controls Private Sub SaveCurrRecord() 'Can only save if there are any records If RecordCount > 0 Then RecordArray(CurrRecord).Name = txtName RecordArray(CurrRecord).Company = txtCompany RecordArray(CurrRecord).Phone1 = txtPhone1 RecordArray(CurrRecord).Phone2 = txtPhone2 RecordArray(CurrRecord).Fax = txtFax RecordArray(CurrRecord).Email = txtEmail RecordArray(CurrRecord).Address = txtAddress RecordArray(CurrRecord).Other = txtgg 'RecordArray(CurrRecord).other = txtgg End If End Sub 'Show the current record Private Sub ShowCurrRecord() If RecordCount > 0 Then 'Enable controls EnableControls True 'Show current record values in controls txtName = RecordArray(CurrRecord).Name txtCompany = RecordArray(CurrRecord).Company txtPhone1 = RecordArray(CurrRecord).Phone1 txtPhone2 = RecordArray(CurrRecord).Phone2 txtFax = RecordArray(CurrRecord).Fax txtEmail = RecordArray(CurrRecord).Email txtAddress = RecordArray(CurrRecord).Address txtgg = RecordArray(CurrRecord).Other 'txtgg = RecordArray(CurrRecord).other 'Display current record number lblCurrRecord = "Record " & CStr(CurrRecord) & " of " & CStr(RecordCount) Else 'No records! 'Disable controls EnableControls False 'Clear text controls txtName = "" txtCompany = "" txtPhone1 = "" txtPhone2 = "" txtFax = "" txtEmail = "" txtAddress = "" txtgg = "" 'txtgg = "" 'Indicate no records lblCurrRecord = "No Records" End If End Sub 'Enables or disables the text controls Private Sub EnableControls(Enable As Boolean) txtName.Enabled = Enable txtCompany.Enabled = Enable txtPhone1.Enabled = Enable txtPhone2.Enabled = Enable txtFax.Enabled = Enable txtEmail.Enabled = Enable txtAddress.Enabled = Enable txtgg.Enabled = Enable 'txtgg.Enabled = Enable End Sub 'Search records for user-specified text Private Sub mnuRecordsSearch_Click() Dim bFindFirst As Boolean 'Get string to search for If frmSearch.GetSearchStr(bFindFirst, strFindWhat) Then 'Only search if string was entered If Len(strFindWhat) > 0 Then DoSearch bFindFirst End If End If End Sub 'Searches for the next occurrence of text last searched Private Sub mnuRecordsFindNext_Click() 'Continue search if there is anything to search for If Len(strFindWhat) > 0 Then DoSearch False Else 'Else get search string mnuRecordsSearch_Click End If End Sub 'Searches records for specified text Private Sub DoSearch(bFindFirst As Boolean) Dim i As Integer 'Determine first record in search If bFindFirst Then i = 1 Else i = CurrRecord + 1 End If 'Make sure current record is stored SaveCurrRecord 'Search records Do While i <= RecordCount If InStr(1, RecordArray(i).Name, strFindWhat, 1) Then txtName.SetFocus GoTo FoundMatch End If If InStr(1, RecordArray(i).Company, strFindWhat, 1) Then txtCompany.SetFocus GoTo FoundMatch End If If InStr(1, RecordArray(i).Phone1, strFindWhat, 1) Then txtPhone1.SetFocus GoTo FoundMatch End If If InStr(1, RecordArray(i).Phone2, strFindWhat, 1) Then txtPhone2.SetFocus GoTo FoundMatch End If If InStr(1, RecordArray(i).Fax, strFindWhat, 1) Then txtFax.SetFocus GoTo FoundMatch End If If InStr(1, RecordArray(i).Email, strFindWhat, 1) Then txtEmail.SetFocus GoTo FoundMatch End If If InStr(1, RecordArray(i).Address, strFindWhat, 1) Then txtAddress.SetFocus GoTo FoundMatch End If If InStr(1, RecordArray(i).Other, strFindWhat, 1) Then txtgg.SetFocus GoTo FoundMatch End If 'If InStr(1, RecordArray(i).other, strFindWhat, 1) Then 'txtgg.SetFocus ' GoTo FoundMatch 'End If i = i + 1 Loop 'Notify user string not found MsgBox "No more occurrences of '" & strFindWhat & "'." Exit Sub FoundMatch: 'Found match--go to matching record CurrRecord = i ShowCurrRecord End Sub Private Sub Picture1_Click() Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 1 End Sub Private Sub Picture2_Click() Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 2 End Sub Private Sub Picture3_Click() Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 3 End Sub Private Sub Picture4_Click() Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 4 End Sub Private Sub Picturex_Click() Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 5 End Sub Private Sub Picture6_Click() Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 6 End Sub Private Sub Picture7_Click() Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 7 End Sub Private Sub Picture8_Click() Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 8 End Sub Private Sub Picture9_Click() Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 9 End Sub Private Sub Picture10_Click() Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 10 End Sub Private Sub Picture11_Click() Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 11 End Sub Private Sub Picture12_Click() Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 12 End Sub Private Sub Picture13_Click() Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 13 End Sub Private Sub Picture14_Click() Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 14 End Sub Private Sub Picture15_Click() Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 15 End Sub Private Sub Picture16_Click() Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 16 End Sub Private Sub Picture17_Click() Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 17 End Sub Private Sub Picture18_Click() Picture18.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 18 End Sub Private Sub Picture19_Click() Picture19.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 19 End Sub Private Sub Picture20_Click() Picture20.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 20 End Sub Private Sub Picture21_Click() Picture21.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 21 End Sub Private Sub Picture22_Click() Picture22.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 22 End Sub Private Sub Picture23_Click() Picture23.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 23 End Sub Private Sub Picture24_Click() Picture24.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\yes.gif") Labelo1.Caption = "0" + 24 End Sub Private Sub clear_Click() Dim F As Integer Text1my.Text = Date F = FreeFile 'open file Text.txt Open ("C:\PROGRA~1\ASTKA\SADM\cboxback\back.Text") For Append As F Print #F, Print #F, "Student Attendance:", Labelo1 Print #F, "Date of Backup:", Text1my.Text ' Normaly this info will get stored in the registery! Print #F, Print #F, 'Close file Close #F Labelo1.Caption = "0" Picture1.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture2.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture3.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture4.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picturex.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture6.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture7.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture8.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture9.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture10.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture11.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture12.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture13.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture14.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture15.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture16.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture17.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture18.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture19.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture20.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture21.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture22.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture23.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") Picture24.Picture = LoadPicture("C:\PROGRA~1\ASTKA\fpin\not.gif") End Sub Private Sub viewback_Click() Shell "notepad.exe C:\PROGRA~1\ASTKA\SADM\cboxback\back.text", vbNormalFocus End Sub