VB6 Code - Mendapatkan Directory Common Files

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory common files.

'Fungsi untuk mendapatkan directory common files:
Function GetCommonPath() As String
    GetCommonPath = Environ("CommonProgramFiles")
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory common files:
Private Sub Form_Load()
    MsgBox GetCommonPath
End Sub