实时错误 VB在不同窗体下运行同一过程

第一个窗体的“lblremember3.Caption ”，
第二个窗体 “lbldiary3.Caption ”
Public Sub Command5_Click()
Dim aa As Integer
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
riqi = MsgBox("请将日期填写完整", 0 + 48, "注意")
Else
nian = Val(Text1.Text)
yue = Val(Text2.Text)
ri = Val(Text3.Text)
If nian = Val(Year(Date)) And yue = Val(Month(Date)) And ri = Val(Day(Date)) Then lblremember1.Caption = rtfInput.Text And lbldiary1.Caption = rtfInput.Text
If nian = Val(Year(Date)) And yue = Val(Month(Date)) And ri = Val(Day(Date)) + 1 Then lblremember2.Caption = rtfInput.Text And lbldiary2.Caption = rtfInput.Text
If nian = Val(Year(Date)) And yue = Val(Month(Date)) And ri = Val(Day(Date)) + 2 Then lblremember3.Caption = rtfInput.Text And lbldiary3.Caption = rtfInput.Text
rtfInput.Locked = True
End If
End Sub

Vb 显示窗体实时错误361如何解决?详细错误请看内容! VB窗体加载错误!!!!! vb 实时错误91 VB实时错误‘91’ VB实时错误‘3705’ VB实时错误‘380’ VB 实时错误 424 vb 实时错误5 vb实时错误3705 VB：出现如下错误，实时错误：401：当打开有模式窗体不能显示无模式窗体? 请问个位高手怎么解决？