Visual Basic

Public Class nytRuler

    Private Sub nytRuler_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        Dim p As Point = New Point(0, 0)
        Dim s As Size = New Size(Me.Width, Me.Height)
        Dim curRec As Rectangle = Me.ClientRectangle()

        g.DrawRectangle(Pens.Black, curRec)
        'Converting Pixels to Twips
        Dim dpmm As Single = g.DpiX / 25.4F
        Dim ptoTwip As Single = (curRec.Width * 15)
        'Twips to Inches
        Dim twipToInches As Single = CSng(ptoTwip / 1440)
        Dim b As Single = curRec.Width
        'Draw Numders 1 2 3 etc.
        For a As Single = 0 To twipToInches
            g.DrawString(a, New Font("Arial", 10), Brushes.Black, b, 10)
            b = b - 96 '288 192 96
        Next
        b = curRec.Width
        'Dim ptomm As Integer = Me.Width / dpmm
        'Draw Lines between inches, and long line every 5th
        Dim y As Single = 10.0F
        Dim z As Integer = 0
        For x As Single = b To 0 Step -9.6
            g.DrawLine(Pens.Black, x, 0, x, y)
            z += 1
            If z = 5 Then
                y = 15
                z = 0
            Else
                y = 10
            End If
        Next
    End Sub
    Private wd As Boolean

    Public Property autowidth() As Boolean
        Get
            Return wd
        End Get
        Set(ByVal value As Boolean)
            If value Then
                Me.Width = ParentForm.Width
            End If
            wd = value
            Me.Invalidate()
        End Set
    End Property
End Class

Public Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strName As String
        Dim strAddress As String
        Dim strMessage As String
        Dim strType As String
        Dim strSendTo As String
        Dim strSendFrom As String = "WebAddress"
        Dim CompleteMessage As String

        strName = ContactName.Text()
        strAddress = ContactAddress.Text()
        strMessage = TextBox1.Text()
        strType = RadioButtonList1.SelectedValue

        Select Case strType
            Case "sales"
                strSendTo = "silverfox@live.co.uk"
            Case "contractors"
                strSendTo = "colin@fosbern.co.uk"
            Case "general"
                strSendTo = "pat@fosbern.co.uk"
            Case Else
                strSendTo = "enquiries@fosbern.co.uk"
        End Select
        CompleteMessage = "Message From Website " & vbNewLine & strSendFrom & vbNewLine & strSendTo _
        & vbNewLine & vbNewLine & strType & vbNewLine & strMessage


        Sendmsg(, strSendTo, CompleteMessage)




    End Sub

Public Sub Sendmsg(Optional ByVal msgfrom As String = "", Optional ByVal msgto As String = "", _
                       Optional ByVal msgmessage As String = "")
        Dim SendMessage As New MailMessage


        Try
            With SendMessage
                .To (msgto)
                .From (msgFrom)
                .Body (msgmessage)
                .send
            End With
        Catch ex As Exception

        End Try
    End Sub

Imports System
Imports System.Net
Imports System.Net.Mail
Imports System.Net.Mail.MailMessage

Public Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strName As String
        Dim strAddress As String
        Dim strMessage As String
        Dim strType As String
        Dim strSendTo As String
        Dim strSendFrom As String = "WebSite"
        Dim CompleteMessage As String

        strName = ContactName.Text()
        strAddress = ContactAddress.Text()
        strMessage = TextBox1.Text()
        strType = RadioButtonList1.SelectedValue

        Select Case strType
            Case "sales"
                strSendTo = "sales@ACME.co.uk"
            Case "contractors"
                strSendTo = "colin@ACME.co.uk"
            Case "general"
                strSendTo = "pat@ACME.co.uk"
            Case Else
                strSendTo = "enquiries@ACME.co.uk"
        End Select
        CompleteMessage = "Message From Website " "