新手求解急啊！！！！！！！！！！



Private Sub msgList_DblClick()
Dim intCount As Integer
[color=#FF6600]If flagSedit Then[/color]
If msgList.Rows > 1 Then
gintBmode = 1
intCount = msgList.Row
frmBookin1.txtSQL = "select * from rooms where roomNO = ' " & Trim(msgList.TextMatrix(intCount, 1)) & " ' "
frmBookin1.Show
End If
End If


End Sub

Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
'右键弹出
If Button = 2 And Shift = 0 Then
PopupMenu fMainForm.menuReaders
End If

End Sub


封装exe,出现编译错误 变量未定义 不懂请高人指点

[解决办法]
If flagSedit Then
就是"flagSedit"没有定义。您这个用来做什么的？