新手求解急解决方案

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



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"没有定义。您这个用来做什么的？