= New cTextBoxBackground
   m_cLargeTextBoxBack.SetBackdrop LoadPicture(App.Path &amp; "\back.bmp")
   m_cLargeTextBoxBack.Attach txtTest.hwnd

End Sub

Private Sub Form_Resize()
   On Error Resume Next
   cmdOK.Move _
      Me.ScaleWidth - cmdOK.Width - 2 * Screen.TwipsPerPixelX, _
      Me.ScaleHeight - cmdOK.Height - 2 * Screen.TwipsPerPixelY
   cmdBitmapDialog.Move _
      cmdOK.left - cmdBitmapDialog.Width - 2 * Screen.TwipsPerPixelX, _
      cmdOK.tOp
   txtTest.Move _
      txtTest.left, txtTest.tOp,