Private Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryA" ( _
  ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32.dll" (ByVal hLibModule As _
Long) As Long
 
Private Sub Form_Load()
If Not isDotnetAvailable Then MsgBox ("Installieren Sie bitte das Microsoft" & _
  ".Net Framework")
End
End Sub
 
function isDotnetAvailable() as boolean
dim ret as long 
ret = loadlibrary("mscoree.dll")
if ret = 0 then
isDotnetAvailable = false
else
isDotnetAvailable = true
freelibrary(ret)
end if 
end function