[ BlueSoniq @ 16.12.2003. 12:27 ] @
Code: Public Class MyReceiveMail Public r_importance As String Public r_from As String Public r_subject As String Public r_datereceived As String Public r_size As String Public Sub New() r_importance = "" r_from = "" r_subject = "" r_datereceived = "" r_size = "" End Sub End Class ovo je jedna klasica Code: Public Class POP Public POPServer As String Public user As String Public pwd As String Public whatport As Integer * * * * itd itd. * * * Public Function GetMessagesHeaders(ByVal howmany As Integer, ByVal whichNS As NetworkStream) As Boolean If howmany = 0 Then Return False Exit Function End If Dim outbytes() As Byte Dim input As String Dim sr As StreamReader = New StreamReader(whichNS) Dim mCount As Integer = 1 Dim resp As String Dim tokens() As String Dim firstoccurence As String e sad ja bih zeleo (pusti snovi) da iz ove POP klase mogu da napunim onu gore klasu ili sto je jos bolje da odmah sve spustim u frmMain.ListMail (ListView kontrola ) medjutim ova klasa ne vidi tu kontrolu. Napomena sve se nalazi u file main.vb |