Private Declare Function MIMEAssociationDialog Lib "url.dll" Alias _
  "MIMEAssociationDialogA" (ByVal hwndParent As intptr, ByVal dwInFlags As _
  integer, ByVal pcszFile As String, ByVal pcszMIMEContentType As String, ByVal _
  pszAppBuf As String, ByVal ucAppBufLen As integer) As integer
 
		Private Const MIMEASSOCDLG_FL_REGISTER_ASSOC as integer = &h1
 
		Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
			Dim TmpStr As String = microsoft.VisualBasic.space(256)
			dim Retval as integer = MIMEAssociationDialog(Me.handle, _
  MIMEASSOCDLG_FL_REGISTER_ASSOC, "c:\UEDIT32.INI", "Konfigurationsdatei", _
  TmpStr, microsoft.VisualBasic.Len(TmpStr))
   			If Retval = 1 Then
    		messagebox.Show(tmpstr)
    		Dim p As New Diagnostics.process
    		p.startinfo.filename = tmpstr.Trim
    		p.startinfo.arguments = "c:\UEDIT32.INI"
    		p.start
   			Else
     	    messagebox.Show(retval.tostring)
     		end If
		End Sub