Dim bChecked as boolean
Dim frm as new Form2
if frm.ShowDialog = DialogResult.Ok then
    bChecked = frm.CheckBox1.checked
endif
frm.close
frm.dispose
frm = nothing

Public Class Form2
    Public ReadOnly Property CheckBox_Checked
        Get
            Return CheckBox.Checked
        End Get
    End Property
 
    [...]
 
End Class
 
Dim bChecked as boolean
Dim frm as new Form2
if frm.ShowDialog = DialogResult.Ok then
    bChecked = frm.CheckBox1.CheckBox_Checked
endif
frm.close
frm.dispose
frm = nothing