Command Bars Resize

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

I have the below code in the resize event.  I get an exception the first time resize is fired.  What can I do to fix this?
Exception of type 'System.Windows.Forms.AxHost+InvalidActiveXStateException' was thrown. 
Dim left As Integer

Dim top As Integer

Dim right As Integer

Dim bottom As Integer

Try

CommandBars1.GetClientRect(left, top, right, bottom)
grpMain.SetBounds(left, top, right - left - 10, bottom - top - 10)
Catch ex As Exception

Console.WriteLine(ex.Message)

End Try

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
rplp4 Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 18 May 2008 Status: Offline Points: 31	Post Options Post Reply Quote rplp4 Report Post Thanks(0) Quote Reply Topic: Command Bars Resize Posted: 26 August 2011 at 4:05pm
	I have the below code in the resize event. I get an exception the first time resize is fired. What can I do to fix this? Exception of type 'System.Windows.Forms.AxHost+InvalidActiveXStateException' was thrown. Dim left As Integer Dim top As Integer Dim right As Integer Dim bottom As Integer Try CommandBars1.GetClientRect(left, top, right, bottom) grpMain.SetBounds(left, top, right - left - 10, bottom - top - 10) Catch ex As Exception Console.WriteLine(ex.Message) End Try
	Product: Xtreme SuitePro (ActiveX) version 12.0.0 Platform: Vista (64bit) - SP 2 Language: Visual Basic 6.0

gibra Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 31 October 2008 Location: Italy Status: Offline Points: 288	Post Options Post Reply Quote gibra Report Post Thanks(0) Quote Reply Posted: 03 September 2011 at 6:01pm
	Use as Long instead of As Integer the guide cite Public Sub GetClientRect( _ ByRef Left As Long, _ ByRef Top As Long, _ ByRef Right As Long, _ ByRef Bottom As Long _ )
	gibra CJ SuiteControl v: 13.x to 19.x Windows 10 64bit VS2019 - VB6.0 SP6 <a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8