ShowGradientDlg Example for Visual Basic

    Dim RasterEfxDlg As New LEADRasterDlgEfx_U
    Dim nRet As Integer

    RasterEfxDlg.Gradient.StartColor = RGB(0, 0, 255)
    RasterEfxDlg.Gradient.EndColor = RGB(255, 0, 0)
    RasterEfxDlg.Gradient.GradientStyle = EFX_GRADIENT_ANGLE_TO_RT
    RasterEfxDlg.Gradient.Steps = 200
    RasterEfxDlg.UIFlags = GRADIENT_SHOW_PREVIEW Or _
                             GRADIENT_AUTOPREVIEW Or _
                             GRADIENT_STARTCOLOR Or _
                             GRADIENT_ENDCOLOR Or _
                             GRADIENT_STEPS Or _
                             GRADIENT_NO_TREEVIEW Or _
                             GRADIENT_CLASS_LINEAR Or _
                             GRADIENT_CLASS_ANGULAR Or _
                             GRADIENT_CLASS_RECTANGULAR Or _
                             GRADIENT_CLASS_ELLIPTICAL Or _
                             GRADIENT_CLASS_CONICAL

    RasterEfxDlg.Bitmap = LEAD1.Bitmap
   

    nRet = RasterEfxDlg.ShowGradientDlg(hWnd)
    If (nRet = 0 And RasterEfxDlg.DialogStatus = DLG_OK) Then
        Text1.Text = CStr(RasterEfxDlg.Gradient.GradientStyle)
        Text2.Text = CStr(RasterEfxDlg.Gradient.Steps)
        Shape1.FillColor = RasterEfxDlg.Gradient.StartColor
        Shape2.FillColor = RasterEfxDlg.Gradient.EndColor
    End If