InitDlg Example for Visual Basic

Dim RasterKrnDlg As New LEADRasterDlgKrn
   Dim nRet As Integer
   nRet = RasterKrnDlg.InitDlg(INIT_WITHOUT_COLOR) 
   If (nRet = 0) Then
      MsgBox "Initialize Dialogs with Color Success"
   End If