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 " "

Public Class Form1

    Private Sub btnA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnA.Click
        Static intA As Integer = 0
        intA = intA + 1
        lblGradea.Text = intA
    End Sub

    Private Sub btnB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnB.Click
        Static intB As Integer = 0
        intB = intB + 1
        lblGradeb.Text = intB
    End Sub

    Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click
        Static intC As Integer = 0
        intC = intC + 1
        lblGradec.Text = intC
    End Sub

    Private Sub btnD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnD.Click
        Static intD As Integer = 0
        intD = intD + 1
        lblGraded.Text = intD
    End Sub

    Private Sub btnF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF.Click
        Static intF As Integer = 0
        intF = intF + 1
        lblGradef.Text = intF
    End Sub


End Class