perhaps set the form's autoredraw property to 'True'...
Hello everyone,
> I am creating a utility which generates formatted drawing sheets from a user
> form. The problem I am having is that when the form appears on the screen, the
> image does not seem to fill the whole window pane. The left and top edges have a
> kind of "ghost" on them. If anyone wants to help I will be glad to send a screen
> (scream?) shot. There is about a 1/4" margin on the top and left hand sides that
> acts as if the drawing is not filling it. If I "ALT/TAB" to another window, then
> back, when I go back the margins contain left over image from the previous
> window. If I maximize and then go back to partial size, the band goes away on
> the top but remains on the left. I have tried it on two different computers, one
> Win2000 and one WinXP. Same thing. If I minimize then maximize again, it returns
> to the top and the left as well. The drawing itself seems to "work" OK, but
> those edges just look nasty.
> The part of the code that actually generates the drawing is below. There are
> other routines that take user input from a form to set up the properties. I
> thank in advance everyone who offers any help!
> -plh
>
> Private Sub cmbMakeItSo_Click()
> Dim bolRtn As Boolean
>
> Set swApp = Application.SldWorks
>
> Select Case intSize
> Case 0
> Set swDrawing = swApp.NewDocument(A_FORMATSHEET, swDwgPaperAsize, 0#, 0#)
> Case 2
> Set swDrawing = swApp.NewDocument(B_FORMATSHEET, swDwgPaperBsize, 0#, 0#)
> Case 3
> Set swDrawing = swApp.NewDocument(C_FORMATSHEET, swDwgPaperBsize, 0#, 0#)
> Case 4
> Case Else
> MsgBox ("Unexpected result in Case Else @ cmbMakeItSo_Click()")
> End Select
> Set swDoc = swApp.ActiveDoc
> swDoc.SummaryInfo(swSumInfoAuthor) = strAuthor
> swDoc.SummaryInfo(swSumInfoComment) = strTitle
> bolRtn = swDoc.AddCustomInfo2("Material", swCustomInfoText, strMaterial)
> bolRtn = swDoc.AddCustomInfo2("Revision", swCustomInfoText, strRev)
> 'swDoc.FileSummaryInfo
>
> End Sub
>
> I keep hitting "Esc", but I'm still here!
> (If "123" is in the email address that's and anti-spam thing - remove it)