Tile Forms

[Rattled_Cage]

how do i arrange forms neatly along the top in tile view plz
im opening another form with following command etc


Dim Form1 As New Form1
Form1.Show

[zynder]

You're confusing it. Use other name than Form1.

Dim frm as new form1
frm.show

Anyway, so you want a tile view everytime you create a new form?

[zynder]

Do you mean like this? Im not quite sure so correct me.

Private Sub Command1_Click()
Dim frm As New Form1
Static x As Long

Const SPACE = 4800 ' adjust this accordingly

frm.Show
frm.Move x, 0
x = x + SPACE

End Sub

[xavierjohn22]

then i have it something like this with my current project

    Dim FormName As String
    Dim frm As Form
    Dim X As Long
    Dim Y As Long
    Dim sName As String

    iNum = iNum + 1
    If iNum = 100 Then iNum = 1
    sName = frmMsg.Name & Format(iNum, "00")

   Set frm = New frmMsg
    FormName = sName
    X = X + 100
    Y = Y + 100
    
    With frm
        .Left = .Left + X
        .Top = .Top + Y
        .Caption = FormName
        .Tag = FormName
        .show
End wtih

[zynder]

I will not tile the forms instead your code will do a cascading forms.

[xavierjohn22]

yeah, ooppps. thanks

[Rattled_Cage]

zynder thanks your onto the right idea
but when i open too many they pile up off the side of the screen all being on one line
hmmmmm any ideas ?

[zynder]

Yeah, I just wrote that to get you started. Have you tried using an MDI Form? You can arrange it in tile and cascade by a single line of code.

MDIForm1.Arrange 1 ' for tile
MDIForm1.Arrange 0 ' for cascade

[Rattled_Cage]

can a media player be inserted ontoa midi form ?