PHP Code:
Public Function NetReadMultiSZ(ByRef strhKey As String, ByRef strSubKey As String, ByRef strValueName As String, ByRef strRetVal() As String) As Integer
On Error GoTo NetERROR
Dim strKey As String = strhKey & "\" & strSubKey
strRetVal = My.Computer.Registry.GetValue(strKey, strValueName, ERROR_FAILED)
Return ERROR_SUCCESS '0
Exit Function
NetERROR:
Return ERROR_FAILED 'Custom error -999
End Function
Und der Aufruf:
PHP Code:
Dim strRet() As String = Nothing
Case butMultiSz_2.Name 'Read a REG_MULTI_SZ.
txtMsgs.Text = NetReadMultiSZ(hKeyString, (txtSubKey.Text), (txtValueName.Text), strRet)
If strRet Is Nothing Then Exit Sub
For i As Integer = 0 To strRet.Length - 1
txtMsgs.Text = txtMsgs.Text & vbCrLf & Trim$(strRet(i))
Next
Damit solltest du eigendlich wissen was zu machen ist.