Private Sub Form_Resize()
Dim fw As New clFormWindow
'If Me.WindowWidth <= 1920 Then
fw.hWnd = Me.hWnd
fw.Left = (fw.Parent.Left + fw.Parent.Width) - (fw.Width + 0)
fw.Top = (fw.Parent.Top + fw.Parent.Height) - (fw.Height + 0)
Set fw = Nothing
'End If
End Sub
Şeklindeki koddaki
fw.Left = (fw.Parent.Left + fw.Parent.Width) - (fw.Width + 0)
fw.Top = (fw.Parent.Top + fw.Parent.Height) - (fw.Height + 0)
kodunu
fw.Left = (fw.Parent.Left + fw.Parent.Width) - (fw.Width + 0)+50
fw.Top = (fw.Parent.Top + fw.Parent.Height) - (fw.Height + 0)+50
şeklinde değiştirerek deneyiniz. Bu şekilde form 50 twips sol ve aşağıda görünür.