Olá pessoal!

  Existe algum comando ou rotina pra ler qual a resolução de vídeo do monitor onde a aplicação esta rodando?

 

 Na prática, é pro programa ficar sempre representando tela inteira.

Use um resize

Dim xTwips%, yTwips%, xPixels#, YPixels#
  xTwips = Screen.TwipsPerPixelX
  yTwips = Screen.TwipsPerPixelY
  YPixels = Screen.Height / yTwips
  xPixels = Screen.Width / xTwips
  MsgBox "A Resolução é: " & Str$(xPixels) + _
              " por " + Str$(YPixels)

Faço dessa forma:

Function G_Ler_Registro(T_Posiçao As String) As String
'le um registro
    G_Ler_Registro = "0"
    Dim T_local As String, T_Padrao As String
    T_local = G_Topico_Registro(T_Posiçao, T_Padrao)
    If T_local <> "" Then G_Ler_Registro = GetSetting(G_ExeName$, "Opções", T_local, T_Padrao)
End Function

  e depois é só testar exemplo:

    If G_Ler_Registro("Rt_Video") = 1 Then
        If CInt(Screen.Width  15) <> 800 Then
            If G_Perg("A melhor resolução para o Sistema é a de 800 x 600," & GMudaLin$ & "A resolução atual poderá causar desfocamento na imagem ou dificuldade na leitura dos dados." & GMudaLin$ & GMudaLin$ & "Deseja alterar a Resolução?", Val(G_Ler_Registro("Rt_Confirma_Dados") * 256) + MEN_INFORMA + vbYesNo) = vbYes Then
                rtn = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", 5)
                G_Sair
            End If
        End If
    End If

Obrigado amigos com suas dicas já sei como proceder.