Visual Basic

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.PaintEventArgs) _
    Handles Me.Paint
        'draw three circles over each other
        e.Graphics.FillEllipse(Brushes.Red, New Rectangle(0, 0, 300, 300))
        e.Graphics.FillEllipse(Brushes.Blue, New Rectangle(25, 25, 250, 250))
        e.Graphics.FillEllipse(Brushes.Green, New Rectangle(50, 50, 200, 200))
        'dispose of the graphics object
        e.Dispose()
    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Resize
        Me.Invalidate()
    End Sub
End Class

comboBox1.DataSource = dtTable<br />
comboBox1.DisplayMember = "FieldToDisplay"<br />
comboBox1.ValueMember = "FieldContainingValue"

...
    If (e.KeyChar < '0' Or e.KeyChar > '9') And e.KeyChar <> '\b' Then
...

Private Sub num_PreviewKeyDown(ByVal sender As Object, e As PreviewKeyDownEventArgs)
    e.IsInputKey = ((e.KeyCode = Keys.Back) And (e.Modifiers = 0)) Or ((e.KeyCode >= Keys.D0 Or e.KeyCode <= D9 Or e.KeyCode >= Keys.NumPad0 Or e.KeyCode <= Keys.NumPad9) And (e.Modifiers = 0))
End Sub

Dim proc As Process = Process.Start("C:\Documents and Settings\userid\folder\document.doc")

Dim proc As Process = Process.Start("http://www.google.com")

UltraCoder wrote:

2. I have tried everything but a Marquee progress bar does not work. It justs sits there. The code I'm using is:

<br />
    Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter<br />
        Me.TextBox1.TextAlign = HorizontalAlignment.Left<br />
    End Sub<br />
<br />
    Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave<br />
        Me.TextBox1.TextAlign = HorizontalAlignment.Right<br />
    End Sub<br />