Off the top of my head...
Here's some code off the top of my head, be sure to create a text box named text1 and a timer named timer1.
P.S. Sorry about the bad presentation, I can't remember how to display code.
Dim OldWidth, OldHeight
Private Sub Form_Load()
Text1.Text = Str$(Screen.Width) + "," + Str$(Screen.Height)
OldWidth = Screen.Width
OldHeight = Screen.Height
End Sub
Private Sub Timer1_Timer()
If Screen.Width = OldWidth Then
Text1.Text = Str$(OldWidth) + "," + Str$(OldHeight)
Else
MsgBox ("Screen resized from " + Str$(OldWidth) + ","+_
Str$(OldHeight) + " to" + Str$(Screen.Width) + "," +_
Str$(Screen.Height) + ".")
OldWidth = Screen.Width
OldHeight = Screen.Height
End If
End Sub