Ho un piccolo problema che riguarda le variabili...
utilizzando questo script:
codice:
    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Int32, _
    ByVal lpFileName As String) As Int32

    Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" Alias _
    "WritePrivateProfileStringW" (ByVal lpApplicationName _
    As String, ByVal lpKeyName As String, ByVal lpString As String, _
    ByVal lpFileName As String) As Long

    Private FileNAME As String

    Public Function ReadIniData(ByVal Section As String, ByVal Key As String, ByVal file As String) As String
        Dim Valore As Long
        Dim RetVal As String = Space(256)
        FileNAME = System.AppDomain.CurrentDomain.BaseDirectory() & file
        Valore = GetPrivateProfileString(Section, Key, "<Nessun valore>", RetVal, RetVal.Length, FileNAME)
        Return Trim(RetVal.ToString)
    End Function

    Public Function WriteIniData(ByVal Section As String, ByVal Key As String, ByVal file As String) As String
        Dim Valore As Long
        Dim RetVal As String = Space(256)
        FileNAME = System.AppDomain.CurrentDomain.BaseDirectory() & file
        Valore = WritePrivateProfileString(Section, Key, "<NESSUN VALORE>", FileNAME)
        Return Trim(RetVal.ToString)
    End Function
faccio returnare ad una var un certo valore di un file ini, cosi:

codice:
    Dim Registration As String

    Private Sub splash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Registration = ReadIniData("REGISTER", "validation", "rTl.dll")
        MsgBox(Registration)
        If (Registration = "aaa") Then
            MsgBox("ok")
        End If
    End Sub
Il mio problema è che nell'msgbox mi mostra il giusto valore della variabile, che in questo caso è: aaa .
Pero quando faccio l'if, stranamente, nn mi da il msgBox ok.
Se faccio però:
codice:
    Dim Registration As String

    Private Sub splash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Registration = "aaa"
        MsgBox(Registration)
        If (Registration = "aaa") Then
            MsgBox("ok")
        End If
    End Sub
mi funge, perke ?