[Resolvido]Informar resolução da tela atual

Olá pessoal!

Baixei um ótimo exemplo disponibilizado pelo Criquio aqui no fórum:

Redimensionar formulario de acordo a resolução da tela

Alguém sabe se é possivel através desse exemplo informar também a resolução atual do formulário principal?

Por exemplo: "Resolução Atual: 1280 X 800"

Desde já, obrigado!

Pessoal,

Consegui resolver da seguinte forma:

Primeiro criei uma caixa de texto de dei o nome de "txtResolAtual".

Depois, no evento "Ao carregar" do meu formulario principal, inseri as linhas:

Dim strResLarg As String
Dim strResAlt As String
Dim strResol As String

strResLarg = Largura / 15
strResAlt = Altura / 15
strResol = strResLarg & " X " & strResAlt
Me.txtResolAtual = strResol

O resultado obtido foi: 1280 X 720

O meu monitor é de 15,6 polegadas. Ou 19,5 cm de Altura X 34,5 cm de Largura.

Minha unica duvida é: Será que obtive o resultado correto?

Abraço!

Fiz o teste desativando a linha responsavel por redimensionar o formulario e o resultado obtido foi o mesmo. Sendo assim, acredito que o resultado esta correto.

Então, dou o tópico por resolvido.

Porém, se alguém souber de uma forma mais simples e eficaz para esta finalidade, por favor me informe.

Ficarei muito grato.