HICON icon;
//.......
 
//on WinMain
icon = LoadIcon(hInst, "1");
// On DialogProc - WM_INITDIALOG
SendMessage(hwndDlg, WM_SETICON, ICON_SMALL, (LPARAM)icon );
 

102 DIALOGEX 0, 0, 331, 222
STYLE DS_FIXEDSYS | DS_CENTER | WS_MINIMIZEBOX | WS_POPUP | WS_CAPTION | WS_SYSMENU
FONT 8, "MS Shell Dlg", 0, 0, 0x1
BEGIN
	PUSHBUTTON      "",3,166,201,50,14,WS_GROUP
	PUSHBUTTON      "",1,216,201,50,14
	PUSHBUTTON      "",2,273,201,50,14
	CONTROL         "",1018,"Static",SS_BLACKRECT | NOT WS_VISIBLE | WS_GROUP,15,45,300,140
	CONTROL         "",1044,"Static",SS_BLACKRECT | NOT WS_VISIBLE | WS_GROUP,0,0,331,193
	CONTROL         "",1035,"Static",SS_ETCHEDHORZ | WS_GROUP,5,193,321,1
	CONTROL         "",1036,"Static",SS_ETCHEDHORZ | WS_GROUP,0,35,340,1
	CONTROL         "",1045,"Static",SS_ETCHEDHORZ | NOT WS_VISIBLE | WS_GROUP,0,193,340,1
	LTEXT           "",1256,5,188,322,8
	LTEXT           "",1028,5,188,322,8,WS_DISABLED
	LTEXT           "",1034,0,0,332,35
	LTEXT           "",1037,105,5,215,10
	LTEXT           "",1038,110,16,210,16
	CONTROL         "",1046,"Static",SS_BITMAP,0,0,100,35
END

icon = LoadIcon(hInst, MAKEINTRESOURCE(1));

Open=explorer %<letra de unidad>:\

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then MsgBox "hola"
End Sub