InitDlg Example for Visual Basic

Dim RasterKrnDlg As LEADRasterDlgKrn_U

Private Sub Form_Load()
    Set RasterKrnDlg = New LEADRasterDlgKrn_U
    RasterKrnDlg.InitDlg INIT_WITHOUT_COLOR
End Sub