Ecología

Imports System.Drawing.Drawing2D Imports System.Windows.Forms Public Class Form1

   Dim g As System.Drawing.Graphics
   Dim h As Integer
   Dim b As Integer
   Dim pen1 As New System.Drawing.Pen(Color.Navy, 2)
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Me.Refresh()
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       g = Me.CreateGraphics()
       g.DrawRectangle(pen1, 60, 60, h, b)
       h = TextBox2.Text
       b = TextBox1.Text
       Label4.Text = (TextBox1.Text * TextBox2.Text)
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub

End Class