VB 实时报错 424 要求对象是什么原因？

内容如下：
Private Sub Cmdlove_Click()
End
End Sub

Private Sub Opthate_Click()
Piclove.Visible = False
Pichate.Visible = True
Txtlove.Text = ""
Txthate.Text = "I hate you!"
End Sub

Private Sub Optlove_Click()
Piclove.Visible = True
Pichate.Visible = False
Txtlove.Text = "I love you!"
Txthate.Text = ""
End Sub

VB实时错误'424'要求对象 vb 实时错误 '424' 要求对象 急急急 vb~~~请教 实时错误"424"要求对象 !!!!!!!vb实时错误424 要求对象.有分跪求帮忙啊!!!!!!!!! VB 实时错误 424 实时错误 424 要求对象 vb, 实时错误 424 , 高手进 notes 实时错误 424 要求对象 是怎么回事？ vb 程序报错？ VB 报错问题