DlgFont Example for Visual Basic

Private Sub MotionBlur_Click()
   Dim RasterProc   As New LEADRasterProcess
   Dim RasterImgEfxDlg    As New LEADRasterDlgImgEfx
   Dim nRet As Integer
   Dim DlgStr As String
   
   RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   RasterImgEfxDlg.EnableZoomToFit = True
   
   RasterImgEfxDlg.UIFlags = MOTIONBLUR_SHOW_PREVIEW + _
                                           MOTIONBLUR_SHOW_TOOL_ZOOMLEVEL
 
   
   DlgStr = RasterKrnDlg.GetDlgString(MOTIONBLUR_IDSTR_CAPTION) 
   MsgBox DlgStr
    RasterKrnDlg.SetDlgString MOTIONBLUR_IDSTR_CAPTION, "My Custom Caption"
   RasterKrnDlg.DlgFont.Name = "Bones"
   RasterKrnDlg.DlgFont.Size = 9
   nRet = RasterImgEfxDlg.ShowMotionBlurDlg(hWnd) 
      
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      nRet = RasterProc.MotionBlur (LEADRasterView1.Raster, _
                                RasterImgEfxDlg.Dimension, _
                                RasterImgEfxDlg.Angle, _
                                RasterImgEfxDlg.EnableUniDirectional _
                                ) 
    End If
End Sub