Private Sub Mailsend_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Mail.Click
        Dim mailadress As String
        Dim mailitemx As Outlook.MailItem
        Dim Mailx As New Outlook.Application()
        mailitemx = Mailx.Application.CreateItem(Outlook.OlItemType.olMailItem)
        mailitemx.Body = "hallo dies ist ein Test aus Visual Basic"
        mailitemx.To = (mailadress)
        mailitemx.Send()             '==>diese Zeile wird als fehlerhaft 
        ' angezeigt
    End Sub

Rob