Sub EndButton_Click ()
    gScanNext = False
    Hide
End Sub

Sub Form_Load ()
    'Center the form based on the notify form

    Dim messageLeft, messageTop As Integer

    Left = Notify.Left + (Notify.Width - Width) / 2
    Top = Notify.Top + (Notify.Height - Height) / 2

    'Fill in the fields retrieved by DisplaySubjects()
    SubjectText = gSubjectText
    FromText = gFromText
    DateText = gDateText
End Sub

Sub MessagePicture_DblClick ()

    If NewMessage > 0 Then
	DisplaySubjects
    End If

End Sub

Sub Nextbutton_Click ()
    Hide
End Sub

Sub OKButton_Click ()
    ScanNext = False
    Message.Visible = False
End Sub

Sub Picture1_DblClick ()
    
    If NewMessage > 0 Then
	DisplaySubjects
    End If

End Sub

