home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group4 / OCXFUNCT.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-07-14  |  765 b   |  24 lines
  1. Attribute VB_Name = "FUNCTION"
  2. Sub NewMsgWnd(MsgControl As MMsg)
  3.     Dim MsgWnd As New MsgForm
  4.     Dim FileNum As Integer
  5.     Dim Index As Integer
  6.     MsgWnd.MMsg1.MsgID = MsgControl.MsgID
  7.     MsgWnd.szSubject = MsgWnd.MMsg1.Subject
  8.     MsgWnd.szNoteText = MsgWnd.MMsg1.NoteText
  9.     MsgWnd.szTime = MsgWnd.MMsg1.TimeReceived
  10.     MsgWnd.szMsgID = MsgWnd.MMsg1.MsgID
  11.     MsgWnd.MReci1 = MsgWnd.MMsg1
  12.     MsgWnd.szOriginator = MsgWnd.MReci1.RecipientName
  13.     MsgWnd.MFile1 = MsgWnd.MMsg1
  14.     FileNum = MsgWnd.MFile1.FileCount
  15.     For Index = 1 To FileNum
  16.         MsgWnd.MFile1.FileNum = Index
  17.         MsgWnd.szFileList.AddItem MsgWnd.MFile1.filename
  18.     Next
  19.     If FileNum > 0 Then MsgWnd.szFileList.ListIndex = 0
  20.     MsgWnd.Show
  21.     
  22. End Sub
  23.  
  24.