Runtime Error 424 object required happens when I attempt to open my program I made,It does it everytime, and it says the defragments are Private Sub Form_Load() and CS1.Scan_On in the code. Does anyone know how I can fix this? Heres the code if anyone can help..

Private Sub CS1_ChatScan(ScreenName As String, Chat As String)
'Make sure you can only use the ccoms
If ScreenName = AOL_GetUser Then

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~Heres a simple ccom with no string~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'LCase(Chat) means you can have the command
'capitalized or not and it will still work.
'ex:
' Unforgiven Sycko: -/help
' Unforgiven Sycko: Hello there.
If (LCase(Chat)) = "-/help" Then
Chat_Send "Commands: -/help,-/op,-/kick."
End If


'Lets end the "If ScreenName = AOL_GetUser"
End If
End Sub

Private Sub Form_Load()
CS1.Scan_On
CS1.About_Fcs
Form1.Height = 1635
End Sub

Private Sub Form_Unload(Cancel As Integer)
CS1.Scan_Off
End Sub
Private Sub About_Click()
MsgBox "Exodus Ccom v1.1, Made by Kirby, Just wanted to make a simple ccom, so here it is. hope someone likes it, first program I've ever made."
End Sub

Private Sub Command1_Click()
MsgBox "Well it's a basic ccom so just read the commands and enter them in the chatroom, also, if you're room owner you can op others in the room so they can ban as well. each ccom listed is explained a bit to what it's supposed to do."
End Sub

Private Sub HScroll1_Change()

End Sub

Private Sub Exit_Click()
Unload Me
End Sub

Private Sub Minimize_Click()
Form1.WindowState = 1
End Sub