C# naar VB.NET vertaal foutje

[hackie900]

Hallo,
Ik ben nu bezig in mijn WPF project met een email form en ik heb het van C# naar VB.NET vertaald met een translator.
nou werkt alles op 1 ding na, namelijk deze code:

Public Sub SendEmail()
        (New Thread(New ThreadStart(SendMessage)) + Start)
        End Sub

Die is vertaald van deze code:

public void SendEmail()
        {
            new Thread(new ThreadStart(SendMessage)).Start();
        }

Weet misschien iemand hoe ik dit op de juiste manier moet vertalen naar VB.NET?

Met vriendelijke groet,
Hackie900


EDIT::

ik zal de hele VB.NET code maar even plaatsen, misschien helpt dat:

Namespace WpfSendEmail
    Imports System
    Imports System.Collections.Generic
    Imports System.Linq
    Imports System.Text
    Imports System.Net
    Imports System.Net.Mail
    Imports System.Threading
    
    
    Class WPFEmailer
        
        Public From As String = string.Empty
        
        Public FromDisplayName As String = string.Empty
        
        Public To As String = string.Empty
        
        Public User As String = string.Empty
        
        Public Password As String = string.Empty
        
        Public Subject As String = string.Empty
        
        Public Body As String = string.Empty
        
        Public AttachmentPath As String = string.Empty
        
        Public Host As String = "127.0.0.1"
        
        Public Port As Integer = 25
        
        Public CC As String = string.Empty
        
        Public IsHtml As Boolean = false
        
        Public SendUsing As Integer = 0
        
        '0 = Network, 1 = PickupDirectory, 2 = SpecifiedPickupDirectory
        Public UseSSL As Boolean = false
        
        Public AuthenticationMode As Integer = 0
        
        '0 = No authentication, 1 = Plain Text, 2 = NTLM authentication
        Public Sub New()
            MyBase.New
            
        End Sub
        
        Public Sub SendEmail()
            (New Thread(New ThreadStart(SendMessage)) + Start)
        End Sub
        
        ''' <summary>
        ''' Send Email Message method.
        ''' </summary>
        Private Sub SendMessage()
            Try 
                Dim oMessage As MailMessage = New MailMessage
                Dim smtpClient As SmtpClient = New SmtpClient(Host)
                oMessage.From = New MailAddress(From, FromDisplayName)
                oMessage.To.Add(To)
                oMessage.Subject = Subject
                oMessage.IsBodyHtml = IsHtml
                oMessage.Body = Body
                If (CC <> string.Empty) Then
                    oMessage.CC.Add(CC)
                End If
                Select Case (SendUsing)
                    Case 0
                        smtpClient.DeliveryMethod = SmtpDeliveryMethod.Network
                    Case 1
                        smtpClient.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
                    Case 2
                        smtpClient.DeliveryMethod = SmtpDeliveryMethod.SpecifiedPickupDirectory
                    Case Else
                        smtpClient.DeliveryMethod = SmtpDeliveryMethod.Network
                End Select
                If (AuthenticationMode > 0) Then
                    smtpClient.Credentials = New NetworkCredential(User, Password)
                End If
                smtpClient.Port = Port
                smtpClient.EnableSsl = UseSSL
                ' Create and add the attachment
                If (AttachmentPath <> string.Empty) Then
                    oMessage.Attachments.Add(New Attachment(AttachmentPath))
                End If
                Try 
                    ' Deliver the message    
                    smtpClient.Send(oMessage)
                Catch ex As Exception
                    ex.ToString
                End Try
            Catch ex As Exception
                ex.ToString
            End Try
        End Sub
    End Class
End Namespace

 

[Dummy1912]

@hackie,

probeer deze eens:

Public Sub SendEmail()
	New Thread(New ThreadStart(SendMessage)).Start()
End Sub

Dummy1912

 

[hackie900]

dat werkt helaas niet, ik krijg een syntax error bij: New