Tile Forms

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

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?

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

Code:

---

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

---

then i have it something like this with my current project

Code:

---

    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

---

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

yeah, ooppps. thanks

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 ?

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.

Code:

---

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

---

can a media player be inserted ontoa midi form ?