Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    With ListBox1
      .Items.Add("Byte: " & vbTab & vbTab & _
          Byte.MinValue.ToString & vbTab & vbTab & vbTab & _
          vbTab & Byte.MaxValue.ToString)
      .Items.Add("Short: " & vbTab & vbTab & _
          Short.MinValue.ToString & vbTab & vbTab & vbTab & _
          vbTab & Short.MaxValue.ToString)
      .Items.Add("Integer: " & vbTab & vbTab & _
          Integer.MinValue.ToString & vbTab & vbTab & vbTab & _
          Integer.MaxValue.ToString)
      .Items.Add("Long: " & vbTab & vbTab & _
          Long.MinValue.ToString & vbTab & vbTab & _
          Long.MaxValue.ToString)
      .Items.Add("Single: " & vbTab & vbTab & _
          Single.MinValue.ToString & vbTab & vbTab & vbTab & _
          Single.MaxValue.ToString)
      .Items.Add("Double: " & vbTab & vbTab & _
          Double.MinValue.ToString & vbTab & vbTab & _
          Double.MaxValue.ToString)
      .Items.Add("Decimal: " & vbTab & vbTab & _
          Decimal.MinValue.ToString & vbTab & _
          Decimal.MaxValue.ToString)
    End With

    Dim s1 As New String(Chr(32), 18)
    Dim s2 As New String(Chr(32), 47)
    Label1.Text = _
        "Datentyp" & s1 & "Minimalwert" & s2 & "Maximalwert"
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
  End Sub
End Class