'Beim Shape
 
	Public Sub Shape_Zeichnen(ByVal value As Boolean)
		Dim br As Brush
		If value = True Then
			br = Brushes.LightGreen
		Else
			br = Brushes.DarkGreen
		End If
		Dim g As Graphics = Me.CreateGraphics
		Dim rectF As New RectangleF(0, 0, Me.Width - 1, Me.Height - 1)
		g.FillEllipse(br, rectF)
	End Sub
 
'Bei dem Formular
 
	Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Click
		Shape1.Shape_Zeichnen(InputBox("False oder True"))
	End Sub