DlgFont Example for Visual Basic

     Dim RasterImgDlg As New LEADRasterDlgImg_U
    Dim RasterKrnDlg As New LEADRasterDlgKrn_U
    
    RasterImgDlg.UIFlags = AUTOTRIM_SHOW_PREVIEW
    RasterImgDlg.Bitmap = LEAD1.Bitmap
    RasterImgDlg.EnableZoomToFit = True

    DlgStr = RasterKrnDlg.GetDlgString(DLG_AUTOTRIM_IDSTR_CAPTION)
    MsgBox DlgStr
    RasterKrnDlg.SetDlgString DLG_AUTOTRIM_IDSTR_CAPTION, "My Custom Caption"
    RasterKrnDlg.DlgFont.Name = "Bones"
    RasterKrnDlg.DlgFont.Size = 9

    nRet = RasterImgDlg.ShowAutoTrimDlg(hWnd)
    If (nRet = 0 And RasterImgDlg.DialogStatus = DLG_OK) Then
        LEAD1.AutoTrim RasterImgDlg.Threshold
    End If