VB6 64-bit Operating System

 Option   Explicit   Private   Declare   Function Getcurrentprocess Lib   "  Kernel32  " () As   Long   Private   Declare  Function Iswow64process Lib   "  Kernel32  " ( Byval Hprocess As   Long , Byref Wow64process As   Long ) As   Long     Private   Sub Commandmediaclick ()  Dim Lngreturn As   Long       Call  Iswow64process (getcurrentprocess, lngreturn)  If Lngreturn = 0   Then           Msgbox   "  Non-64-bit OS  "       Else           Msgbox   " 64-bit OS  "       End   If   End sub  

 

VB6 64-bit Operating System