初学SET属性过程使用时发生错误!!请帮忙，谢谢

Question

下面这段代码是在前一个画面（REGVK050）写的
Public WriteOnly Property MessageCss() As String
        Set(ByVal Value As String)
            Me.lblMessage.CssClass = Value
        End Set
    End Property
下面这段是在调用的画面写的，往属性里设置
Dim pgListForm As New REGVK050
pgListForm.MessageCss = "CCS_APP_INFO_LABEL"
在运行pgListForm.MessageCss = "CCS_APP_INFO_LABEL"这句的时候报错（对象未被实例化）怎么解决？