为什么提示未找到方法或数据成员？

Private Sub Command1_CLick()
End
End Sub
Private Sub Command2_CLick()
    x = MsgBox("你确定要退出吗？", vbYesNo, "提示")
    If x = vbYes Then
    End
    End If
End Sub
Private Sub Command3_Click()

End
End Sub
End
Private Sub Form_Load()
    Me.Caption = "请输入用户名和密码"
    Command1.Caption = "确定"
    Command2.Caption = "退出"
    Command3.Caption = "注册新用户"
    Command4.Caption = "修改密码"
    Label1.Caption = "用户名"
    Label2.Caption = "密码"
    Text1.Text = ""
    Text2.Text = ""
    
End Sub