主题：[求助]提醒加个标题

提醒框加个标题，不知加在哪呢？

此主题相关图片如下：提醒.jpg

 

Dim s1 As String

Dim dr As  DataRow

Dim drs As List(of DataRow)

drs = DataTables("库存").Select("kcsl < 5")

If drs.count > 0 Then

    For Each dr In drs

       s1= s1  &  vbcrlf  & dr("物品名称")  & " : " & dr("kcsl")

     Next

     s1 ="有库存产品即将不够,请及时补充,以免影响学员上课,名单列表 ( "  & drs.count & " ) :"  &  s1

     MessageBox.show(s1)

End If