Option Explicit

Private Declare Function LoadMenu Lib "user32" Alias "LoadMenuA" (ByVal hInstance As Long, ByVal lpString As String) As Long
Private lMainMenu As Long

Private Sub Form_Load()
    lMainMenu = LoadMenu(ByVal App.hInstance, ByVal LoadResData( 101 ,  4 ))
End Sub

Private Sub Form_Load()
Dim strMenu As String
    strMenu = LoadResData( 101 ,  4 )
    lMainMenu = LoadMenu(ByVal App.hInstance, ByVal strMenu)
End Sub

Private Sub Form_Load()
Dim aMenu() As Byte
    aMenu = LoadResData( 101 ,  4 )
    lMainMenu = LoadMenu(ByVal App.hInstance, ByVal aMenu)
End Sub