como pongo en posision aleatoria el msgbox???

[[sadiko]]

bueno lo que quiero saber es que como pongo el posision aleatoria el msgbox

lo que estoy asiendo es una broma que cuando el user pulse el boton de si aparescan 20 msgbox pero todos apareces en la parte de enmedio y quiero que cada vez que cierre uno aparezca otro en diferente posision de la pantalla

aqui les dejo el codigo para que vean mas o menos que es lo que quiero hacer

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
For a = 1 To 20
b = MsgBox("Y Ahora??", vbExclamation, "By Sadiko")
Next a
End Sub
'en esta parte del comand 2 si pulsa "no" la sentensia se repite infinitamente :P
Private Sub Command2_Click()
Dim a As Integer
For a = 1 To 20
a = MsgBox("Sha Como de que no", vbCritical, "By Sadiko")
Next a
End Sub



salu2

[cobein]

Un poco de google no lastima a nadie

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=7165&lngWId=1

[seba123neo]

Hola,usa el api:

Posicionar un MsgBox En cualquier parte de la pantalla Usando el API y AddressOf

saludos.