Public Class Form3
 
    Public Stelle As Integer = 10   'Anzahl der zu rundenden Stellen der später 
    ' aus der combobox ausgelesen wird
 
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Button3.Enabled = True
            Label2.Visible = True
            ComboBox1.Visible = True
        ElseIf CheckBox1.Checked = False Then
            Label2.Visible = False
            ComboBox1.Visible = False
        End If
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click 'Übernehmen Button
        If (CheckBox1.Checked = True) Then
            Stelle = CInt(ComboBox1.SelectedItem)
        End If
 
        TextBox1.Visible = True
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click  'OK Button
        Me.Close()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click  'Abbrechen Button
        Me.Close()
    End Sub
 
End Class