通过窗口hwnd获取hInstance

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_HINSTANCE = (-6)

Private Sub Command1_Click()
    MsgBox CStr(GetWindowLong(Form1.hwnd, GWL_HINSTANCE)) + vbCrLf + CStr(App.hInstance)
End Sub
 

来源：https://blog.csdn.net/yyzhan12ysx/article/details/102761442