Compile Error Method Or Data Member Not Found In Vb6 How Can I Fix

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