Ciao.

In modo più vicino al .NET puoi fare:
codice:
Dim PercorsoProgrammi As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
Per l'architettura, invece, puoi fare:
codice:
Dim A32bit As Boolean = False

If Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE").Contains("86") Then
       A32bit = True
Else
       A32bit = False
End If
Per il cursore, invece, ti basta mettere questo codice nell'evento Load del tuo form (credo):

codice:
 
Me.Cursor = New Windows.Forms.Cursor("Percorso cursore")