Add color option in Font Dialog in vb.net

Following example shows how to add color option in font dialog using vb.net

Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click
        Dim objFontDialog As New System.Windows.Forms.FontDialog
        objFontDialog.ShowColor = True
        If objFontDialog.ShowDialog() = DialogResult.OK Then
            'Write Code....
        End If
End Sub