#Region "Constructor"
Public Sub New(ByVal parent As Form)
'fire other constructor
Me.New()
'set the module level variable
_parent = parent
End Sub
#End Region
#Region "Class Variables"
Private _parent As Form
Private _selectedFont As Font
#End Region
#Region "Events"
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
fntAppBase.ShowDialog()
_selectedFont = fntAppBase.Font
lblPreviewBox.Font = _selectedFont
txtFontSel.Text = _selectedFont.Name
btnApply.Enabled = True
End Sub
Private Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApply.Click
_parent.Font = _selectedFont
End Sub
Private Sub frmAppBaseFont_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
_parent.Font = _selectedFont
Me.Close()
End Sub
#End Region
End Class