Public Class Form3 Private ChildFormChecked As Boolean = False Public Sub New(checked As Boolean) ChildFormChecked = checked End Sub End Class
Private Sub FontDialog1_Apply(sender As object, e As EventArgs) Handles FontDialog1.Apply TextBox1.Font = FontDialog1.Font End Sub