Option Explicit On
Option Strict On

Public Class Dialog1

    Public CheckedListBox As New CheckedListBox With {.AutoSize = True,
                                                      .BorderStyle = BorderStyle.None,
                                                      .Dock = DockStyle.Top,
                                                      .Font = New Font(Me.Font.FontFamily, 14),
                                                      .CheckOnClick = True}

    Private Sub Dialog1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ClientSize = New Size(Me.Width, Me.CheckedListBox.ItemHeight * Me.CheckedListBox.Items.Count + 55)
        Me.Controls.Add(CheckedListBox)
    End Sub

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

End Class