Sub Main Dim App As Object Set App = CreateObject("WinWrap.CppDemoApplication") With App .Move 20,30 ' move icon to 20,30 End WithEnd Sub