PRIMERA APLICACION CON VISUAL STUDIO 2010-WPF

Hoy instale visual studio 2010, y hize mi primera aplicación, pequeña pero me sirve para ver algunos controles.

es una pequeña calculadora vamos al código:
MainWindow.xaml

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Primer Ejemplo VS 2010-WPF" Height="350"  Width="525" AllowsTransparency="True" WindowStyle="None" Topmost="True" Background="{x:Null}">
    <Grid>
        <Border BorderBrush="Silver"  BorderThickness="1" Height="287" HorizontalAlignment="Left" Margin="12,12,0,0" Name="Border1" VerticalAlignment="Top" Width="479" Background="#FF565B63" AllowDrop="False">
            <TextBox Height="22" Name="TextBox1" Width="106" />
        </Border>
        <TextBox Height="21" HorizontalAlignment="Left" Margin="198,176,0,0" Name="TextBox2" VerticalAlignment="Top" Width="106" />
        <Button Content="+" Height="34" HorizontalAlignment="Left" Margin="315,142,0,0" Name="Button1" VerticalAlignment="Top" Width="42" />
        <TextBox Height="25" HorizontalAlignment="Left" FontSize="14" Background="Yellow" Margin="199,224,0,0" Name="TextBox3" VerticalAlignment="Top" Width="106" />
        <Label Content="PRIMER EJEMPLO VISUAL STUDIO 2010-WPF" Foreground="White" Height="32" HorizontalAlignment="Left" Margin="104,75,0,0" Name="Label1" VerticalAlignment="Top" Width="318" FontWeight="Bold" FontStyle="Normal" FontFamily="Verdana" />
        <Label Content="Número 1:" Foreground="White" Height="34" HorizontalAlignment="Left" Margin="128,142,0,0" Name="Label2" VerticalAlignment="Top" Width="78" />
        <Label Content="Número 2:" Foreground="White" Height="33" HorizontalAlignment="Left" Margin="128,171,0,0" Name="Label3" VerticalAlignment="Top" Width="73" />
        <Label Content="Resultado:" Foreground="White" Height="31" HorizontalAlignment="Left" Margin="128,224,0,0" Name="Label4" VerticalAlignment="Top" Width="72" />
        <Button Content="C" Height="31" HorizontalAlignment="Left" Margin="315,220,0,0" Name="Button2" VerticalAlignment="Top" Width="91" />
        <Button Content="-" Height="34" HorizontalAlignment="Left" Margin="363,142,0,0" Name="Button3" VerticalAlignment="Top" Width="43" />
        <Button Content="*" Height="33" HorizontalAlignment="Left" Margin="315,182,0,0" Name="Button4" VerticalAlignment="Top" Width="40" />
        <Button Content="/" Height="35" HorizontalAlignment="Left" Margin="362,180,0,0" Name="Button5" VerticalAlignment="Top" Width="42" />
        <Border BorderBrush="Silver" BorderThickness="1" Height="22" HorizontalAlignment="Left" Margin="12,14,0,0" Name="Border2" VerticalAlignment="Top" Width="479" Background="#FF120303"></Border>
        <Button Content="Cerrar" Height="20" Name="Button6" Width="42" Margin="406,21,55,270" />
    </Grid>
</Window>

MainWindow.xaml.vb

Class MainWindow 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Debe ingersar el número 1")


        ElseIf TextBox2.Text = "" Then
            MsgBox("Debe ingresar el número 2")
        Else
            TextBox3.Text = CInt(TextBox1.Text) + CInt(TextBox2.Text)
        End If



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Debe ingersar el número 1")


        ElseIf TextBox2.Text = "" Then
            MsgBox("Debe ingresar el número 2")
        ElseIf TextBox1.Text < TextBox2.Text Then
            MsgBox("El número 2 debe ser menor que el número 1")

        Else
            TextBox3.Text = CInt(TextBox1.Text) - CInt(TextBox2.Text)
        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button4.Click
        If TextBox1.Text = "" Then
            MsgBox("Debe ingersar el número 1")


        ElseIf TextBox2.Text = "" Then
            MsgBox("Debe ingresar el número 2")
        Else
            TextBox3.Text = CInt(TextBox1.Text) * CInt(TextBox2.Text)
        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button5.Click
        If TextBox1.Text = "" Then
            MsgBox("Debe ingersar el número 1")


        ElseIf TextBox2.Text = "" Then
            MsgBox("Debe ingresar el número 2")
            ' ElseIf TextBox1.Text < TextBox2.Text Then
            'MsgBox("El número 2 debe ser menor que el número 1")

        Else
            TextBox3.Text = CInt(TextBox1.Text) / CInt(TextBox2.Text)
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button6.Click
        Close()
    End Sub
End Class

Descargar Archivo

Bueno eso seria, Saludos