Abrir form na mesma pocisão

[ℛiqu∊ 13]

'Como fazer para que uma tela sempre abra na mesma posição e tamanho de quando foi fechada?

 

--------------------------------------------------------------------------------

Private Sub Form_Load()

Me.Left = GetSetting(App.Title, "Posição", "Esquerda", 1000)

Me.Top = GetSetting(App.Title, "Posição", "Superior", 1000)

Me.Width = GetSetting(App.Title, "Posição", "Largura", 6500)

Me.Height = GetSetting(App.Title, "Posição", "Altura", 6500)

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

If Me.WindowState <> vbMinimized Then

SaveSetting App.Title, "Posição", "Esquerda", Me.Left

SaveSetting App.Title, "Posição", "Superior", Me.Top

SaveSetting App.Title, "Posição", "Largura", Me.Width

SaveSetting App.Title, "Posição", "Altura", Me.Height

End If

End Sub

 

End If

End Sub

 

Créditos

ℛiqu∊

Clube da programação

[ricardolg36 0]

Muito bom cara , xD !!!

levol meu thnx !:D

[ℛiqu∊ 13]

Obrigado!

Lembrando que o download do Visual Basic 6 ja foi postado!