Dim countertitle As Integer
Dim title As String
Dim titledance As String
Private Sub Form_Load()
title = "MSUN-IDS Enrolment System"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
picWall_Move
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim a As String
a = MsgBox("Are you sure you want to exit?", vbQuestion + vbYesNo, "HSES")
If a = vbYes Then
Cancel = 0
Unload Me
Else
Cancel = 1
End If
End Sub
Private Sub picBox1_Click()
Dim registrar As Variant
registrar = Shell(App.Path & "\Registrar Module.exe", vbNormalFocus)
End Sub
Private Sub picBox1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
picBox1.Picture = imgBox1.ListImages(1).Picture
Label2.Caption = "Registrar Module"
End Sub
Private Sub picWall_Move()
picBox1.Picture = imgBox0.ListImages(1).Picture
picBox2.Picture = imgBox0.ListImages(2).Picture
picBox3.Picture = imgBox0.ListImages(3).Picture
Picture1.Picture = imgBox0.ListImages(3).Picture
Picture2.Picture = imgBox0.ListImages(2).Picture
Label2.Caption = ""
End Sub
Private Sub picBox2_Click()
Dim Cashier As Variant
Cashier = Shell(App.Path & "\Cashier Module.exe", vbNormalFocus)
End Sub
Private Sub picBox2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
picBox2.Picture = imgBox1.ListImages(2).Picture
Label2.Caption = "Cashier Module"
End Sub
Private Sub picBox3_Click()
Dim enrollment As Variant
enrollment = Shell(App.Path & "\Enrollment Module.exe", vbNormalFocus)
End Sub
Private Sub picBox3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
picBox3.Picture = imgBox1.ListImages(3).Picture
Label2.Caption = "Enrollment Module"
End Sub
Private Sub Picture1_Click()
Dim Grader As Variant
Grader = Shell(App.Path & "\Grader Module.exe", vbNormalFocus)
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = imgBox1.ListImages(5).Picture
Label2.Caption = "Grader Module"
End Sub
Private Sub Picture2_Click()
Dim admin As Variant
admin = Shell(App.Path & "\Administrative Module.exe", vbNormalFocus)
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.Picture = imgBox1.ListImages(4).Picture
Label2.Caption = "Administrative Module"
Exit Sub
End Sub
Private Sub Timer1_Timer()
titledance = Left(title, countertitle)
Me.Caption = titledance
countertitle = countertitle + 1
If countertitle >= Len(title) + 3 Then
countertitle = 1
titledance = ""
End If
End Sub
Compile error method or data member not found in vb6 how can i fix