resize igen igen igen

'-------------------------------- Form1 --------------------------------
Option Explicit

Private Sub Form_Load()
  WdthResize = (Me.Width / 15)
  HeightResize = (Me.Height / 15)
  HookResize Me.hwnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
  UnHookResize Me.hwnd
End Sub
'-------------------------------- Form1 --------------------------------



'-------------------------------- modResize.bas --------------------------------
Option Explicit

Private Type WINDOWPOS
        hwnd As Long
        hWndInsertAfter As Long
        x As Long
        y As Long
        cx As Long
        cy As Long
        FLAGS As Long
End Type

Private m_Wdth As Long
Private m_Height As Long

Private Const WM_WINDOWPOSCHANGING = &H46
Private Const WM_WINDOWPOSCHANGED = &H47
Private Const GWL_WNDPROC = (-4)

Private hProc As Long

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Sub HookResize(ByVal lhwnd As Long)
  hProc = SetWindowLong(lhwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Public Sub UnHookResize(ByVal lhwnd As Long)
  If hProc <> 0 Then
    Call SetWindowLong(lhwnd, GWL_WNDPROC, hProc)
  End If
End Sub

Public Property Get WdthResize() As Long
  Wdth = m_Wdth
End Property

Public Property Let WdthResize(ByVal lValue As Long)
  m_Wdth = lValue
End Property

Public Property Get HeightResize() As Long
  Height = m_Height
End Property

Public Property Let HeightResize(ByVal lValue As Long)
  m_Height = lValue
End Property

Private Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
  If Msg = WM_WINDOWPOSCHANGING Then
    If lParam.cx < m_Wdth Then lParam.cx = m_Wdth
    If lParam.cy < m_Height Then lParam.cy = m_Height
  End If
WindowProc = CallWindowProc(hProc, hwnd, Msg, wParam, lParam)
End Function
'-------------------------------- modResize.bas --------------------------------

den med Text1 kan gøres sådan:


Private Sub Form_Resize()
  If Me.WindowState <> 1 Then
    Text1.Move 10, 510, Me.ScaleWidth - 30, Me.ScaleHeight - 520
  End If
End Sub

ok det ser seriøst ud
resizer den alle kontroller når man ændrer størrelse på programmet eller kan man sige det er enkelte kontroller?

nej den gør kun at det ikke ser underligt ud (modResize.bas)

der var nogle fejl i Resize
som jeg har rettet

Private Sub Form_Resize()
On Error Resume Next

If frmStartWidth > Me.Width Then Me.Width = frmStartWidth
If frmStartHeight > Me.Height Then Me.Height = frmStartHeight
If WindowState = vbMinimized Then Exit Sub

x_scale = ScaleWidth / frmNewWidth
y_scale = ScaleHeight / frmNewHeight 'her omkring var en fejl

Text1.Width = x_scale * Text1.Width
Text1.Height = y_scale * Text1.Height

frmNewWidth = ScaleWidth
frmNewHeight = ScaleHeight 'her var en fejl

End Sub

ellers prøv den her:
http://www.vb-helper.com/howto_resize_controls_to_fit.html

Hvad er dit problem - at kontrollen er for stor til start?

Det er meget simpelt at styre - du kan jo bare i formens resize-event styre .Width og .Height på din kontrol, og angive disse som funktioner af formens bredde/højde.

Form1_Resize
  MyControl.Height = Form1.Height - 10
  MyControl.Width = Form1.Width - 10
End Sub

Så er kontrollen ALTID samme størrelse som formen pånær 10 - dvs. hvis du placerer kontrollen 5 fra top og venstre kant når du designer, vil kontrollen altid have afstanden 5 ud til alle formens kanter - uanset hvad størrelse formen har.

Og så skal du nok sørge for at formen ikke kan blive FOR lille - men det har du styr på, kan jeg se...

Har ikke kikket på din kode - men ovenstående fortæller vel også tilstrækkeligt :o)

sjh det spiller perfekt så her er point! :)
lokespas mange tak for hjælpen men det sovser stadig lidt så bruger sjh's løsning :)
martin det var desværre ik lige det jeg sku bruge men tak for hjælpen anyway :)